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