82091785 发表于 2010-10-1 00:44:46

求助有关sql

Dim $ServerIP = '127.0.0.1'
Dim $ServerID = 'sa'
Dim $ServerPWD = 'sa'
Dim $ServerDatabase = 'ECardData'

$conn = ObjCreate("ADODB.Connection")
$RS = ObjCreate("ADODB.Recordset")
$conn.Open("driver={SQL Server};server=" & $ServerIP & ";uid=" & $ServerID & ";pwd=" & $ServerPWD & ";database=" & $ServerDatabase & "")
$RS.ActiveConnection = $conn

;----------------------------查询
Dim $hardware = "dbo.tAccount"
$RS.open("select sPassword from " & $hardware);这里就自由发挥了
MsgBox(0,"返回第一行数据",$RS.Fields(0).value)



http://hiphotos.baidu.com/%B6%C5%B7%E3%B9%A4%D7%F7%CA%D2/pic/item/71ec31f38a1ad954b17ec567.jpg

82091785 发表于 2010-10-1 00:45:58

想做个东西,就是输入sinternalid 中的数据自动读取spassword中的数据

咋写啊
页: [1]
查看完整版本: 求助有关sql