VB怎么连接数据库...急!!!!!!!!!!

Question

VB怎么连接数据库...急!!!!!!!!!!
要用户密码等.

Answer 1

用一个adodc控件去连接，生成连接字符.access需要密码的话则在连接字符直接加上：Jet OLEDB:Database Password=test，SQL则直接去读字符串引用ado2.5
下面是以access连接为例子
 
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.ConnectionPublic Function MakeConn() As Boolean
    Dim strConn As String    On Error GoTo err    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Datas\PhoneNo.mdb;Persist Security Info=False;Jet OLEDB:Database Password=test"
    Conn.CursorLocation = adUseClient
    Conn.Open strConn
    
    MakeConn = TrueExit Functionerr:
    MakeConn = False
    Debug.Print "连接失败!"
    err.Clear
    
End Function

Answer 2

Imports System.DataDim sqlConnection1 As SqlClient.SqlConnection  
Dim strConnect As String="data source=服务器名;initial catalog=数据库名;user id=sa;password=;" sqlConnection1=New SqlClient.SqlConnection(strConnect) 
try
    sqlConnection1.open              ‘打开数据库
     msgbox("OK")  
     sqlConnection1.close              ‘关闭连接，释放资源 
catch ex As exception
     msgBox(ex.message)
end try###################或者
Public CNN As New ADODB.Connection 
Public GclsReaderGroup As New GzReader Public GstrMealCardReaderTabOption As String Sub Main() 
    Dim strCnn As String 
    strCnn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DasIcCard;Data Source=(Local)" 
    CNN.ConnectionString = strCnn 
    CNN.CursorLocation = adUseClient 
    CNN.Open 
    frmMain.Show End Sub 
'Get the CardID 
Public Function GetCardID(ByVal PressworkID As String, ByVal EmpName As String) As Long 
On Error GoTo Myerror 
    Dim strSQL As String 
    Dim rs As New ADODB.Recordset 
    Dim CardID As Long 
    strSQL = "select cCard.CardID From cCard inner join cEmployee on cCard.CardID=cEmployee.MainCardID" 
    strSQL = strSQL & " where cCard.PressWorkID='" & Trim(PressworkID) & "' and cEmployee.EmployeeName='" & Trim(EmpName) & "'" 
    Set rs = CNN.Execute(strSQL) 
     
    CardID = rs.Fields(0).value 
     
    GetCardID = CardID 
    Set rs = Nothing 
    Exit Function 
Myerror: 
    MsgBox Err.Description 
    GetCardID = 0 
    Resume Next 
End Function记得给分！！！！！！！！！！！！！！！！

Answer 3

2楼给了2套代码，第1套是NET
第2套是VB

Answer 4

你首先建个新的数据库,然后设计个新的数据表.然后用ADO控件
Adodc1.RecordSource = "select * from table_sumdates "
Adodc1.Refresh
text1.text =  adodc1.recordset.fields("字段名")
这个text1.text 就是你的用户名,然后你把text2.text的输入密码与数据库里的数据对比一下对了就进入系统,错误不能时,这样就完成了.

Answer 5

如果有问题发我的[email protected]就行

Answer 6

    '连接字符串 
    Adodc1.ConnectionString = "driver={sql server};server=" + Trim(server) + ";uid=" + Trim(user) + ";pwd=" + Trim(password) + ";database=erp1" 
    '查询users表中全部信息 
    Adodc1.RecordSource = "select * from businessman" 
    '用datagrid显示查询信息 
    Set DataGrid1.DataSource = Adodc1