樹心幽徑

20190418用VB6連線MS-SQL Server 2000的ilvssell資料庫,讀出new_goods資料表的所有資料錄內容
2019/04/18,12:41

(一) 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

 

20190414解碼garmin地圖資訊檔(gmapsupp_Taiwan_moi_zh_camp.img)
2019/04/16,08:57

(1)result:

http://oldwww.kmvs.km.edu.tw/lf/gallery/70/20190414b.txt

 

(2)code

http://oldwww.kmvs.km.edu.tw/lf/index.php?op=ViewResource&blogId=70&resource=twosm-0.c

 

(3) result-2

http://oldwww.kmvs.km.edu.tw/lf/gallery/70/20190416a.txt

(4)code-2

http://oldwww.kmvs.km.edu.tw/lf/index.php?op=ViewResource&blogId=70&resource=twosm-1.c

 

20190408在win10裝SQL-server2000
2019/04/08,13:00

REF:

(0)在命令提示字元執行如下指令來啟用adminitrator

net user administrator /active:yes

(1)以adiministrator登入win10

(1-1)設定c:\windows\syswow64可以修改

(1-2)將c:\windows\syswow64\sqlunirl.dll換成sql2000安裝CD中的sqlunirl.dll(在CDROM: \x86\system\SQLUNIRL.dll, revised 2000‎年‎8‎月‎6‎日, ‏‎下午 04:51:54)

(2)執行安裝光碟中的 F:\x86\setup\setupsql.exe

只能安裝用戶端工具(含enterprise manager及English query)

(3)安裝desktop engine

F:\msde\setup.exe

(4)重開機即成。

 

 

 

 

 
Accessible and Valid XHTML 1.0 Strict and CSS Powered by LifeType