关于VB和SQL数据库的

用VB 做成界面以后如何才能实现与数据库中的表连接呢?

热心网友

ODBC方法:工程--引用--microsoft activeX Data Object 2。6 Library dim 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语句。 --------------------------------------------------------------- '首先引用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 password=basic;Data Source=" & App。Path & "\infoTable。mdb" objrs。Open "select * from infoTable ", objcon, 3, 1 Set DataGrid1。DataSource = objrs。

热心网友

哪人说得对