51Testing软件测试论坛

标题: 帮忙一 [打印本页]

作者: yangfengwait 时间: 2005-12-15 15:47
标题: 帮忙一
Sub Main
Dim Result As Integer
dim i as integer
dim que as string
dim x,y as long
dim retcode as variant
dim qualifier as string
dim datasources(1 to 50) as variant
dim action1 as integer

x=sqlopen("DRIVER=SQL Server;UID=sa;PWD=;DATABASE=PCM025B;SERVER=192.168.10.161",prompt:=3)

que="SELECT * FROM PCM025B.HARDWAREIPUT"

y=sqlexecquery(x,que)
sqlclose(x)

End Sub

作者: yangfengwait 时间: 2005-12-15 15:48
为什么y返回-1

作者: ilovejolly 时间: 2005-12-15 16:06
以前有对数据库操作的例子，包括怎么配制数据源，你照着做就可以了

作者: yangfengwait 时间: 2005-12-15 16:14
有吗，没找到啊

作者: ilovejolly 时间: 2005-12-15 17:01
http://bbs.51testing.com/viewthread.php?tid=72&extra=page%3D1

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)