189 8069 5689
while( @beginMonth=@endMonth)
创新互联是一家专业提供韩城企业网站建设,专注与网站建设、成都网站设计、H5高端网站建设、小程序制作等业务。10年已为韩城众多企业、政府机构等服务。创新互联专业网站设计公司优惠进行中。
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
给你个链接算起来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
给出报错信息
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这个表。还有就是游标没有打开。还有就是连接不成功
我是这样做的
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
代码如下：有问题，发百度消息给我。
在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是数据库用户密码
那你在你的sql
server里建一个链接，连接到10.30.1.29试一下，如果不可以，说明你的得到的IP地址有问题，如果可以，那可能是你的防火墙的问题。
－－－－－－－－－－－－－－－－－－
是不是10.30.1.29提供给你的用户及密码不正确，(local)连的是本机的。
－－－－－－－－－－－－－－－
用这样的连接字符串
Driver={SQL
Server};Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;