UC知道vb中的数据库连接
来源：百度知道 编辑：UC知道 时间：2024/06/22 10:25:09
1.和哪种数据库连接的？2.通过哪个参数连接的？3.如何操作？例如先建一个access数据库，然后再怎样，需要在数据库中添加内容吗？
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sConn As String
'打开路径列表
sConn = App.Path & "\db.mdb"
sConn = "provider=microsoft.jet.oledb.4.0;data source= " & sConn & ";persist security info=false "
conn.ConnectionString = sConn
conn.Open
rs.Open "Select DISTINCT StartName From tmpPath", conn, adOpenStatic
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sConn As String
'打开路径列表
sConn = App.Path & "\db.mdb"
sConn = "provider=microsoft.jet.oledb.4.0;data source= " & sConn & ";persist security info=false "
conn.ConnectionString = sConn
conn.Open
rs.Open "Select DISTINCT StartName From tmpPath", conn, adOpenStatic
Public conn As New ADODB.Connection
Public ConnString As String
Public Sub CON()
ConnString = "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & App.Path & "\数据库名.mdb;Jet OLEDB:Database Password=123456"
If conn.state <> 1 Then
conn.Open (ConnString)
End If
End Sub
以上一般放在模块里,用的时候调CON()就可以了
以下是你要在使用这个库中某个表时写的
Dim rs As New ADODB.Recordset
dim sql as string
sql="select * from 表" ;这个只要是SQL语句就可以
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
执行上面写的SQL语句
rs.fields(0);括号里是字段在表里的位置,从0开始
或者rs.field("字段名")也可以
最后别忘了关闭数据集
rs.close
看看这里
http://xsfhlzh.bokee.com/viewdiary.16918050.html
RunTrans "insert into tab1(......) values(......)"
Public Function RunTrans(ByVal tranSql As Strin