VB与SQL2000连接问题

Question

本帖最后由 forgivejp 于 2010-09-12 12:04:53 编辑

Answer 1

很简单的问题,用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

Answer 2

搜一点VB教程什么的就不错。因为VB已经用了很多年了，书籍资料很全了

Answer 3

插入insert
查询select
很简单，不要指望别人给你现成的代码，这样学不到东西

Answer 4

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