WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

ADO DAO
plus
plus

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Connect to SQL Server 2000 MSDE

 Keywords:  ADO ADODB SQLOLEDB.1 SQL Server 2000 MSDE

;Connect to SQL Server 2000 MSDE

adOpenStatic = 3
adLockReadOnly = 1
adCmdText = 1

mySQLConn = CreateObject('ADODB.Connection')
mySQLRS = CreateObject('ADODB.Recordset')
mySQLRS.CursorLocation = 3
mySQLConn.Provider = "SQLOLEDB.1"
mySQLConn.ConnectionString = "Provider=SQLOLEDB.1; Network Library=;Password=YOUR_PASSWORD;User ID=YOUR_USER_ID;Initial Catalog=YOUR_DB_NAME;Data Source=PC_NAME\SQL_SERVER_NAME;"
;mySQLConn.ConnectionString = "Provider=SQLOLEDB.1; Data Source=[servername]; Initial Catalog=[database]; Integrated Security=SSPI;" ;Windows authentication instead of a username password

mySQLRS.Open ("SELECT [surname] FROM [dbo].[TSu_person] Where [surname] = 'Name_Required';", mySQLConn, adOpenStatic, adLockReadOnly, adCmdText)

While !mySQLRS.EOF
   Message("Surname: ", mySQLRS.Fields.Item("surname").value)
   mySQLRS.MoveNext()
EndWhile

mySQLRS.Close
mySQLConn.Close()
mySQLRS = 0
mySQLConn = 0

Article ID:   W18036
Filename:   Connect to SQL Server 2000 MSDE.txt
File Created: 2012:11:06:10:33:24
Last Updated: 2012:11:06:10:33:24