VB与SQL2000连接问题
--------------------编程问答-------------------- 很简单的问题,用ado实现Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库;Data Source=."
sql = "insert into jobs (字段1,字段2) values ('" & text1 & "','" & text2 & "')"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic
--------------------编程问答-------------------- 书上不是有例子吗?照书敲一遍调试一下~ --------------------编程问答-------------------- 搜一点VB教程什么的就不错。因为VB已经用了很多年了,书籍资料很全了 --------------------编程问答-------------------- 插入insert
查询select
很简单,不要指望别人给你现成的代码,这样学不到东西 --------------------编程问答-------------------- Public AdoCon As ADODB.Connection Public Const ConStr As String = "driver={sql server};server=10.1.0.40;uid=sa;pwd=wingshing;database=InfoAnalyse;"
Public cn As New ADODB.Connection
Public ds As New ADODB.Recordset
Dim sTokens() As String
Dim RsAdo As ADODB.Recordset
sTokens = Split(sql)
Set AdoCon = New ADODB.Connection
AdoCon.Open ConStr
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
AdoCon.Execute sql
Else
Set RsAdo = New ADODB.Recordset
RsAdo.Open Trim$(sql), AdoCon, adOpenKeyset, adLockBatchOptimistic
Set ExecuteSQL = RsAdo
End If
补充:VB , 基础类