罪恶都市隐藏武器:vb怎样与数据库进行连接?

'SQL版

Private Con As String = "<连接字符串>"'<连接字符串>可以自动生成
Private connection As SqlClient.SqlConnection
Private command As SqlClient.SqlCommand
Public Function DBopen() As Boolean '打开数据库
Try
connection = New SqlClient.SqlConnection
connection.ConnectionString = Con
connection.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
End Function
Public Function DBclose() As Boolean '关闭数据库
Try
connection = New SqlClient.SqlConnection
connection.ConnectionString = Con
connection.Close()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
End Function

'Access版
Private Con As String = "<连接字符串>"'<连接字符串>可以自动生成
Private connconnection As OleDb.OleDbConnection
Private conncommand As OleDb.OleDbCommand
Public Function DBopen() As Boolean
Try
Me.connconnection = New OleDb.OleDbConnection
Me.connconnection.ConnectionString = Con
connconnection.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
End Function
Public Function DBclose() As Boolean
Try
Me.connconnection = New OleDb.OleDbConnection
Me.connconnection.ConnectionString = Con
connconnection.Close()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
End Function

如果楼主使用的是VB6的话应该也能看懂

楼下ctrl+c的真勤快：）下次收版税了：）

Private Sub Search_Click()
Dim dbfTCR As Database
Dim rs As Recordset
Set dbfTCR = DBEngine.Workspaces(0).OpenDatabase("D:\VB 数据库查询\db1.mdb", True)
Set rs = dbfTCR.OpenRecordset("select * from call")
rs.MoveFirst
While Not rs.EOF
List1.AddItem rs.Fields("Test")
rs.MoveNext
Wend
rs.Close
End Sub

Private Con As String = "<连接字符串>"'<连接字符串>可以自动生成
Private connection As SqlClient.SqlConnection
Private command As SqlClient.SqlCommand
Public Function DBopen() As Boolean '打开数据库
Try
connection = New SqlClient.SqlConnection
connection.ConnectionString = Con
connection.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
End Function
Public Function DBclose() As Boolean '关闭数据库
Try
connection = New SqlClient.SqlConnection
connection.ConnectionString = Con
connection.Close()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
End Function

'Access版
Private Con As String = "<连接字符串>"'<连接字符串>可以自动生成
Private connconnection As OleDb.OleDbConnection
Private conncommand As OleDb.OleDbCommand
Public Function DBopen() As Boolean
Try
Me.connconnection = New OleDb.OleDbConnection
Me.connconnection.ConnectionString = Con
connconnection.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
End Function
Public Function DBclose() As Boolean
Try
Me.connconnection = New OleDb.OleDbConnection
Me.connconnection.ConnectionString = Con
connconnection.Close()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
End Function

什么数据库