当前位置:首页 » 编程语言 » vbasqlserver

vbasqlserver

发布时间: 2022-09-27 23:00:15

Ⅰ 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

Ⅱ vba 用ADO连接不上sqlserver 错误提示:client unable to establish connection

试试看
="DRIVER={SQL SERVER};SERVER=172.29.6.187;UID=xx;PWD=xxx"

Ⅲ vba access 将Access数据导入到sqlserver

吧sqlserver作为数据源,可以直接导的。你查查

docmd.exprot.......

Ⅳ 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这个表。还有就是游标没有打开。还有就是连接不成功

热点内容
php传输 发布:2025-07-11 10:25:40 浏览:239
计算法框图 发布:2025-07-11 10:08:32 浏览:549
电容触摸安卓一体机市场前景如何 发布:2025-07-11 10:08:27 浏览:840
c程序的编译单位是 发布:2025-07-11 10:07:42 浏览:901
怎么看网站的服务器 发布:2025-07-11 10:03:16 浏览:604
红米手机wlan输入密码在哪里 发布:2025-07-11 10:02:32 浏览:433
懒人学编程 发布:2025-07-11 09:44:58 浏览:333
android命令行签名 发布:2025-07-11 09:44:15 浏览:881
应用密码怎么取消密码 发布:2025-07-11 09:28:33 浏览:797
pythonubuntumysql 发布:2025-07-11 09:23:47 浏览:531