用VB 做成界面以后如何才能實(shí)現(xiàn)與數(shù)據(jù)庫(kù)中的表連接呢?

熱心網(wǎng)友

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控件的屬性中,生成字符串方法,選擇數(shù)據(jù)庫(kù)的類型,名稱,用戶名,密碼。把生成的字符串COPY到字符串1的位置,然后把ADO控件刪除。 '字符串2:是SQL語(yǔ)句。 --------------------------------------------------------------- '首先引用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=數(shù)據(jù)庫(kù)名;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。

熱心網(wǎng)友

哪人說(shuō)得對(duì)