在VB的ADO中怎样连接SQL数据库？怎样访问数据库中的数据？

Question

在VB的ADO中怎样连接SQL数据库？怎样访问数据库中的数据？具体的语法格式是什么？

Answer 1

Public Function ExecuteSQL(sql As String) As ADODB.Recordset
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim msg As String
On Error GoTo executesql_error
Set cn = New ADODB.Connection
'cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=CY"
'cn.Open "Provider=SQLOLEDB;Driver={SQL Server};Server=LPY;Uid=sa;Pwd=;database=CY" '通用行连接也可以适应WIN98
cn.Open "Driver={SQL Server};Server=LPY;Uid=sa;Pwd=;database=CY"
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cn, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
executesql_exit:
Set rst = Nothing
Set cn = Nothing
Exit Function
executesql_error:
msg = "错误原因：" & err.Description
Resume executesql_exit
End Functionsql = "select*from Ckaoqin"
Set rs = ExecuteSQL(sql)
rs.AddNew
With rs
.Fields(0) = Trim(txt_id.Text)
.Fields(1) = Trim(txt_name.Text)
.Fields(2) = Trim(cob_department.Text)
.Fields(3) = Trim(cob_company.Text)
.Fields(4) = Trim(cob_year.Text)
.Fields(5) = Trim(cob_month.Text)
.Fields(6) = Trim(txt_byday.Text)
.Fields(7) = Trim(txt_gxday.Text)
.Fields(8) = Trim(txt_ycqday.Text)
.Fields(9) = Trim(txt_cqday.Text)
.Fields(10) = Trim(txt_kgday.Text)
.Fields(11) = Trim(txt_laterday.Text)
.Fields(12) = Trim(txt_ztday.Text)
.Fields(13) = Trim(txt_qjday.Text)
.Fields(14) = Trim(txt_ccday.Text)
.Fields(15) = Trim(txt_jjrjbday.Text)
.Fields(16) = Trim(txt_qtjbday.Text)
.Fields(17) = Trim(txt_bxtsday.Text)
.Fields(18) = Trim(txt_xxsm.Text)
.Fields(19) = Int(dtp1.Value)
End With
rs.Update
MsgBox "恭喜、恭喜，您添加记录成功~！~谢谢合作~！~", vbOKOnly + vbExclamation, "添加成功"这样可以么？

Answer 2

set cn=new adodb.connection
cn.open "Provider=MSDASQL.1;Persist Security Info=True;Extended Properties=""DRIVER=SQL Server;SERVER=twins;DATABASE=xm_ly;Network=DBMSSOCN;Address=twins"""
set re=new adodb.recordset
re.open "select * from aaa",cn,1,3

Answer 3

Private Sub Form_Load()  Dim Cn as new ADODB.Connection
  Dim sADOConnect_Remote As String
  On Error GoTo ErrD
  
  
  sADOConnect_Remote = "PROVIDER=MSDASQL;Driver=SQL Server;Server=" & ServerName & ";UID=" & LoginName & ";PWD=" & LoginPass & ";Database=" & SQL_DataBase & ";Connect Timeout=60"
  
   Cn.Open sADOConnect_Remote
  
End Sub Private Sub Command1_Click()
  Dim Rs as NEW ADODB.Recordset
  
  Rs.open "Select * from 表名",Cn
  text1.text=rs(0)
  .....                         '可以做其他操作。
  rs.close
  set rs=nothingEnd Sub

Answer 4

Dim cn1 As New ADODB.Connection
    Dim RS1 As New ADODB.Recordset
    Dim sqlstr1 As String
    G_CnString1 = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名;Data Source=服务器名"  '本机为默认windows登陆，此句为SQL连接,无密码.
    
    cn1.ConnectionString = G_CnString1
    sqlstr1 = "select * from 表名 where 条件"
    cn1.Open
    RS1.Open sqlstr1, cn1, adOpenDynamic, adLockOptimistic

Answer 5

http://access911.net/index.asp?board=4&mode=3&recordid=78FAB71E1BDC
http://access911.net/index.asp?board=4&mode=3&recordid=73FAB41E10DC

Answer 6

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）    Dim CN   As New ADODB.Connection                '定义数据库的连接
    Dim Rs   As New ADODB.Recordset
    CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
    CN.Open
    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
   Set DataGrid1.DataSource = Rs

Answer 7

CN.ConnectionString = "Provider=sqloledb;Data Source=服务器名;Initial Catalog=数据库;User Id=用户名;Password=密码;"