打开数据库的ASP代码与VB有那些区别
编号：QA004572
建立日期: 2002年3月15日 最后修改日期：2002年3月15日
所属类别：
yuying:
在vb中怎样用代码直接打开数据库？我以前总是做Asp，觉得操作数据库很容易，但现在初学VB却无从下手。
请问：在vb中怎样用代码直接打开数据库？
下面是我常用与打开数据库的ASP代码，麻烦请与VB对照一下看有那些区别：
'连接数据库路径（相对路径）：
Set cn=Server.CreateObject("adodb.connection")
connstr = "DRIVER=Microsoft Access Driver (*.mdb);DBQ="&Server.MapPath("DB1.mdb")
'或：connstr="DBQ="+server.mappath("DB1.mdb")+";DefaultDir=; & _
Driver={Microsoft Access Driver (*.mdb)};"
cn.open connstr
'打开数据表：
Set Rs=Server.CreateObject("adodb.recordset")
Sql="Select * from 字段1"
Set Rs=cn.Execute(sql)
'查询：
sql="Select * from 字段1 where 字段2='"& 查询值变量1 &"' and & _
字段3 like '%"& 查询值变量2 &"%' or 字段4 like '%"& 查询值变量3 &"%' & _
order by ID asc And order by 字段2 Desc"
回答:
差别不大，因为都使用的是ADO。在VB中要使用ADO，需要从“工程”菜单中选择“引用”，在对话框中选择Microsoft Active Data Object x.x Library。这里的x.x和你的VB版本有关。下面是对应的例子。主要的区别在于打开数据库不太一样。
打开数据库：
Dim cn As New ADODB.Connection
cn.ConnectionString = "Data Source=" & App.Path & "/" & database_name & ";User ID=" & user_id & _
";Jet OLEDB:Database Password=" & password
cn.CommandTimeout = 100
cn.Provider = "Microsoft.Jet.OLEDB.3.51" ' 这和你使用的VB的版本有关
cn.Open
查询的代码：
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "Select ProductID from products", & _
"Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=d:\vb5_win95\nwind.mdb", _
adOpenDynamic, adLockUnspecified
此问题由李海回答。
| |
|
|
| |
|
|
