vb连接SQL 调用表语句怎么写

来源：百度知道 编辑：UC知道 时间：2024/05/22 12:56:14
Dim dbcnn As New ADODB.Connection
Dim dbrs As New ADODB.Recordset
Private Sub Command1_Click()
If dbcnn.State = 0 Then
Dim cnnstr As String
dbcnn.CursorLocation = adUseClient
cnnstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurity Info=False;Initial Catalog=student;Data Source=yanzhen."
dbcnn.Open cnnstr
End If
If dbrs.State = 1 Then
dbrs.Clone
End If
Dim sqlstr As String
sqlstr = "select * from qq"
dbrs.Open sqlstr, dbcnn, adOpenStatic, adLockBatchOptimistic
Set DataGrid1.DataSource = dbrs
End Sub

dbcnn.CursorLocation = adUseClient
cnnstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;PersistSecurity Info=False;Initial Catalog=student;Data Source=yanzhen."
dbcnn.Open cnnstr
End If
If dbrs.State = 1 Then
dbrs.Clone
End If
Dim sqlstr As String
sqlstr = "select * from qq"

Dim conn As Data.OleDb.OleDbConnection
Dim provider = "Provider=SQLOLEDB"
Dim database = "Data Source=192.168.1.229;Initial Catalog=PowerTechOA;User ID=sack;Password=sack123"
conn = New Data.OleDb.OleDbConnection(provider & ";" & database)
conn.Open()
Dim sql As String
Dim cmd As Data.OleDb.OleDbCommand
sql = "UPDATE 访问量记录 SET 访问量 = 访问量 + 1 WHERE (栏目名称 = '库存量查询')"
'sql = "select * from 访问量记录 "
cmd = New Data.OleDb.OleDbCommand