求教：如何使用DAO的方式连接SQL数据库

Question

求教：如何使用DAO的方式连接SQL数据库
里面字段如何写 不使用ODBC的方式即Set g_db = g_ws.OpenDatabase(）还有 如何查看 sql sa账户的用户名

Answer 1

定义recordset记录集和连接属性，打开连接后可以进行增删改查的基本操作，兄弟上网搜下，一堆堆的！

Answer 2

Public conn As New ADODB.Connection ''定义数据连接字符串 
Public rs As New ADODB.Recordset ''定义记录集 
Dim db As String 
Private Sub Form_Load()
 db = "data source=A928;Database=EIMS;server=Localhost;Trusted_Connection=SSPI;"
 conn.CursorLocation = adUseClient 
 conn.Open db '打开数据库连接 
 rs.Open "bwcust", conn, adOpenKeyset, adLockPessimistic '打开记录集 
 rs.Sort = "custid" 
 msgbox rs.RecordCount 
End Sub

Answer 3

Set g_db = g_ws.OpenDatabase("", False,  False, "UID=sa;PWD=myPassword;DATABASE=myServer;DRIVER={SQL SERVER};DSN='';")