vb与数据库

如何用vb与sql数据库连接

解决方案 »

  1.   

    ODBC方法:工程-->引用-->microsoft activeX Data Object 2.6 Librarydim conn as new adodb.connection
    dim rs as new adodb.recordset
    conn.open "字符串1"
    rs.open "字符串2",adopenstatic,adlockoptimistic'字符串1:用ADO控件的属性中,生成字符串方法,选择数据库的类型,名称,用户名,密码.把生成的字符串COPY到字符串1的位置,然后把ADO控件删除.
    '字符串2:是SQL语句.
      

  2.   

    楼上的,COPY请注明出处:
    http://expert.csdn.net/Expert/topic/2441/2441726.xml?temp=.1535913
      

  3.   

    '首先引用Microsoft Activex Data Objects 2.x Library 
    Dim objcon As New ADODB.Connection
    Dim objrs As New ADODB.Recordset
    objcon.Open "Provider=sqloledb.1;user id=sa;password=密码;Initial Catalog=数据库名;Data Source="
    objrs.Open "select * from 表 ", objcon, 3, 1
    '再部件中添加DataGrid控件
    Set DataGrid1.DataSource = objrs
    'access
    Dim objcon As New ADODB.Connection
    Dim objrs As New ADODB.Recordset
    objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:database password=basic;Data Source=" & App.Path & "\infoTable.mdb"
    objrs.Open "select * from infoTable ", objcon, 3, 1
    Set DataGrid1.DataSource = objrs