要先与数据库建立连接,才能执行sql语句,
要是SQL语句不能对数据库中的数据直接修改或添加,是没有办法对数据库进行更新,必须是正确的sql语句才行,你sql都有错误还想更新数据库.
Adodc2.RecordSource = "select * from 表 where 用户名 like '" & Text1.Text & "'"
Adodc2.Refresh
If Not Adodc2.Recordset.EOF Then
MsgBox "你...
Dim MyConStr As String '连数据库字符串
Dim sqlstr As String
Dim conn As New ADODB.Connection '连接对象
MyConStr = "DSN=ODBC名称;UID=sa;PWD=;" '语句1
Dim rs As New ADODB.Recordset '创建数据集对象
conn2.Open MyConStr '建立数据库连接
sqlstr = "insert 票价...