vb 用ADODC做相对路径连接access数据库

FileDir = AppPath & "\"

FileName = "数据库名称accdb"

FullFileName = FileDir + FileName

ConnStr = "Provider=MicrosoftACEOLEDB120;Data Source=" + FullFileName + ";Jet OLEDB:Database Password=123456;Persist Security Info=False;"

Adodc1ConnectionString = ConnStr

Adodc1CommandType = adCmdText

Adodc1RecordSource = "select from " & combobox1 & "cssj where 日期='" & combobox2 & "'"

Adodc1Refresh

text1 = AdodcEmpRecordsetFields(2)Value

text2 = AdodcEmpRecordsetFields(3)Value

text3 = AdodcEmpRecordsetFields(4)Value

text4 = AdodcEmpRecordsetFields(5)Value

datagrid1datasource=adodc1

With Adodc1

ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=c:\123mdb;Persist Security Info=False"

RecordSource = "数据库中表的名字"

Refresh

End With

1使用

使用

instr([列名称],"字符串")>0

判断有‘字符串1’的行

2使用

instr([列名称],"字符串")函数判断字符串起始位置

两个字符串的

函数值

差再减去len(字符串1)为90就是了

strConn = "Provider=SQLOLEDB1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=kaoqing;Data Source=JANSON" 不知上句的字符串内容是否正确。sql数据库的连接代码我没有，给ACCESS数据库的连接代码供参考：strConn = "Provider=MicrosoftJetOLEDB40;Data Source=" AppPath "\hxrkglmdb;Persist Security Info=False"你的其它代码经调试未发现问题，正确运用了ADODB数据对象。但从你的叙述中看，你另外使用了ADODC数据控件，是否是该功件的属性设置有问题。补充：1)ADODC数据控件作连接字符串正确后，如未指定数据表，运行会报错，你可删除该控件，运行你的代码不会有问题。如果你是新建数据工程，VB会自行加载ADO数据对象。如果你是新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 20 LIBRARY加钩即可。不过建议按新建数据工程简单。2)我用以下代码调试你的主要代码，仅按新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 20 LIBRARY加钩，并添加DATAGRID部件，无问题，在VB6调试：Private Sub Form_Load()Dim strConn As StringDim pubConn As New ADODBConnectionDim rsTable As New ADODBRecordsetDim strSQL As String'strConn = "Provider=SQLOLEDB1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=kaoqing;Data Source=JANSON"strConn = "Provider=MicrosoftJetOLEDB40;Data Source=" AppPath "\hxrkglmdb;Persist Security Info=False"pubConnOpen strConnrsTableCursorLocation = adUseClientstrSQL = "select from mdlk_sj"'strSQL = "select from attdcardrec"rsTableOpen strSQL, pubConn, adOpenDynamic, adLockOptimisticSet DataGrid1DataSource = rsTableEnd Sub

adodc1ConnectionString = "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\数据库名mdb;Jet OLEDB:Database Password=数据库密码;Everyone,数据库密码"

以上就是关于vb 用ADODC做相对路径连接access数据库全部的内容，包括:vb 用ADODC做相对路径连接access数据库、VB Adodc 和 DataGrid 控件连接Access数据库、vb中我是用adodc控件连接sql数据库如何用sql语句实现查询功能等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！