一个简单问题

Question

如何在代码上实现数据库的绑定？  而不是在ADODC属性里直接置ConnectionString，这样设置太死了。             比方我现在有个服务器叫 DBSERVER 下面数据库里有个名为Library的数据库 我怎么样才能连上？  

Answer 1

什么数据库!?Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim rs As New ADODB.Recordset'在MSHFLEXGRID表格控件中显示查询到的内容
Private Sub Command1_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = rs
End Sub'向数据库中添加数据
Private Sub Command2_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
    rs.AddNew
    rs!UID = txtUid.Text
    rs!PWD = txtPwd.Text
    rs!TRUENAME = txtName.Text
    rs!CREATEDATE = Format(Now, "YYYY/MM/DD")
    rs.Update
    
    Command1.Value = True
End Sub'从数据库中删除数据
Private Sub Command3_Click()
    cn.Execute "DELETE FROM USERPASSWORD WHERE UID = '" & txtUid.Text & "'"
    Command1.Value = True
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
        "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End SubPrivate Sub MSHFlexGrid1_RowColChange()
    With MSHFlexGrid1
        MsgBox .TextMatrix(.Row, .Col)
    End With
End Sub

Answer 2

假如你的数据库是Sql Server工程->引用->Microsoft ActiveX Data Objects 2.X Library Private Sub Form_Load()
Dim Con As New ADODB.Connection
Dim Rs As New ADODB.RecordsetCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Library;Data Source=DBSERVER"Rs.Open "select * from lbwu", Con, 1, 3End Sub如果想动态的修改服务器名和数据库名，可以把连接信息放在文本文件或ini文件里具体的文本操作和ini文件操作，可以查msdn或者网上的代码

Answer 3

conn.execute "delete from [yourtab] where ......"

Answer 4

删除可以 con.execute "delete from [yourtable] where ......"也可以rs.open "delete from [yourtable] where ......",con,1,3不过上一个方法更好。修改，更新的方法和这个类似，具体的语句在书上或网上找。

Answer 5

Rs.Open "select * from lbwu", Con, 1, 3             里 1，3 是指什么？