请问VB与sql server连接的有关问题
请教VB与sql server连接的问题
本人是个刚刚接触vb没多久的菜鸟，因为要做毕设，有些关于VB与sql server连接的问题想请教各位
如何才能建立连接，我按照书上的代码打总是告诉我无效的内部枚举。我的数据库名称是stall_manage，具体应该怎么操作才能连接上。
Public Function connecttodatabase(dbtype As gxcdbtype) As Boolean '连接到数据库，从这开始就显示无效的内部枚举了。
On Error GoTo err_conn
Set stall = New Connection
Dim servername As String, dbname As String, username As String, strpwd As String '设置服务器名称，数据库名，登录名
Dim strdbpath As String
servername = "localhost" '连接sql server
dbname = "stall_manage"
username = "sa"
strpwd = ""
strdbpath = App.Path & "\bishe\stall_manage.mdf"
With stall '连接到数据库
.CursorLocation = adUseClient
.CommandTimeout = 10
.ConnectionString = "provider=sqloledb.1;persist security info=true;" & "user id=" & username & "inital cataolg= " & dbname & ";data source=" & servername & ";pwd=" & strpwd
.Open
End With
connecttodatabase = True
End Function
还有就是在设计登录界面的时候，如何才能调用数据库中的password表，代码要如何编写。
因为过几天就要交了，请大家务必帮忙
------解决方案--------------------
本人是个刚刚接触vb没多久的菜鸟，因为要做毕设，有些关于VB与sql server连接的问题想请教各位
如何才能建立连接，我按照书上的代码打总是告诉我无效的内部枚举。我的数据库名称是stall_manage，具体应该怎么操作才能连接上。
Public Function connecttodatabase(dbtype As gxcdbtype) As Boolean '连接到数据库，从这开始就显示无效的内部枚举了。
On Error GoTo err_conn
Set stall = New Connection
Dim servername As String, dbname As String, username As String, strpwd As String '设置服务器名称，数据库名，登录名
Dim strdbpath As String
servername = "localhost" '连接sql server
dbname = "stall_manage"
username = "sa"
strpwd = ""
strdbpath = App.Path & "\bishe\stall_manage.mdf"
With stall '连接到数据库
.CursorLocation = adUseClient
.CommandTimeout = 10
.ConnectionString = "provider=sqloledb.1;persist security info=true;" & "user id=" & username & "inital cataolg= " & dbname & ";data source=" & servername & ";pwd=" & strpwd
.Open
End With
connecttodatabase = True
End Function
还有就是在设计登录界面的时候，如何才能调用数据库中的password表，代码要如何编写。
因为过几天就要交了，请大家务必帮忙
------解决方案--------------------