VB连接ACCESS

来源：百度知道 编辑：UC知道 时间：2024/05/22 07:35:44
Private Sub Command1_Click()
Dim sSQL As String
Dim A As String
Dim B As Date Dim C As Date
A = Trim(Text1.Text)
B = Trim(Text2.Text)
C = Trim(Text3.Text)
Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Program Files\VB98\gongcheng\db8.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open "select * from 爆炸物品出库记录（有编号） where ( 领取人 = '" & A & " ')and (出库时间 between #" & B & " #and #" & C & "#) ", cn, 3, 1
Set DataGrid1.DataSource = rs
Exit Sub
End If
End Sub

在上面的基础上想加一个DATAGRID2，用来显示表：爆炸物品出库记录（无编号）里的信息，查寻条件一样。
...
Dim A As String
Dim B As Date Dim C As Date
A = Trim(Text1.Text)
B = Trim(Text2.Text)
C = Trim(Text3.Text)
...这一段总是有错误，哪位高手教教小第哪错了？？？？

B和C变量也应该声明为String类型,text2.text和text3.text的值都为字符型。如果一定要把B和C都声明为日期型，那么需要把text2.text和text3.text转换为日期型

这段出错的代码可有两种方法：

方法1：
Dim A As String
Dim B As String
Dim C As String

A = Trim(Text1.Text)
B = Trim(Text2.Text)
C = Trim(Text3.Text)

方法2
Dim A As String
Dim B As date
Dim C As date

A = Trim(Text1.Text)
B = cdate(Trim(Text2.Text))
C = cdate(Trim(Text3.Text))

http://www.soft-hr.cn 这里有一些VB和SQL SERVER的技术文章，你可以来看看，如还有问题，欢迎到论坛发贴