湖濱散記部落格的樹心幽徑[login][主頁]
494:20190418用VB6連線MS-SQL Server 2000的ilvssell資料庫,讀出new_goods資料表的所有資料錄內容

(一) setup

alt

 

(二) code1

Public cn As New ADODB.Connection
Public rs As New ADODB.Recordset



Private Sub Command1_Click()
Form1.Cls
st = "Provider=SQLOLEDB; Perslist Security Info=False; User ID=cat; Pwd=cat123; Initial Catalog=ilvssell; Data Source=10.1.1.9"
cn.Open st

MsgBox "連線成功" & st
sqlstr = "select gdsno, gdsname, price_sell, stock_qty from new_goods"
rs.Open sqlstr, cn, , , adCmdText
c = 0
While Not rs.EOF
    c = c + 1
    x = c & ":" & rs("gdsno") & ":" & rs("gdsname") & ":" & rs("price_sell") & ":" & rs("stock_qty")
    List1.AddItem x
    Combo1.AddItem x
   
    Print x
    rs.MoveNext
Wend
rs.Close
  
cn.Close

End Sub

 

(二b) code2

Private Sub Command2_Click()

Set cn = CreateObject("ADODB.Connection")

cn.ConnectionString = "Provider=SQLOLEDB; Perslist Security Info=False; User ID=cat2; Pwd=abc123; Initial Catalog=ilvssell; Data Source=10.1.1.9"cn.OpenPrint "connection ok!"

Set rs = CreateObject("ADODB.Recordset")

sqlstr = "select gdsno, gdsname, price_sell, stock_qty from new_goods"

rs.Open sqlstr, cn, , , adCmdText

c = 0

While Not rs.EOF   

c = c + 1   

Print c & ":" & rs("gdsname") & ":" & rs("stock_qty")   

rs.MoveNext

Wend

rs.Close

cn.Close
End Sub

 


select id,article_id,topic,text from lt_articles_text where article_id =494; ok. update lt_articles set num_reads=num_reads +1 where id=494; ok.