Dim server As String, uid As String, pwd As String, dk As String, sql_con As String server = "202.195.*.*" uid = "*" pwd = "*" dk = "1433" sql_con = "DRIVER=SQL Server;SERVER=" & server & ";UID=" & uid & ";PWD=" & pwd & ";WSID=CET46;Network=DBMSSOCN;Address=" & server & "," & dk Set conn = New ADODB.Connection conn.Open (sql_con) Dim sql As String Set RecordSource = New ADODB.Recordset sql = "select top 2000 * from xxdm "RecordSource.Open sql, conn, adOpenKeyset, adLockBatchOptimisticSet msgrid1.Recordset = RecordSource
《Visual Basic数据库实例导航》此書的匯合范例代碼倒是有,也是VB+SQL的
server = "202.195.*.*"
uid = "*"
pwd = "*"
dk = "1433"
sql_con = "DRIVER=SQL Server;SERVER=" & server & ";UID=" & uid & ";PWD=" & pwd & ";WSID=CET46;Network=DBMSSOCN;Address=" & server & "," & dk
Set conn = New ADODB.Connection
conn.Open (sql_con)
Dim sql As String
Set RecordSource = New ADODB.Recordset
sql = "select top 2000 * from xxdm "RecordSource.Open sql, conn, adOpenKeyset, adLockBatchOptimisticSet msgrid1.Recordset = RecordSource