VB ado连接数据库 sql2005

VB访问SQL Server数据的常用方法

Private Sub Form_Load()

Dim AdoConn As New ADODB.Connection
Dim AdoRs As New ADODB.Recordset
Dim strSQL As String
Dim strAdoConn As String
Dim strRs As String
strSQL1 = "select * from wordslist"
strsql2 = "insert into wordslist([userid],[Word] ,[WordExplain],[LearnType]) values('aa','asfsd','fasdf',2)"

On Error Resume Next
strAdoConn = "provider='SQLOledb';Server=127.0.0.1;Database=aspnetdb;UID=sa;PWD=试试;"

' 或者下面连接都可以
'strAdoConn = "provider='SQLOLEDB';Data Source=127.0.0.1;Database=aspnetdb;UID=sa;PWD=试试;"
MsgBox strAdoConn

AdoConn.CommandTimeout = 30
AdoConn.Open strAdoConn

On Error GoTo 0

AdoRs.Open strsql2, AdoConn, adOpenStatic, adLockReadOnly
AdoRs.Open strSQL1, AdoConn, adOpenStatic, adLockReadOnly
If AdoRs.RecordCount > 0 Then strRs = AdoRs!Word
MsgBox strRs
AdoRs.Close
End Sub