vb 中怎么最简单的连接一个数据库？

追问：来自手机问问谢谢你的回答，就是我要做一个简单的帐号密码登陆系统，就是可以验证你的帐号密码错误与否，像qq一样，密码错误就提示错误，还有可以修改密码的，麻烦你详细教一下，主要的控件、文字解说、代码，我追加100分

答案：首先要知道你用的什么数据库，不同的数据库需要使用不同的数据库连接字符串。然后使用ADO进行连接
MSSQL的连接字符串是
 strConn= "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & Trim(ClientuserID) & ";Password=" & Trim(ClientPWD) & ";Initial Catalog=" & Trim(ClientdataBase) & ";Data Source=" & Trim(ClientserverName)
ClientuserID是数据库登录名
ClientPWD数据库登录密码
ClientdataBase 数据库名
ClientserverName 数据库服务器的IP地址或服务器名
 
ACCESS的连接字符串是
 strConn= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & DBPath
DBPath是数据库路径
 
2、查询 
sqlstr = "select * from tb_basic where 性别 = '" & Trim(cb_易做图.Text) & "' "
If result_data(sqlstr) = True Then
End If
'获取值
Public Function sql_result(sql As String) As String
 Dim conn As New ADODB.Connection
 Dim rs As New ADODB.Recordset
 Set conn = CreateObject("adodb.connection")
 conn.Provider = "Microsoft.Jet.OLEDB.4.0"
 conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\编程狂.mdb;Jet OLEDB:Database Password=8319"
 rs.Open sql, conn, adOpenStatic, adLockOptimistic
 conn.Execute (sql)
 sql_result = rs(0).Value
conn.Close
End Function
 
参考： http://wenwen.zzzyk.com/z/q209154342.htm
定义数据库连接
Public cnn_PDMDB As New ADODB.Connection
定义连接字符串
    cnn_PDMDB.ConnectionString = "Provider=MSDAORA.1;Password=x;User ID=x;Data Source=p.pdm;Persist Security Info=True"

    cnn_PDMDB.CursorLocation = adUseClient
打开连接
    cnn_PDMDB.open 
以上内容放在在模块里

CursorLocation 属性
设置或返回游标服务的位置。

上一个：求。病毒编制语言可以用VB吗？
下一个：为啥我调试vb时不显示即时窗口，