Question

vb连接数据库密码如何写入?

Dim db As New ADODB.Connection, RS As New ADODB.RecordsetDim strSQL As Stringdb.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);dbQ=" & App.Path & "\MOA.mdb" '数据库在程序目录中db.OpenstrSQL = "Select * from TKR_ITEM_TBL Where ITM_NBR='" & ck & "'"RS.Open strSQL, db, 3, 2If Not RS.EOF Thenxk = RS!ITM_NBRElsexk = ""End IfRS.CloseSet RS = Nothing
这个是我连接的代码
数据库是一个连接表.链接表点开的时候需要输入密码.不是打开数据库的密码.是连接这个表的时候的密码

密码是YY10YY
望懂的大神帮帮忙





Answer 1

既然是链接表，你可以跳过moa.mdb,直接连接链接表所连接的数据库

追问

不行.必须使用MOA这个链接.这个是要求....

追答

Dim adoCatalog As New ADOX.Catalog
Set adoCatalog.ActiveConnection = db
adoCatalog.Tables.Item("链接表表名").Properties.Item("Jet OLEDB:Link Provider String").Value = "链接表连接字符串，这里可写上密码" '比如 "Excel 5.0;HDR=yes;IMEX=2"
试试只写密码部分（我没测试过,不行就写全吧）：
adoCatalog.Tables.Item("链接表表名").Properties.Item("Jet OLEDB:Link Provider String").Value = "pwd=YY10YY"
另外，好像可以设置默认连接用户名和密码，这样就不必每次连接时要输入密码。

追问

高手Q能加我吗296 0481 27

这里的追问只能有几个字.

追答

adoCatalog.Tables.Item("TKR_ITEM_TBL").Properties.Item("Jet OLEDB:Link Provider String").Value = "pwd=YY10YY;"
如果不行就写全：
adoCatalog.Tables.Item("TKR_ITEM_TBL").Properties.Item("Jet OLEDB:Link Provider String").Value ="ODBC;Driver={Microsoft ODBC For Oracle};Server=;Uid=;Pwd=;"
另外最好备份好moa.mdb，如果链接表连接字符串设置的与原来的不一样，会导致moa.mdb的链接表改变

追问

adoCatalog.Tables.Item("TKR_ITEM_TBL").Properties.Item("Jet OLEDB:Link Provider String").Value = "ODBC;Driver={Microsoft ODBC For Oracle};Server=<ORA7>;Uid=<TKR>;Pwd=<YY10YY>;"
我这样写提示

追答

你要去掉!!!!
adoCatalog.Tables.Item("TKR_ITEM_TBL").Properties.Item("Jet OLEDB:Link Provider String").Value = "ODBC;Driver={Microsoft ODBC For Oracle};Server=ORA7;Uid=TKR;Pwd=YY10YY;"

追问

谢谢关注

这次提示未指定的错误

追答

运行到哪一句报错？另外，你看看手动打开TKR_ITEM_TBL表，是否能打开

追问

adoCatalog.Tables.Item("TKR_ITEM_TBL").Properties.Item("Jet OLEDB:Link Provider String").Value = "ODBC;Driver={Microsoft ODBC For Oracle};Server=ORA7;Uid=TKR;Pwd=YY10YY;"
还是这一句
手动打开TKR_ITEM_TBL表输入密码就可以

追答

改成这样看看：
adoCatalog.Tables.Item("TKR_ITEM_TBL").Properties.Item("Jet OLEDB:Link Provider String").Value ="PROVIDER=msdaora;DATA SOURCE=ORA7;USER ID=TKR;PASSWORD=YY10YY;"

追问

加上去的这一句提示

追答

msgbox adoCatalog.Tables.Item("TKR_ITEM_TBL").Properties.Item("Jet OLEDB:Link Provider String").Value '用这一句看看原来的连接字符串是什么

Answer 2

db="Provider=Microsoft.Jet.OleDb.4.0;Data Source="& App.Path & "\dxs.mdb;Jet OleDb:DataBase Password=密码"

追问

还是不行.还是需要密码
到这一句的时候提示密码
RS.Open strSQL, db, 3, 2

追答

db.ConnectionString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & App.Path & "\MOA.mdb;Jet OleDb:DataBase Password=密码"

我写的这句在我的电脑上验证通过了的，运行到RS.Open strSQL, db, 3, 2没有提示需要密码，只是提示表和字段名错误，通过修改这里（strSQL = "Select * from TKR_ITEM_TBL Where ITM_NBR='" & ck & "'"）的表名和字段名，配成我的MDB数据库的表名和字段名后，运行通过

追问

还是提示输入密码..这个密码不是MOA.mdb的,是连接的这个表TKR_ITEM_TBL 的密码

追答

这个没探讨过，帮不了你了。

追问

高手帮帮忙吧.真的没有办法了吗?
strSQL = "Select * from TKR_ITEM_TBL Where ITM_NBR='" & ck & "'"
是这里的strSQL需要密码.但是我不知道怎么加进去...

追答

试试这句行不？

strSQL = "select * into TKR_ITEM_TBL from OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\MOA.mdb;Jet OLEDB:Database Password=数据库MBD的密码;user id=TKR;password='YY10YY‘)“

追问

加上去的这一句提示