'首先要在工程->引用中引用ado
dim cnn as new adodb.connection
dim rs as new adodb.recordsetsub form_load()
cnn.open "driver={sql server};server=SeverName;database=DatabaseName;uid=sa;pwd="
rs.open "select * from YourTable",cnn
'rs是一個可訪問的記錄集
while not rs.eof
list1.additem rs(0)'rs(0)表示rs記錄集中的第一個字段
wend
end sub
dim cnn as new adodb.connection
dim rs as new adodb.recordsetsub form_load()
cnn.open "driver={sql server};server=SeverName;database=DatabaseName;uid=sa;pwd="
rs.open "select * from YourTable",cnn
'rs是一個可訪問的記錄集
while not rs.eof
list1.additem rs(0)'rs(0)表示rs記錄集中的第一個字段
wend
end sub
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim parm1 As New ADODB.Parameter
Dim parm2 As New ADODB.Parameter
Dim DataPath As String
DataPath = App.Path & "\180record.mdb"Debug.Assert begtime <> Nullbegtime = DateValue(DTPicker1.Value)
endtime = DateValue(DTPicker2.Value)Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & ";Mode=ReadWrite;Persist Security Info=False"
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = conn
cmd.CommandText = "select count(*) from 180_Contxt where i_Date between ? and ?"
cmd.CommandType = adCmdTextSet parm1 = cmd.CreateParameter("i_Date", adDate, adParamInput, 10)
parm1.Value = begtime
cmd.Parameters.Append parm1
Set parm2 = cmd.CreateParameter("i_Date", adDate, adParamInput, 10)
parm2.Value = endtime
cmd.Parameters.Append parm2
conn.Errors.Clear
Set rst = cmd.Execute
If conn.Errors.Count <> 0 Then
MsgBox "发生错误!"
Exit Sub
Else
MsgBox begtime & "至" & endtime & "共处理投诉单" & FormatNumber(rst.Fields(0).Value, 0) & "张"
End If
If DataEnvironment1.rsCommand1.State = 1 Then
DataEnvironment1.rsCommand1.Close
End If
With DataReport1
Set .DataSource = DataEnvironment1
.DataMember = "Command1"End With
DataReport1.ShowEnd Sub