VB 代码纠错 我的数据库 是以windows用户登录 uid 和 pwd 填什么 还有server 是填 local吗
我的数据库是以windows用户登录uid和pwd填什么还有server是填local吗下面代码还有什么问题给我纠正下OptionExplicitPrivateSubCo...
我的数据库 是以windows用户登录 uid 和 pwd 填什么 还有server 是填 local吗
下面代码还有什么问题 给我纠正下
Option Explicit
Private Sub Command1_Click()
Dim Con As New ADODB.Connection
Dim ConStr As String
Con.CursorLocation = adUseClient
ConStr = "driver=sql server;server=你的数据库服务器名;uid=sa;pwd=你的密码;database=你的数据库名;"
Con.Open ConStr
Con.Execute "SELECT * INTO 表 FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=F:\Excel\ks.xls',sheet1$)"
Con.Close
Set Con = Nothing
End Sub 展开
下面代码还有什么问题 给我纠正下
Option Explicit
Private Sub Command1_Click()
Dim Con As New ADODB.Connection
Dim ConStr As String
Con.CursorLocation = adUseClient
ConStr = "driver=sql server;server=你的数据库服务器名;uid=sa;pwd=你的密码;database=你的数据库名;"
Con.Open ConStr
Con.Execute "SELECT * INTO 表 FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;DATABASE=F:\Excel\ks.xls',sheet1$)"
Con.Close
Set Con = Nothing
End Sub 展开
1个回答
2011-01-06
展开全部
没有问题,填上你自己的信息就可以了,“你的数据库服务器名”填你电脑的ip或名称,如果数据库在本机,填“(local)”--引号内的内容,用户sa一般都有,密码一般是空的(如果你没改过)
ConStr = "driver=sql server;server=你的数据库服务器名;uid=sa;pwd=你的密码;database=你的数据库名;"
写成:
ConStr = "driver=sql server;server=(local);uid=sa;pwd=;database=你的数据库名;"
ConStr = "driver=sql server;server=你的数据库服务器名;uid=sa;pwd=你的密码;database=你的数据库名;"
写成:
ConStr = "driver=sql server;server=(local);uid=sa;pwd=;database=你的数据库名;"
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |