Hello:
I am trying to connection using old school VBA.
This works in VBA!
This works in VB.NET, but says the server does not exist or access is denied...
Why would the server be available in VB.NET but not in VBA?
Here's the complete code. I must be missing something..
Thanks!
I am trying to connection using old school VBA.
This works in VBA!
Code:
connectionString = "Provider=sqloledb;Data Source=w2012;Initial Catalog=M1_SU;User Id=m1view;Password=connect2m1;"Code:
"Provider=sqloledb;Data Source=sage;Initial Catalog=JobSheet;persist security info=True;Integrated Security=SSPI;"Here's the complete code. I must be missing something..
Code:
Sub GetJobs_Click()
Dim connectionString As String
' connectionString = "Provider=sqloledb;Data Source=w2012;Initial Catalog=M1_SU;User Id=m1view;Password=connect2m1;"
connectionString = "Provider=sqloledb;Data Source=sage;Initial Catalog=JobSheet;persist security info=True;Integrated Security=SSPI;"
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sql As String
sql = "SELECT * From [JobSheet].[dbo].[JobInfo] ORDER BY JobNo "
MsgBox (sql)
cn.connectionString = connectionString
cn.Open ' ERROR'S HERE
rs.Open sql, cn, adOpenKeyset, adLockReadOnly, adCmdText
rs.MoveFirst
Do While Not rs.EOF
MsgBox (rs.Fields("JobNo"))
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub