VB.NET的连接字串问题
我用 VB.NET 连接 SQL 数据库时出现
不支持关键字: “provider”
的错误，，请是什麽问题？？
是连接字串的问题吗？？应该怎麽解决？？
谢了。。
下面是出错的代码段。。。。
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
Try
'设置连接字串
ConnectString = "Provider=sqloledb;Persist Security Info=False;Data Source= " & server & "; " & _
"Initial Catalog= " & database & ";User ID= " & username & ";Password= " & password & "; "
SqlCnt = New SqlConnection(ConnectString) '连接数据库
Catch ex As Exception
LastErrorContent = ex.Message
Return -1
End Try
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
[解决办法]
用server=...不用provider
给你个例子
dim conn as SqlConnection
dim da as SqlDataAdapter
dim ds as Dataset
set conn = new SqlConnection
conn.ConnectionString= "server=serverIP;database=databasename;uid=userid;pwd=password ";
conn.open
da = new SqlDataAdapter ( <sql> ,conn)
da.fill(ds)
[解决办法]
用provider 也可以
Sub Main()
On Error GoTo On_error
'frmWelcome.Show
Set con = New ADODB.Connection
con.ConnectionString = ( "Provider=SQLOLEDB;User ID=sa;PWD=;Initial Catalog=human;Data Source=. ")
con.Open
con.CommandTimeout = 20
Load frmLogin
frmLogin.Show vbModal
Exit Sub
On_error:
If Err.Number = -2147467259 Or Err.Number = -2147217900 Then
Unload frmWelcome
MsgBox "检查到 SQL Server 未安装或软件所需数据库未安装... " & vbCrLf & "正在进一步检查 SQL Server 的安装情况,若已启动则开始安装数据库... ", vbInformation + vbOKOnly, "系统提示 "
Shell (App.Path & "\Installdb.exe ")
End
Else
MsgBox Err.Number & Err.Description, vbInformation + vbOKOnly, "系统提示 "
End
End If
End Sub
