德国城市经济排名:VB.NET怎么连接数据库
来源:百度文库 编辑:查人人中国名人网 时间:2024/03/29 13:43:33
这些代码是放在哪呢,是那个.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
两者没什么大区别