vba連接sqlserver數(shù)據(jù)庫問題

while( @beginMonth=@endMonth)

創(chuàng)新互聯(lián)是一家專業(yè)提供韓城企業(yè)網站建設,專注與網站建設、成都網站設計、H5高端網站建設、小程序制作等業(yè)務。10年已為韓城眾多企業(yè)、政府機構等服務。創(chuàng)新互聯(lián)專業(yè)網站設計公司優(yōu)惠進行中。

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

VBA連接數(shù)據(jù)庫，數(shù)據(jù)庫配置不正確，導致連接失敗，要求給出提示，并且退出程序

給你個鏈接算起來2005的，測試通過

只說鏈接部分

Set cnn = CreateObject("adodb.connection")

strcn = "Provider=SQLOLEDB.1;User ID=sa;Password=sa1234;Initial Catalog=paracheck;DataSource=ZN" 'ZN為數(shù)據(jù)庫名稱

cnn.Open strcn '鏈接數(shù)據(jù)庫，這里已經成功連接數(shù)據(jù)庫了

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數(shù)據(jù)庫并新建數(shù)據(jù)庫表名為([Sheet7].Range("a" i))去掉.xls才可以導入，sheet1為表的取名名稱，不是表的編碼名稱

cnn.Execute st

cnn.Close

Set cnn = Nothing

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

還有就是不是那個語句寫錯。是你的連接不成功。問題是在連接執(zhí)行語句上。

可能是沒有user這個表。還有就是游標沒有打開。還有就是連接不成功

VBA連接SQLSERVER時 老是彈出對話框提示選擇數(shù)據(jù)源

我是這樣做的

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

用vba如何連接網上的sql數(shù)據(jù)庫?

代碼如下：有問題，發(fā)百度消息給我。

在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 '連接數(shù)據(jù)庫

Dim rs As New Recordset

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

rs.Open sql, conn, 3, 3

Do While Not rs.EOF '循環(huán)表a的內容

MsgBox (rs("field1")) '顯示表中field1字段內容

rs.MoveNext

Loop

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

'test是數(shù)據(jù)庫名

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

'sa是數(shù)據(jù)庫用戶

'123是數(shù)據(jù)庫用戶密碼

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;