菜鸟提问:如何连接sql server数据库
这是源程序:
Public cnSqlServer As SqlConnection
Public myDataObj As New SqlDatabase
Public myConnectFlag As Boolean = False
Public cmdSqlServer As New SqlClient.SqlCommand
Public drSqlServer As SqlClient.SqlDataReader
Public strCommand As String '记录数据操作类型
Public strSQLError As String
Public strUserType As String '记录用户类型
Public MDIMain As frmMain
' Public MDIBillInfo As frmBillInfo
'Public MDIGoodsTrans As frmGoodsTrans
Public Sub ConnectDB()
Dim strConnection As String = "Server=jive;" & "Database=store_Data.MDF; user id=sa; password=123456;"
myConnectFlag = myDataObj.connect(strConnection)
If (myConnectFlag) Then
cnSqlServer = myDataObj.getConnectSqlServer()
Else
MsgBox("打开数据库失败")
End If
End Sub
我已经建立了一个store_Data的数据库
但运行的时候怎么总是提示打开数据库失败?????