Hi! Hope you are well.
I want to use ADO recordsets against a SQL Server database.
I am trying to connect to a Sql Server database using the connnection string
"Provider=SQLOLEDB;Data Source=HSSQL001;Initial Catalog=2020_Consumer_13;Trusted_Connection=yes;"
My code is:
I get an error: [DBNETLIB][ConnectionOpen (SECDoClientHandshake()).]SSL Security error.
If someone could please assist me.
I want to use ADO recordsets against a SQL Server database.
I am trying to connect to a Sql Server database using the connnection string
"Provider=SQLOLEDB;Data Source=HSSQL001;Initial Catalog=2020_Consumer_13;Trusted_Connection=yes;"
My code is:
Code:
Private Sub LoadDataForEdit()
Dim a26fields(25) As String
Dim conn As New ADODB.Connection
Dim strRequestedId As String = "" ' = txtSurveyId.Text
If txtSurveyId.Text <> "" Then
strRequestedId = txtSurveyId.Text
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=HSSQL001;Initial Catalog=2020_Consumer_13;Trusted_Connection=yes;"
conn.Open()
Call ChildClearForm()
Dim ssql As String
Dim objRecordset As New ADODB.Recordset
ssql = "Select * FROM [2020Survey] WHERE Id = '" & strRequestedId & "'"
objRecordset.Open(ssql, sconn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
If objRecordset.RecordCount = 0 Then
MessageBox.Show("Survey Id: " & strRequestedId & " does not exist in the database!", "CONSUMER SURVEY", MessageBoxButtons.OK)
Else
With objRecordset
Process Recordset
End With
End
End If
End SubIf someone could please assist me.