vba连接sqlserver,vba连接sqlserver数据库的方式

vba连接sqlserver数据库问题

while( @beginMonth=@endMonth)

begin

select

Execute

End With

Set rs.ActiveConnection = conn

rs.Open cmd

If rs.RecordCount 0 Then

conn.ConnectionString = "Driver={SQL Server};server=HKTNSSK-SQ003;database=Microsoft CSS;Trusted_Connection=yes;"

conn.Open

相关问答

Q1: VBA连接数据库，数据库配置不正确，导致连接失败，要求给出提示，并且退出程序

给你个链接算起来2005的，测试通过

只说链接部分

Set cnn = CreateObject("adodb.connection")

strcn = "Provider=SQLOLEDB.1;User ID=sa;Password=sa1234;Initial Catalog=paracheck;DataSource=ZN" 'ZN为数据库名称

cnn.Open strcn '链接数据库，这里已经成功连接数据库了

st = "SELECT * INTO [" s "] FROM OPENROWSET('Microsoft.ACE.OLEDB.12.0','Excel 12.0;HDR=yes;DATABASE=" [Sheet7].Range("b" i) "','select * from [sheet1$]')" '导入excel到sql2005数据库并新建数据库表名为([Sheet7].Range("a" i))去掉.xls才可以导入，sheet1为表的取名名称，不是表的编码名称

cnn.Execute st

cnn.Close

Set cnn = Nothing

Q2: VBA连接SQLServer的问题

给出报错信息

Private Sub Form_Activate()

Dim conn As New ADODB.Connection

Dim cmd As New ADODB.Command

conn.Provider = "Microsoft.Jet.OLEDB.4.0"

conn.Open basLogin.GetFurnaceDBPath, "admin", ""

Set cmd.ActiveConnection = conn

cmd.CommandText = "SELECT * FROM Slag_CAL order by DateTime "

rs.CursorLocation = adUseClient

rs.Open cmd, , adOpenStatic, adLockOptimistic

If rs.RecordCount 0 Then

blnks = True

rs.MoveFirst

Timer1_Timer

End If

End Sub

还有就是不是那个语句写错。是你的连接不成功。问题是在连接执行语句上。

可能是没有user这个表。还有就是游标没有打开。还有就是连接不成功

Q3: VBA连接SQLSERVER时 老是弹出对话框提示选择数据源

我是这样做的

DataConn_S = "Provider=SQLOLEDB.1;User ID=xxxx;Password=xxxxx;Initial Catalog=TAP; Data Source=xxxxxxx"

Set DT = CreateObject("ADODB.Connection")

DT.Mode = adModeRead

DT.Open DataConn_S

Set RT = CreateObject("ADODB.Recordset")

SS = "select * from new_tap order by Material_Name"

RT.Open SS, DT

if not rt.eof then

sheet1.cells(1,1)=RT("field")

end if

RT.close

DT.close

Q4: 用vba如何连接网上的sql数据库?

代码如下：有问题，发百度消息给我。

在Microsoft visual basic中，工具－引用 Microsoft ActiveX Data Objects 2...选一个高版本的

Dim conn As New ADODB.Connection

connStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"

conn.Open connStr '连接数据库

Dim rs As New Recordset

sql = "select * from a" '查看表a

rs.Open sql, conn, 3, 3

Do While Not rs.EOF '循环表a的内容

MsgBox (rs("field1")) '显示表中field1字段内容

rs.MoveNext

Loop

'connStr = "Driver={SQL Server};DataBase=test;Server=(local);UID=sa;PWD=123"

'test是数据库名

'(local)是服务器名或IP地址，可以：192.168.1.1，可以是：

'sa是数据库用户

'123是数据库用户密码

Q5: VBA连接SQL SERVER连接字符串属性无效

那你在你的sql

server里建一个链接，连接到10.30.1.29试一下，如果不可以，说明你的得到的IP地址有问题，如果可以，那可能是你的防火墙的问题。

－－－－－－－－－－－－－－－－－－

是不是10.30.1.29提供给你的用户及密码不正确，(local)连的是本机的。

－－－－－－－－－－－－－－－

用这样的连接字符串

Driver={SQL

Server};Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;