Dim cnn As ADODB.Connection <---------定义 Dim rs As ADODB.Recordset Dim sql As String Set cnn = New ADODB.Connection <--------创建连接 cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jkxt" <------jkxt 是你的数据库名 sql = "select*from information where 车牌号='" & Trim(Text2.Text) & "'" 《-----SQL语句你所要执行的条件 Set rs = New ADODB.Recordset 〈-------创建TECORDSET对象 rs.Open sql, cnn, adOpenKeyset, adLockOptimistic 〈----执行我所做的系统总就这几步啊 (进行添加和查询都成功了,但现在修改/删除功能还未成功,惭愧) 当然最开始你还要先用ADO 连接到你的数据库 不好意思我也是一个新手有错误的地方请原谅。
Dim rs As ADODB.Recordset
Dim sql As String
Set cnn = New ADODB.Connection <--------创建连接
cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jkxt" <------jkxt 是你的数据库名
sql = "select*from information where 车牌号='" & Trim(Text2.Text) & "'" 《-----SQL语句你所要执行的条件
Set rs = New ADODB.Recordset 〈-------创建TECORDSET对象
rs.Open sql, cnn, adOpenKeyset, adLockOptimistic 〈----执行我所做的系统总就这几步啊 (进行添加和查询都成功了,但现在修改/删除功能还未成功,惭愧) 当然最开始你还要先用ADO 连接到你的数据库
不好意思我也是一个新手有错误的地方请原谅。
rs.Open sql, cnn,1,3
然后在属性中选择相关的数据库名称和数据元
最好使用ado控件,他可以访问各种数据库,无需
手动配置,属性筐中可以选择,
程序中直接输入
adodc1.refresh
或
data1.refresh
就可以了
如果
是复杂的sql语句
程序中有
adodc1.recordsourse="select * from 库名 where 条件"'一个复杂的sql语句
adodc1.refresh
data1代码
同样
这些argument 和 value可以是哪些值。