vb 查询，连接数据库
发布时间：2020-12-17 07:57:07 所属栏目：百科 来源：网络整理
导读：Dim Conn As ADODB.Connection Dim Rs As ADODB.Recordset Set Conn = New ADODB.Connection On Error GoTo ErrorSub Conn.ConnectionString = "Driver={SQL Server};Server=192.168.1.1;Database=test;User ID=sa;Password= 123456" Conn.Open On Error GoTo
|
Dim Conn As ADODB.Connection Dim Rs As ADODB.Recordset Set Conn = New ADODB.Connection On Error GoTo ErrorSub Conn.ConnectionString = "Driver={SQL Server};Server=192.168.1.1;Database=test;User ID=sa;Password= 123456" Conn.Open On Error GoTo 0 Dim sqlcount As String sqlcount = "select * from test where ID ='" & Sheet1.Range("B2").Value & "'" On Error GoTo ErrorSub Set Rs = Conn.Execute(sqlcount) On Error GoTo 0 Dim i,j As Integer i = 2 Sheet2.Range("A1").Value = "a" Sheet2.Range("B1").Value = "b" Sheet2.Range("C1").Value = "c" Do Until Rs.EOF Sheet2.Range("A" & i).Value = Rs.Fields("ID") Sheet2.Range("B" & i).Value = Rs.Fields("username") Sheet2.Range("C" & i).Value = Rs.Fields("password") i = i + 1 Rs.MoveNext Loop Sheet2.Columns("A:A").EntireColumn.AutoFit Sheet2.Columns("B:B").EntireColumn.AutoFit Sheet2.Columns("C:C").EntireColumn.AutoFit Set Rs = Nothing Conn.Close Exit Sub ErrorSub: Call f_ErrorInfo(Conn) End Sub （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |