輸入A,B,C三個數值,然後找出最大的數?
本人為初學者,Thanks！
提供小吳 VBQA 包含VB6,VB 2003,VB 2005,VB 2008,VB 2010,2013,2015 ,2019,VB.NET,Visual Studio,Visual Basic,程式設計,C#,ASP.NET , Windows From , SQL Server , Crystal Report,VBA,HTML,網頁設計,微軟,98,XP, API ,KB .
請問站長先生或其他高手??!(編號：4182)
首先謝謝你之前回答我關於 Transaction 的問題,
我是用 VB sp3 和資料庫是 Access;
我需要進行一個程序, 將一大批資料從Table1搬到另一個相同Structure 的Table2, 當中需要Insert .. & Delete,
站長之前曾建議我用Table Lock, 因為我是QueryDef 來進行這個動作的, 因為比較快吧!,
但如何用 Table Lock, 我一點頭緒也沒有,
有人可以用實際例子明示我嗎!
謝謝!
我是用 VB sp3 和資料庫是 Access;
我需要進行一個程序, 將一大批資料從Table1搬到另一個相同Structure 的Table2, 當中需要Insert .. & Delete,
站長之前曾建議我用Table Lock, 因為我是QueryDef 來進行這個動作的, 因為比較快吧!,
但如何用 Table Lock, 我一點頭緒也沒有,
有人可以用實際例子明示我嗎!
謝謝!
把Monitor的電源燈變成橘色的(編號：4181)
請問各位先進：
Windows 95 裡銀幕保護程式中監視器省電功能
裡的關閉監視器，(把Monitor的電源燈變成
橘色的)可用VB控制嗎？如何做呢，或哪裡有參
考資料呢，請各位前輩不吝賜教。
Windows 95 裡銀幕保護程式中監視器省電功能
裡的關閉監視器，(把Monitor的電源燈變成
橘色的)可用VB控制嗎？如何做呢，或哪裡有參
考資料呢，請各位前輩不吝賜教。
datagrid輸入資料難題(編號：4180)
我以DataGrid來作資料建檔,每當Key值輸入重複時會出現
Microsoft DataGrid控制項視窗
(你要求變更資料表.關於會對索引....產生重複值......)
該如何控制此種狀況,請大家賜教..thks....
Microsoft DataGrid控制項視窗
(你要求變更資料表.關於會對索引....產生重複值......)
該如何控制此種狀況,請大家賜教..thks....
求救vb一嚴重問題 !!!!!!!!(編號：4178)
vb的程式 :
有二執行檔 : A.exe B.exe
A.exe 中
Sub main()
If App.PreInstance = False Then
.........
.........
End If
End Sub
按開始功能表中,click "A",執行 A.exe , 會在Windows右下角,有一icon,
A.exe開始執行,但視窗隱藏起來.Double Click 此icon,執行B.exe
B.exe 中
Sub main()
Dim hwnd As Long
hwnd = FindWindow(NullString,"A的標題")
If hwnd = 0 Then
Call Shell(App.Path & "A.exe")
End If
If App.PreInstance = False Then
..........
..........
End If
End Sub
當A.exe,B.exe都執行起來時,依使用者使用狀況,兩者會有傳遞視窗訊息的情形,所以才這樣設計.
此時,再去按開始功能表中,click "A",執行 A.exe,出現錯誤訊息 : "遺失 A.lnk" ,
click "確定",然後整個Windows很多功能都沒辦法執行,畫面殘缺
我是希望使用者重覆click "A",執行 A.exe,都不會發生錯誤
請問會是什麼原因 ? 這問題怎麼解決 ??
Thanks !!!
winman
chsu@acer.net
有二執行檔 : A.exe B.exe
A.exe 中
Sub main()
If App.PreInstance = False Then
.........
.........
End If
End Sub
按開始功能表中,click "A",執行 A.exe , 會在Windows右下角,有一icon,
A.exe開始執行,但視窗隱藏起來.Double Click 此icon,執行B.exe
B.exe 中
Sub main()
Dim hwnd As Long
hwnd = FindWindow(NullString,"A的標題")
If hwnd = 0 Then
Call Shell(App.Path & "A.exe")
End If
If App.PreInstance = False Then
..........
..........
End If
End Sub
當A.exe,B.exe都執行起來時,依使用者使用狀況,兩者會有傳遞視窗訊息的情形,所以才這樣設計.
此時,再去按開始功能表中,click "A",執行 A.exe,出現錯誤訊息 : "遺失 A.lnk" ,
click "確定",然後整個Windows很多功能都沒辦法執行,畫面殘缺
我是希望使用者重覆click "A",執行 A.exe,都不會發生錯誤
請問會是什麼原因 ? 這問題怎麼解決 ??
Thanks !!!
winman
chsu@acer.net
表單變更(編號：4176)
在MDI表單變更尺寸後，MDICHILD會隨著變換並為MDI表單蓋住，請問當MDI表單最大化後，要如何再重繪MDICHILD表單以回復原狀呢?
各位大哥可否寫個簡單的程式碼供小弟參考呢?謝謝!
各位大哥可否寫個簡單的程式碼供小弟參考呢?謝謝!
如何得知BIG 5, GB內碼(編號：4175)
本人想寫有BIG5,GB,UNICODE內碼查詢程式，請教各位先進
1)何處可以FREE下載如BIG 5碼的交換碼、中文字形、總筆劃數、部首、
部首筆劃數的資料庫或文字檔。經本人查詢www.cns11643.org可以
big 5 plus的資料，即延伸部份，但之前則無
2)在textbox輸入big 5，自動找出相對內碼，不知各位先進有何idea
指點一下迷津。(unicode部份已經寫出)
3)大陸網友有見本文章者，可否告知陳國強
http://www.quanqiu.com/vb之外是否有類網站可以free下載相關gb內碼
等資料。(陳國強所附的文字檔裡的內碼，有很多重複，因此其唯一
性及正確性是有待驗證)
'
'
'
謝謝
1)何處可以FREE下載如BIG 5碼的交換碼、中文字形、總筆劃數、部首、
部首筆劃數的資料庫或文字檔。經本人查詢www.cns11643.org可以
big 5 plus的資料，即延伸部份，但之前則無
2)在textbox輸入big 5，自動找出相對內碼，不知各位先進有何idea
指點一下迷津。(unicode部份已經寫出)
3)大陸網友有見本文章者，可否告知陳國強
http://www.quanqiu.com/vb之外是否有類網站可以free下載相關gb內碼
等資料。(陳國強所附的文字檔裡的內碼，有很多重複，因此其唯一
性及正確性是有待驗證)
'
'
'
謝謝
執行後會出現: 事件程序的宣告與同名事件的描述不相符(編號：4174)
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'ASCII 13正是 Enter字元
Gtext = Combo1.Text
If Combo1.ListCount ＞ 0 Then
For N = 0 To Combo1.ListCount - 1
Combo1.ListIndex = N
If Gtext = Combo1 Then P = 1
Next
End If
If P = 0 And Trim(Gtext) ＜＞ "" Then
Combo1.AddItem Gtext, 0 '將要新增的資料放在第一位上
Combo1 = Gtext
End If
End If
End Sub
執行後會出現: 事件程序的宣告與同名事件的描述不相符
why 和解 謝謝
If KeyAscii = 13 Then 'ASCII 13正是 Enter字元
Gtext = Combo1.Text
If Combo1.ListCount ＞ 0 Then
For N = 0 To Combo1.ListCount - 1
Combo1.ListIndex = N
If Gtext = Combo1 Then P = 1
Next
End If
If P = 0 And Trim(Gtext) ＜＞ "" Then
Combo1.AddItem Gtext, 0 '將要新增的資料放在第一位上
Combo1 = Gtext
End If
End If
End Sub
執行後會出現: 事件程序的宣告與同名事件的描述不相符
why 和解 謝謝
請問幾個列印的問題(編號：4173)
請問幾個列印的問題
我在form用data控制元件連access97的一個mdb
新增一個data environment 連相同的mdb
再建一個data report
連data environment的一個sql command_grouping
以顧客名稱分組
有幾個問題想請教一下
(1)新增資料如果沒有update或修改資料後沒有退出在進入
datareport就不會有新資料或資料依然是舊資料
這一點改如何改善
(2)列印時要如何一頁只印一個客戶
在datareport裡可以做到嗎
(3)列印時只要用A4紙一半的大小
從左邊開始印之後同一張紙接著印右方
(4)列印時如果同一客戶資料在同一頁的同一邊印不下
要如何讓他自動換邊或換頁
非常謝謝您的回答
歡迎各位喜歡園藝的朋友來參觀
或一起討論各種園藝的問題
迷你盆栽 http://club.kimo.com.tw/clubs/tree402/
我在form用data控制元件連access97的一個mdb
新增一個data environment 連相同的mdb
再建一個data report
連data environment的一個sql command_grouping
以顧客名稱分組
有幾個問題想請教一下
(1)新增資料如果沒有update或修改資料後沒有退出在進入
datareport就不會有新資料或資料依然是舊資料
這一點改如何改善
(2)列印時要如何一頁只印一個客戶
在datareport裡可以做到嗎
(3)列印時只要用A4紙一半的大小
從左邊開始印之後同一張紙接著印右方
(4)列印時如果同一客戶資料在同一頁的同一邊印不下
要如何讓他自動換邊或換頁
非常謝謝您的回答
歡迎各位喜歡園藝的朋友來參觀
或一起討論各種園藝的問題
迷你盆栽 http://club.kimo.com.tw/clubs/tree402/
胡思亂想之儲存問題...(編號：4171)
如果我有一個很大的整數...真的非常大..
我的13gb硬碟存不下這個數字...
請問有沒有解決方法？我想把它儲存下來..
可別叫我在買一個硬碟...＞_＜...再十顆也不夠
我的13gb硬碟存不下這個數字...
請問有沒有解決方法？我想把它儲存下來..
可別叫我在買一個硬碟...＞_＜...再十顆也不夠
某大企業財團投資將成立新網路公司，營運性質與Online Game Comm(編號：4169)
某大企業財團投資（在此不便透露投資主身份，請多多包涵）正式成立新網路公司籌備處。營運性質與Online Game Community有關，所以目前亟需下類人才，如果您有認識不錯的朋友，請幫幫忙找尋，並請他將個人簡歷email到doraemonking@hotmail.com給我，謝謝！
1. DBA（Data Base Administrator）
l 需求人數：1~2
l 需求專長：
1. 必備：SQL Server、Oracle、Visual C++、COM，能獨立自主並規劃協調統籌者，有分散式系統管理、設計與遠端資料庫同步經驗者尤佳。
2. 非必備條件：Visual Basic、VB Script、Java、Java Script
l 工作內容：需負責規劃大型資料庫之Schema，並能實際Setup與Tune DB Server，且需參與部分DB UI與DB API Coding工作。以及帶領其他DBE合作開發程式，管理以及維護DB Server。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
2. DBE（Data Base Engineer）
l 需求人數：1~2
l 需求專長：
1. 必備：SQL Server或Oracle、Visual C++、COM，能獨立自主並規劃協調統籌者，有分散式系統設計與遠端資料庫同步經驗者尤佳。
2. 非必備條件：Visual Basic、VB Script、Java、Java Script
l 工作內容：需配合DBA合作開發程式，並能設計DB UI與DB API程式。能實際Setup與Tune DB Server，管理以及維護DB Server者優先錄用。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
3. 系統支援工程師
l 需求人數：1
l 需求專長：
1. 必備：HTML、VB Script、Java Script、FreeBSD或IIS，能獨立自主並規劃協調、統籌管理與架設實體網路系統，包含Web Site Server與Mail Server者。另需能管理以及維護電腦硬體。
2. 非必備條件：XML
l 工作內容：依公司需求架設內部網路，以及Setup與管理對外Server，並管理公司內部電腦設備。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
1. DBA（Data Base Administrator）
l 需求人數：1~2
l 需求專長：
1. 必備：SQL Server、Oracle、Visual C++、COM，能獨立自主並規劃協調統籌者，有分散式系統管理、設計與遠端資料庫同步經驗者尤佳。
2. 非必備條件：Visual Basic、VB Script、Java、Java Script
l 工作內容：需負責規劃大型資料庫之Schema，並能實際Setup與Tune DB Server，且需參與部分DB UI與DB API Coding工作。以及帶領其他DBE合作開發程式，管理以及維護DB Server。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
2. DBE（Data Base Engineer）
l 需求人數：1~2
l 需求專長：
1. 必備：SQL Server或Oracle、Visual C++、COM，能獨立自主並規劃協調統籌者，有分散式系統設計與遠端資料庫同步經驗者尤佳。
2. 非必備條件：Visual Basic、VB Script、Java、Java Script
l 工作內容：需配合DBA合作開發程式，並能設計DB UI與DB API程式。能實際Setup與Tune DB Server，管理以及維護DB Server者優先錄用。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
3. 系統支援工程師
l 需求人數：1
l 需求專長：
1. 必備：HTML、VB Script、Java Script、FreeBSD或IIS，能獨立自主並規劃協調、統籌管理與架設實體網路系統，包含Web Site Server與Mail Server者。另需能管理以及維護電腦硬體。
2. 非必備條件：XML
l 工作內容：依公司需求架設內部網路，以及Setup與管理對外Server，並管理公司內部電腦設備。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
請教 ShowDep 的 trace 結果......(編號：4163)
大家好,小弟這裡有個問題,我以ShowDep 4.1Beta trace 一隻程式 A.exe 它會引用pbvm70.dll,及a.dll ;trace結果當中有一行
*****************************************************
GetProcAddress(0x02040000[a.dll],_getVtableinfo_a@12) called from 0x112A9799 [pbvm70.dll],returned 0x020417E0
*****************************************************
我是否可以在VB裡面,叫用 _getVTableinfo_a@12 這隻程式嗎? william
完整的 trace log 如下:
LoadLibraryA("A.dll") caled from 0x112A9854[pbvm70.dll]
Loaded "R:\Test\A.dll" at 0x02040000
LoadLibraryA("A.dll') return 0x02040000
GetProcAddress(0x02040000[a.dll],_getVtablegetVtableinfo_a@12) called from 0x112A9799 [pbvm70.dll],returned 0x020417E0
GetProcAddress(0x02040000[a.dll],_getVtablegetVtableinfo_w_main@12) called from 0x112A9799 [pbvm70.dll],returned 0x02042C10
LoadLibraryExW("C:\WINNT\system32\MSIDLE.DLL",0,LOAD_WITH_ALTERED_SEARCH_PATH) called from 0x77E49A7B [User32.dll]
Loaded "C:\WINNT\system32\MSIDLE.DLL" at 0x71190000
LoadLibraryExW("C:\WINNT\system32\MSIDLE.DLL") at 0x7119
Unloaded "a.dll" at 0x02040000
Thread 0000012A exited with code 0x00000000
Process exited with code 0x00000000
*****************************************************
GetProcAddress(0x02040000[a.dll],_getVtableinfo_a@12) called from 0x112A9799 [pbvm70.dll],returned 0x020417E0
*****************************************************
我是否可以在VB裡面,叫用 _getVTableinfo_a@12 這隻程式嗎? william
完整的 trace log 如下:
LoadLibraryA("A.dll") caled from 0x112A9854[pbvm70.dll]
Loaded "R:\Test\A.dll" at 0x02040000
LoadLibraryA("A.dll') return 0x02040000
GetProcAddress(0x02040000[a.dll],_getVtablegetVtableinfo_a@12) called from 0x112A9799 [pbvm70.dll],returned 0x020417E0
GetProcAddress(0x02040000[a.dll],_getVtablegetVtableinfo_w_main@12) called from 0x112A9799 [pbvm70.dll],returned 0x02042C10
LoadLibraryExW("C:\WINNT\system32\MSIDLE.DLL",0,LOAD_WITH_ALTERED_SEARCH_PATH) called from 0x77E49A7B [User32.dll]
Loaded "C:\WINNT\system32\MSIDLE.DLL" at 0x71190000
LoadLibraryExW("C:\WINNT\system32\MSIDLE.DLL") at 0x7119
Unloaded "a.dll" at 0x02040000
Thread 0000012A exited with code 0x00000000
Process exited with code 0x00000000
以Powerbuiler 開發,可不可以VB 叫用其DLL......(編號：4156)
大家好
我們公司先前有以Powerbuilder開發的程式,產生成幾個DLL及一個EXE檔,因為它是由工具程式所產生的,非C,故是否可由VB叫用DLL的方式來叫用其程式,而非ShellExe執行其EXE檔;倘若可以,應該是必需知道其 Func.name,參數,及那一個DLL;有那種工具可協助知道 william
我們公司先前有以Powerbuilder開發的程式,產生成幾個DLL及一個EXE檔,因為它是由工具程式所產生的,非C,故是否可由VB叫用DLL的方式來叫用其程式,而非ShellExe執行其EXE檔;倘若可以,應該是必需知道其 Func.name,參數,及那一個DLL;有那種工具可協助知道 william
判斷重複資料！！！！(編號：4155)
不好意思！！！！再度麻煩各位一個問題喔！！！！現在我可以用亂數產生資料了，但是我的問題是我如何去讓程式判定我這比亂數的資料是已經產生過的呢，因為我的亂數資料是要存入資料庫中的，所以是否可以指導我該如何去判別呢？？？？
用vb6.0 之mscomm所寫之程式無法用在win95 中嗎 ?(編號：4150)
各位先進您好,我於win98中使用vb6.0利用mscomm控制項所寫之程式,將其compile成.exe檔,拿到別台win98系統去執行時,出現一個對話框,說需要mscomm32.ocx,將mscomm32.ocx copy 至\windows\system去後已可執行,但畫面有點怪怪的,而將此.exe之程式拿到win95系統下執行時,其會出現沒有任何字之對話框,而不會出現此.exe該出現之畫面,請教各位先進要如何解決? 有沒有辦法在將vb程式compile成.exe時就將所須知東西放入,就可在任何windows環境下執行 ??
VBA的授權問題(編號：4146)
我現在在word的巨集裡想做一個表單，而表單裡有個物件為CommonDialog，所以我須要引用Microsoft common Dialog control6.0，但當我拉物件到我的表單時，則會出現"未取得適當的授權"，那是什麼原因呢？若我不想要程式碼(API的方式)來撰寫，那可以有什麼辦法來取得授權，麻煩大家....謝謝
如何即時顯示更新後的資料在DBGrid物件(編號：4141)
請問一個關於資料庫的問題:
如果我有一個程式在兩台電腦上同時執行,並且用DBGrid物件作顯示及更新動作(Access MDB資料庫),當我A電腦用DBGrid物件檢視資料表X,B電腦用DBGrid物件新增一筆資料在資料表X,A電腦如何知道資料表X的內容有新增一筆資料了,而在DBGrid上顯示新增的資料
我在檢視時似乎不會即時顯示新增的一筆資料,要如何才可以像Access那樣有人更改了資料庫的內容,它就可以即時顯示更新後的資料
VB5 SP3 + Office97 + Win98
如果我有一個程式在兩台電腦上同時執行,並且用DBGrid物件作顯示及更新動作(Access MDB資料庫),當我A電腦用DBGrid物件檢視資料表X,B電腦用DBGrid物件新增一筆資料在資料表X,A電腦如何知道資料表X的內容有新增一筆資料了,而在DBGrid上顯示新增的資料
我在檢視時似乎不會即時顯示新增的一筆資料,要如何才可以像Access那樣有人更改了資料庫的內容,它就可以即時顯示更新後的資料
VB5 SP3 + Office97 + Win98
不知如何完成首頁中滑鼠移動時酷酷的感覺(編號：4136)
近日看了不少網站之首頁(如桂思強老師,麻辣中心...),都可見到滑鼠移到哪裡就有一串＜歡迎光臨.....＞的七彩文字跟在滑鼠後面跑來跑去,好酷!!!不知可有高手願意指導如何完成之?不勝感謝
(對不起,這個問題不知與VB是否有關)
(對不起,這個問題不知與VB是否有關)
救命! 急!(編號：4135)
我的硬碟被
format c:/q
Format掉了!
我甚麼都還沒蓋過上去,
有甚麼方法能把它救回??
另外, 我沒有Ghost這類型的軟體,
有沒有方法救到?
拿出街鋪來修理, 他們能否救回我之前的資料 ???
請各位盡快回答, 及電郵給我
eric@hktopone.com
萬分感謝!
format c:/q
Format掉了!
我甚麼都還沒蓋過上去,
有甚麼方法能把它救回??
另外, 我沒有Ghost這類型的軟體,
有沒有方法救到?
拿出街鋪來修理, 他們能否救回我之前的資料 ???
請各位盡快回答, 及電郵給我
eric@hktopone.com
萬分感謝!
長整數相加、減、乘(編號：4134)
這可是包仔寫很久才寫出來的
提出來與大家分享
至於除法嘛...我還沒寫出來
Public Function AddFunction(Value1 As String, Value2 As String) As String '長整數相加
Dim i As Integer
Dim j As Integer
Dim Values1(100) As Integer
Dim Values2(100) As Integer
Dim OkValues(100) As Integer
Dim Steps As Integer
Dim Limit As Integer
Dim MaxCounts As Integer
If Len(Value1) ＞= Len(Value2) Then MaxCounts = Len(Value1) Else MaxCounts = Len(Value2)
For i = Len(Value1) To 1 Step -1
Steps = Steps + 1
Values1(Steps) = Val(Mid(Value1, i, 1))
Next i
Steps = 0
For i = Len(Value2) To 1 Step -1
Steps = Steps + 1
Values2(Steps) = Val(Mid(Value2, i, 1))
Next i
For i = 1 To MaxCounts
OkValues(i) = OkValues(i) + Values1(i) + Values2(i)
If OkValues(i) ＞= 10 Then
Limit = MaxCounts + 1
OkValues(i + 1) = OkValues(i + 1) + 1
OkValues(i) = OkValues(i) - 10
Else
Limit = MaxCounts
End If
Next i
AddFunction = ""
For i = Limit To 1 Step -1
AddFunction = AddFunction & Trim(OkValues(i))
Next i
If AddFunction = "" Then AddFunction = "0'"
End Function
Public Function DecFunction(Value1 As String, Value2 As String) '長整數相減
Dim i As Integer
Dim j As Integer
Dim Values1(100) As Integer
Dim Values2(100) As Integer
Dim BigValue As String
Dim SmallValue As String
Dim OverZero As Boolean
Dim OkValues(100) As Integer
Dim Limit As Integer
Dim MaxCounts As Integer
If Len(Value1) ＞ Len(Value2) Then Value2 = String(Len(Value1) - Len(Value2), "0") & Value2
If Len(Value1) ＜ Len(Value2) Then Value1 = String(Len(Value2) - Len(Value1), "0") & Value1
For i = 1 To Len(Value1)
If Mid(Value1, i, 1) ＞ Mid(Value2, i, 1) Then
BigValue = Value1
SmallValue = Value2
OverZero = False
Exit For
End If
If Mid(Value1, i, 1) ＜ Mid(Value2, i, 1) Then
BigValue = Value2
SmallValue = Value1
OverZero = True
Exit For
End If
Next i
For i = 1 To Len(BigValue)
Values1(i) = Val(Mid(BigValue, Len(BigValue) - i + 1, 1))
Values2(i) = Val(Mid(SmallValue, Len(SmallValue) - i + 1, 1))
OkValues(i) = OkValues(i) + Values1(i) - Values2(i)
If OkValues(i) ＜ 0 And i ＜ Len(BigValue) Then
OkValues(i + 1) = OkValues(i + 1) - 1
OkValues(i) = OkValues(i) + 10
End If
Next i
For i = Len(BigValue) To 1 Step -1
If OkValues(i) ＜＞ 0 Then
Limit = i
Exit For
End If
Next i
DecFunction = ""
For i = 1 To Limit
DecFunction = Trim(OkValues(i)) & DecFunction
Next i
If OverZero = True Then DecFunction = "-" & DecFunction
If DecFunction = "" Then DecFunction = "0"
End Function
Public Function SubFunction(Value1 As String, Value2 As String) As String '長整數相乘
Dim Code1(100) As Integer
Dim Code2(100) As Integer
Dim Code3(201) As Integer
Dim Steps1 As Integer
Dim Steps2 As Integer
Dim Subtotal As Integer
ii = Len(Value1)
jj = Len(Value2)
Steps1 = 0
For i = ii To 1 Step -1
Steps1 = Steps1 + 1
Code1(Steps1) = Val(Mid(Value1, i, 1))
Steps2 = 0
For j = jj To 1 Step -1
Steps2 = Steps2 + 1
Code2(Steps2) = Val(Mid(Value2, j, 1))
Code3(Steps1 + Steps2 - 1) = Code3(Steps1 + Steps2 - 1) + (Code1(Steps1) * Code2(Steps2))
If Code3(Steps1 + Steps2 - 1) ＞= 10 Then
u = Code3(Steps1 + Steps2 - 1) \ 10
Code3(Steps1 + Steps2 - 1) = Code3(Steps1 + Steps2 - 1) - u * 10
Code3(Steps1 + Steps2) = Code3(Steps1 + Steps2) + u
End If
Next j
Next i
For a = 1 To ii + jj - 1
If Code3(a) ＞= 10 Then
u = Code3(a) \ 10
Code3(a + 1) = Code3(a + 1) + u
Code3(a) = Code3(a) - u * 10
End If
Next a
SubFunction = ""
If Code3(ii + jj) ＜＞ 0 Then t = ii + jj Else t = ii + jj - 1
For i = t To 1 Step -1
SubFunction = SubFunction + Trim(Code3(i))
Next i
If SubFunction = "" Then SubFunction = "0"
End Function
Public Function DivFunction(Value1 As String, Value2 As String) As String '長整數相加
Dim MaxLen As Integer
If Len(Value1) ＞= Len(Value2) Then MaxLen = Len(Value1) Else MaxLen = Len(Value2)
If DivFunction = "" Then DivFunction = "0"
End Function
提出來與大家分享
至於除法嘛...我還沒寫出來
Public Function AddFunction(Value1 As String, Value2 As String) As String '長整數相加
Dim i As Integer
Dim j As Integer
Dim Values1(100) As Integer
Dim Values2(100) As Integer
Dim OkValues(100) As Integer
Dim Steps As Integer
Dim Limit As Integer
Dim MaxCounts As Integer
If Len(Value1) ＞= Len(Value2) Then MaxCounts = Len(Value1) Else MaxCounts = Len(Value2)
For i = Len(Value1) To 1 Step -1
Steps = Steps + 1
Values1(Steps) = Val(Mid(Value1, i, 1))
Next i
Steps = 0
For i = Len(Value2) To 1 Step -1
Steps = Steps + 1
Values2(Steps) = Val(Mid(Value2, i, 1))
Next i
For i = 1 To MaxCounts
OkValues(i) = OkValues(i) + Values1(i) + Values2(i)
If OkValues(i) ＞= 10 Then
Limit = MaxCounts + 1
OkValues(i + 1) = OkValues(i + 1) + 1
OkValues(i) = OkValues(i) - 10
Else
Limit = MaxCounts
End If
Next i
AddFunction = ""
For i = Limit To 1 Step -1
AddFunction = AddFunction & Trim(OkValues(i))
Next i
If AddFunction = "" Then AddFunction = "0'"
End Function
Public Function DecFunction(Value1 As String, Value2 As String) '長整數相減
Dim i As Integer
Dim j As Integer
Dim Values1(100) As Integer
Dim Values2(100) As Integer
Dim BigValue As String
Dim SmallValue As String
Dim OverZero As Boolean
Dim OkValues(100) As Integer
Dim Limit As Integer
Dim MaxCounts As Integer
If Len(Value1) ＞ Len(Value2) Then Value2 = String(Len(Value1) - Len(Value2), "0") & Value2
If Len(Value1) ＜ Len(Value2) Then Value1 = String(Len(Value2) - Len(Value1), "0") & Value1
For i = 1 To Len(Value1)
If Mid(Value1, i, 1) ＞ Mid(Value2, i, 1) Then
BigValue = Value1
SmallValue = Value2
OverZero = False
Exit For
End If
If Mid(Value1, i, 1) ＜ Mid(Value2, i, 1) Then
BigValue = Value2
SmallValue = Value1
OverZero = True
Exit For
End If
Next i
For i = 1 To Len(BigValue)
Values1(i) = Val(Mid(BigValue, Len(BigValue) - i + 1, 1))
Values2(i) = Val(Mid(SmallValue, Len(SmallValue) - i + 1, 1))
OkValues(i) = OkValues(i) + Values1(i) - Values2(i)
If OkValues(i) ＜ 0 And i ＜ Len(BigValue) Then
OkValues(i + 1) = OkValues(i + 1) - 1
OkValues(i) = OkValues(i) + 10
End If
Next i
For i = Len(BigValue) To 1 Step -1
If OkValues(i) ＜＞ 0 Then
Limit = i
Exit For
End If
Next i
DecFunction = ""
For i = 1 To Limit
DecFunction = Trim(OkValues(i)) & DecFunction
Next i
If OverZero = True Then DecFunction = "-" & DecFunction
If DecFunction = "" Then DecFunction = "0"
End Function
Public Function SubFunction(Value1 As String, Value2 As String) As String '長整數相乘
Dim Code1(100) As Integer
Dim Code2(100) As Integer
Dim Code3(201) As Integer
Dim Steps1 As Integer
Dim Steps2 As Integer
Dim Subtotal As Integer
ii = Len(Value1)
jj = Len(Value2)
Steps1 = 0
For i = ii To 1 Step -1
Steps1 = Steps1 + 1
Code1(Steps1) = Val(Mid(Value1, i, 1))
Steps2 = 0
For j = jj To 1 Step -1
Steps2 = Steps2 + 1
Code2(Steps2) = Val(Mid(Value2, j, 1))
Code3(Steps1 + Steps2 - 1) = Code3(Steps1 + Steps2 - 1) + (Code1(Steps1) * Code2(Steps2))
If Code3(Steps1 + Steps2 - 1) ＞= 10 Then
u = Code3(Steps1 + Steps2 - 1) \ 10
Code3(Steps1 + Steps2 - 1) = Code3(Steps1 + Steps2 - 1) - u * 10
Code3(Steps1 + Steps2) = Code3(Steps1 + Steps2) + u
End If
Next j
Next i
For a = 1 To ii + jj - 1
If Code3(a) ＞= 10 Then
u = Code3(a) \ 10
Code3(a + 1) = Code3(a + 1) + u
Code3(a) = Code3(a) - u * 10
End If
Next a
SubFunction = ""
If Code3(ii + jj) ＜＞ 0 Then t = ii + jj Else t = ii + jj - 1
For i = t To 1 Step -1
SubFunction = SubFunction + Trim(Code3(i))
Next i
If SubFunction = "" Then SubFunction = "0"
End Function
Public Function DivFunction(Value1 As String, Value2 As String) As String '長整數相加
Dim MaxLen As Integer
If Len(Value1) ＞= Len(Value2) Then MaxLen = Len(Value1) Else MaxLen = Len(Value2)
If DivFunction = "" Then DivFunction = "0"
End Function
小吳對不起，借貼一下。某大企業財團投資將成立新公司，亟需DBA,(編號：4133)
某大企業財團投資（在此不便透露投資主身份，請多多包涵）正式成立新公司籌備處。所以目前亟需下類人才，如果您有認識不錯的朋友，請幫幫忙找尋，並請他將個人簡歷email到doraemonking@hotmail.com給我，謝謝！
1. DBA（Data Base Administrator）
l 需求人數：1~2
l 需求專長：
1. 必備：SQL Server、Oracle、Visual C++、COM，能獨立自主並規劃協調統籌者，有分散式系統管理、設計與遠端資料庫同步經驗者尤佳。
2. 非必備條件：Visual Basic、VB Script、Java、Java Script
l 工作內容：需負責規劃大型資料庫之Schema，並能實際Setup與Tune DB Server，且需參與部分DB UI與DB API Coding工作。以及帶領其他DBE合作開發程式，管理以及維護DB Server。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
2. DBE（Data Base Engineer）
l 需求人數：1~2
l 需求專長：
1. 必備：SQL Server或Oracle、Visual C++、COM，能獨立自主並規劃協調統籌者，有分散式系統設計與遠端資料庫同步經驗者尤佳。
2. 非必備條件：Visual Basic、VB Script、Java、Java Script
l 工作內容：需配合DBA合作開發程式，並能設計DB UI與DB API程式。能實際Setup與Tune DB Server，管理以及維護DB Server者優先錄用。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
3. 系統支援工程師
l 需求人數：1
l 需求專長：
1. 必備：HTML、VB Script、Java Script、FreeBSD或IIS，能獨立自主並規劃協調、統籌管理與架設實體網路系統，包含Web Site Server與Mail Server者。另需能管理以及維護電腦硬體。
2. 非必備條件：XML
l 工作內容：依公司需求架設內部網路，以及Setup與管理對外Server，並管理公司內部電腦設備。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
1. DBA（Data Base Administrator）
l 需求人數：1~2
l 需求專長：
1. 必備：SQL Server、Oracle、Visual C++、COM，能獨立自主並規劃協調統籌者，有分散式系統管理、設計與遠端資料庫同步經驗者尤佳。
2. 非必備條件：Visual Basic、VB Script、Java、Java Script
l 工作內容：需負責規劃大型資料庫之Schema，並能實際Setup與Tune DB Server，且需參與部分DB UI與DB API Coding工作。以及帶領其他DBE合作開發程式，管理以及維護DB Server。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
2. DBE（Data Base Engineer）
l 需求人數：1~2
l 需求專長：
1. 必備：SQL Server或Oracle、Visual C++、COM，能獨立自主並規劃協調統籌者，有分散式系統設計與遠端資料庫同步經驗者尤佳。
2. 非必備條件：Visual Basic、VB Script、Java、Java Script
l 工作內容：需配合DBA合作開發程式，並能設計DB UI與DB API程式。能實際Setup與Tune DB Server，管理以及維護DB Server者優先錄用。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
3. 系統支援工程師
l 需求人數：1
l 需求專長：
1. 必備：HTML、VB Script、Java Script、FreeBSD或IIS，能獨立自主並規劃協調、統籌管理與架設實體網路系統，包含Web Site Server與Mail Server者。另需能管理以及維護電腦硬體。
2. 非必備條件：XML
l 工作內容：依公司需求架設內部網路，以及Setup與管理對外Server，並管理公司內部電腦設備。
l 工作性質：全職。
l 薪資福利：薪資與股票，面議。週休二日。
l 學經歷：不拘、有經驗者優先錄用。
l 需求時間：2000年8月開始。
l 工作地點：台北市。
Keyboard hook的問題,alt抓不到?會失效?(編號：4131)
我利用SetWindowsHookEx安置hook,想攔截system wide的WM_KEYDOWN事件,問題1.幾乎所有keydown的事件都可以攔截到,就只有alt攔截不到(shift,ctrl,alt我是利用GetAsyncKeyState判斷的);問題2.另外就是如果按下windows(呼叫開始功能表),則整個hook會失效,要重新啟動,請問這兩個問題可有解?我使用Win98+VB6+SP3,謝謝！
不同form之間資料傳遞及互動?(編號：4129)
1 formA.load()
2 formD.enable = true
formD 查得資料傳回formA 的 textA.text
formD.enable = false
formA.show
3 print textA.text
4 end sub
因為 3 不會等待 2 執行完，所以textA.text無資料
formA、formB、formC 皆可使用 formD 之功能
請問有無方法解決?
2 formD.enable = true
formD 查得資料傳回formA 的 textA.text
formD.enable = false
formA.show
3 print textA.text
4 end sub
因為 3 不會等待 2 執行完，所以textA.text無資料
formA、formB、formC 皆可使用 formD 之功能
請問有無方法解決?
求救(編號：4127)
我想寫一個program
是一個連接winfax 的一個program
可以supervoice用來做connect的
個program要有一個name list 的
在name list 內按兩下就可以fax 的了
在fax program 內的內容是自動填寫的
而在另一個 list 就是顯示現在fax 中的次序排列
我要知道要在正是在fax 那一個人的
有邊個高手可以幫幫我同教我呀
是一個連接winfax 的一個program
可以supervoice用來做connect的
個program要有一個name list 的
在name list 內按兩下就可以fax 的了
在fax program 內的內容是自動填寫的
而在另一個 list 就是顯示現在fax 中的次序排列
我要知道要在正是在fax 那一個人的
有邊個高手可以幫幫我同教我呀
怎麼辦(編號：4126)
由輸入檔讀入兩行資料，相加結果輸出至輸出檔案中，每行一筆資料
兩數最大30位數
輸入檔：〈add.in〉； 輸出：〈add.out〉
1； 3
2； 600
100； 1099999999999999
500；
100000000000000；
999999999999999；
兩數最大30位數
輸入檔：〈add.in〉； 輸出：〈add.out〉
1； 3
2； 600
100； 1099999999999999
500；
100000000000000；
999999999999999；
怎麼辦(編號：4125)
由輸入檔讀入兩行資料，相加結果輸出至輸出檔案中，每行一筆資料
兩數最大30位數
輸入檔：〈add.in〉 輸出：〈add.out〉
1 3
2 600
100 1099999999999999
500
100000000000000
999999999999999
兩數最大30位數
輸入檔：〈add.in〉 輸出：〈add.out〉
1 3
2 600
100 1099999999999999
500
100000000000000
999999999999999
datacombo與adodc一問(編號：4122)
Private Sub DataCombo1_Change() 'datacombo1為產品名稱
Dim Prod_Nm As String
Prod_Nm = DataCombo1.Text '當產品名稱改變時adodc1跟著改變
Adodc1.RecordSource = "select 規格 from 產品規格設定 where 品名= ' " & Prod_Nm & " ' "
Adodc1.Refresh 'adodc1為adcmdunknown用jet4.0連access2000
DataCombo2.RowSource = Adodc1 '以adodc1為list的來源
DataCombo2.ListField = [規格]
這樣的錯誤出在哪裡阿??
它的反白區會出現在Rowsource
Dim Prod_Nm As String
Prod_Nm = DataCombo1.Text '當產品名稱改變時adodc1跟著改變
Adodc1.RecordSource = "select 規格 from 產品規格設定 where 品名= ' " & Prod_Nm & " ' "
Adodc1.Refresh 'adodc1為adcmdunknown用jet4.0連access2000
DataCombo2.RowSource = Adodc1 '以adodc1為list的來源
DataCombo2.ListField = [規格]
這樣的錯誤出在哪裡阿??
它的反白區會出現在Rowsource
Browser抓字(編號：4120)
弟有一個問題請教大家:
我想在VB的Web Browser控制項內將Mouse移到某個字後,就會將Mouse所指到的字存到一個變數內,請問我該如何做....敬請不吝指教...謝謝
我想在VB的Web Browser控制項內將Mouse移到某個字後,就會將Mouse所指到的字存到一個變數內,請問我該如何做....敬請不吝指教...謝謝
Handle FTP Command?(編號：4118)
ftp 123.123.123.123
root
passward
cd /var/spool
put file
bye
前輩們,上面的方式傳檔到unix電腦時要如何來handle一連串的qa呢?
root
passward
cd /var/spool
put file
bye
前輩們,上面的方式傳檔到unix電腦時要如何來handle一連串的qa呢?
請幫忙，不知道問題出在哪裡???(編號：4117)
dim dbmaster as database
dim wsmaster as workspace
dim qrytemp1 as QueryDef
dim qrytemp2 as QueryDef
dim sql1 as String
dim sql2 as String
dim lCommit as boolean
' dbmaster 和 wsmaster 巳設定好了
' 資料表有 nstock , stock;
' 它們的Structure 是相同的;
' sql1 = 以下是想把資料表 nstock 內 Shop1 6月份的所有資料搬到資料表 stock;
' sql2 = 想把資料表 nstock 內 Shop1 6月份的所有資料全部刪除;
wsmaster.BeginTrans
lCommit=true
sql1 = "INSERT INTO stock SELECT * FROM nstock WHERE shop='SHOP1' and sdate='200006' order by icode"
set qrytemp1=dbmaster.createquerydef("")
qrytemp1.sql=sql1
qrytemp1.execute
if qrytemp1.recordsaffected＜=0 then
lCommit=false
else
sql2 = "DELETE * FROM nstock WHERE shop='SHOP1' AND sdate='200006'"
set qrytemp2=dbmaster.createquerydef("")
qrytemp2.sql=sql2
qrytemp2.execute
if qrytemp2.recordsaffected＜=0 then
lCommit=false
end if
end if
if lCommit=true then
wsmaster.CommitTrans
else
wsmaster.RollBack
end if
問題是，Single User執行 的時候是沒有問題的，在資料表 stock 內可全部找回所表搬的資料；
但在執行Multi-User 的時候某一些資料遺失了，
謝謝！
dim wsmaster as workspace
dim qrytemp1 as QueryDef
dim qrytemp2 as QueryDef
dim sql1 as String
dim sql2 as String
dim lCommit as boolean
' dbmaster 和 wsmaster 巳設定好了
' 資料表有 nstock , stock;
' 它們的Structure 是相同的;
' sql1 = 以下是想把資料表 nstock 內 Shop1 6月份的所有資料搬到資料表 stock;
' sql2 = 想把資料表 nstock 內 Shop1 6月份的所有資料全部刪除;
wsmaster.BeginTrans
lCommit=true
sql1 = "INSERT INTO stock SELECT * FROM nstock WHERE shop='SHOP1' and sdate='200006' order by icode"
set qrytemp1=dbmaster.createquerydef("")
qrytemp1.sql=sql1
qrytemp1.execute
if qrytemp1.recordsaffected＜=0 then
lCommit=false
else
sql2 = "DELETE * FROM nstock WHERE shop='SHOP1' AND sdate='200006'"
set qrytemp2=dbmaster.createquerydef("")
qrytemp2.sql=sql2
qrytemp2.execute
if qrytemp2.recordsaffected＜=0 then
lCommit=false
end if
end if
if lCommit=true then
wsmaster.CommitTrans
else
wsmaster.RollBack
end if
問題是，Single User執行 的時候是沒有問題的，在資料表 stock 內可全部找回所表搬的資料；
但在執行Multi-User 的時候某一些資料遺失了，
謝謝！
有辦法呼叫應用程式並將其保持於最頂層?floating on window~~(編號：4116)
弟需要應用其他程式,但用shell叫出時,當駐點不在此應用程式時
即被其他的form蓋住.
有辦法呼叫應用程式並將其保持於最頂層嗎?
例如呼叫出icq時,同時執行其他程式不會蓋掉icq.
(不是本身程式執行時停留於最上層,是呼叫出的應用程式留於最上層.)
即被其他的form蓋住.
有辦法呼叫應用程式並將其保持於最頂層嗎?
例如呼叫出icq時,同時執行其他程式不會蓋掉icq.
(不是本身程式執行時停留於最上層,是呼叫出的應用程式留於最上層.)
網路卡連線問題(編號：4114)
請問各位高手
我使用在 VB MSDN 的 "使用 Winsock 控制項" 說明項目內
的範例程式,建立一個 TCP 連線程式,但執行後卻出現以下之錯誤
＞＞＞
執行階段錯誤 '40006':
對所要求的交易或要求而言,通訊協定(protocol)不適合或連線狀態有誤
＜＜＜
但同一片網路卡在另一部電腦上卻可以執行
而且這兩部電腦在 "網路上的芳鄰" 都可以正常工作
不知是何原因,希望各位高手能幫我解答,謝謝!
工作環境:
Win 98 SE
VB 6.0 企業版
華碩 P2V 主機板
CNet PRO120WL(A)網路卡
我使用在 VB MSDN 的 "使用 Winsock 控制項" 說明項目內
的範例程式,建立一個 TCP 連線程式,但執行後卻出現以下之錯誤
＞＞＞
執行階段錯誤 '40006':
對所要求的交易或要求而言,通訊協定(protocol)不適合或連線狀態有誤
＜＜＜
但同一片網路卡在另一部電腦上卻可以執行
而且這兩部電腦在 "網路上的芳鄰" 都可以正常工作
不知是何原因,希望各位高手能幫我解答,謝謝!
工作環境:
Win 98 SE
VB 6.0 企業版
華碩 P2V 主機板
CNet PRO120WL(A)網路卡
呵呵！找人那麼難？(編號：4111)
我們台中公司想找熟 VB & SQL Server & 專寫商用軟體的高手，我要到哪兒找啊？一般求才求職網站，人才一堆，卻都是通才(哇！會的語言起碼都五六種ㄝ，專精的卻不寫)。所以，借小吳的網站來徵求想求職或換工作的VB高手，請以E-MAIL與我聯絡吧！(小吳，歹勢ㄋㄟ)
Web Browser控制項之參數:PostData(編號：4110)
各位高手大家好:
我想請問一下VB6內Web Browser控制項內參數的下法,在參考
help後,參數的下法為:
object.Navigate URL [Flags,] [TargetFrameName,] [PostData,] [Headers]
但PostData部分的參數一直不知道如何寫(需要由VB控制post資料給網頁).
不知道有哪位高手肯提供範例,謝謝.
我想請問一下VB6內Web Browser控制項內參數的下法,在參考
help後,參數的下法為:
object.Navigate URL [Flags,] [TargetFrameName,] [PostData,] [Headers]
但PostData部分的參數一直不知道如何寫(需要由VB控制post資料給網頁).
不知道有哪位高手肯提供範例,謝謝.
救命！(編號：4107)
請各高人指點，我在MS SQL7.0 想增加TABLE及FIELDS，CODE如下
conn.Execute"create TABLE master (year1 integer,sex1 TEXT(1))"
但得出來的結果是
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]Column or parameter #2: Cannot specify a column width on data type text.
如果不設定TEXT的長度就可以，但我不想不設定，因為怕浪費資源。請各高人救命！
conn.Execute"create TABLE master (year1 integer,sex1 TEXT(1))"
但得出來的結果是
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]Column or parameter #2: Cannot specify a column width on data type text.
如果不設定TEXT的長度就可以，但我不想不設定，因為怕浪費資源。請各高人救命！
Add condition in data report(編號：4106)
As title, if I want to do this (eg. if field a ＞ fielsd b then put a tick else put a cross ).
What can I do?
What can I do?
一定要安裝msdn嗎......(編號：4105)
我不記得以前我使用vb5時有無安裝msdn,
使用起來是沒有任何問題....
但我現在使用vb6....
在連結access時失敗....
似乎就是因為沒有安裝msdn....
請問一定要安裝才行嗎....謝謝....
使用起來是沒有任何問題....
但我現在使用vb6....
在連結access時失敗....
似乎就是因為沒有安裝msdn....
請問一定要安裝才行嗎....謝謝....
請問outlook express5不能用(編號：4104)
Dim mail As String
mail = email.Text
Shell "start mailto:" & email, vbHide
上次程式是vb5呼叫email
可是為什麼只能呼叫 outlook express 4
呼叫 outlook express 5的話郤跑不出來.....
請問是還欠缺了什麼呢
mail = email.Text
Shell "start mailto:" & email, vbHide
上次程式是vb5呼叫email
可是為什麼只能呼叫 outlook express 4
呼叫 outlook express 5的話郤跑不出來.....
請問是還欠缺了什麼呢
Re: 用 SetPrinter() 來設定 default printer(編號：4102)
請問在 Windows 98 中如何用 SetPrinter() API 來設定 Default printer 呢？
以下是 MS web site 中找到的一些料 ...
Q140560 - HOWTO: Set the Default Printer Programmatically in Windows 95
To set or change the default printer under Windows 95, call:
SetPrinter(HANDLE hPrinter, DWORD dwLevel, LPBYTE lpbPrinter,
DWORD dwCommand)
Obtain the hPrinter parameter from OpenPrinter() as a handle that identifies the desired printer. Set the dwLevel parameter to 5, and point lpbPrinter to the PRINTER_INFO_5 structure. Set the dwCommand parameter to 0 (zero). Fill out the PRINTER_INFO_5 structure appropriately making sure that the Attributes field has PRINTER_ATTRIBUTE_DEFAULT set.
以下是 MS web site 中找到的一些料 ...
Q140560 - HOWTO: Set the Default Printer Programmatically in Windows 95
To set or change the default printer under Windows 95, call:
SetPrinter(HANDLE hPrinter, DWORD dwLevel, LPBYTE lpbPrinter,
DWORD dwCommand)
Obtain the hPrinter parameter from OpenPrinter() as a handle that identifies the desired printer. Set the dwLevel parameter to 5, and point lpbPrinter to the PRINTER_INFO_5 structure. Set the dwCommand parameter to 0 (zero). Fill out the PRINTER_INFO_5 structure appropriately making sure that the Attributes field has PRINTER_ATTRIBUTE_DEFAULT set.
問上次那位回答我問過SQL問題的高手!(編號：4100)
我有一個資料表內有一個(交易量)欄位,每天都會增加一筆,
我想計算它最近18天的平均數,那請問我的SQL應該怎樣寫?
謝謝!!!
您的回答是:
SQL = "Select Sum(交易欄位)/18 As 交易平均 From 表格名 Where DateDiff(d, 日期欄名, GetDate())＞=18"
所得的"交易平均"就是你所要的
可是我的(日期欄名)欄位的交易日期是不連續的,比如星期5,6,7
是沒有交易的!這樣好象就不行了!
而且,單單用SQL不加VB的函數不能做到嗎?
謝謝!!
我想計算它最近18天的平均數,那請問我的SQL應該怎樣寫?
謝謝!!!
您的回答是:
SQL = "Select Sum(交易欄位)/18 As 交易平均 From 表格名 Where DateDiff(d, 日期欄名, GetDate())＞=18"
所得的"交易平均"就是你所要的
可是我的(日期欄名)欄位的交易日期是不連續的,比如星期5,6,7
是沒有交易的!這樣好象就不行了!
而且,單單用SQL不加VB的函數不能做到嗎?
謝謝!!
急件!!!(編號：4099)
請問多人共用之table,下列語法是否正確?
db.begintrans
db.execute sql
rs.requery
db.committrans
err_msg:
db.rollbakctrans
msgbox err.descripton
db.begintrans
db.execute sql
rs.requery
db.committrans
err_msg:
db.rollbakctrans
msgbox err.descripton
requery 速度問題(編號：4098)
sql="update table ......."
db.execute sql 時,執行後不能馬上更新資料
需加rs.query 方可更新資料但速度差很多,'
請問如何加快更新速度?
db.execute sql 時,執行後不能馬上更新資料
需加rs.query 方可更新資料但速度差很多,'
請問如何加快更新速度?
why no xxxxxx.dll?(編號：4097)
i made a visual basic exe programme and send it to my friend,but his computer said there is no xxxxxx.dll file and cannot run the programme,how can i do to make it can be run?
關於 Informix - OLE DB 的問題.(編號：4095)
請教一下,該如何使用 Informix OLE DB Provider 連接至 Informix 的資料庫? 目前使用 Client SDK 2.3. 在 Registry:
HKCU\Software\Imformix\Environment 中,INFORMIXSERVER = infodb; INFORMIXSQLHOSTS = infodbsvr.同一組設定在 HKUR\.Default 中也有. Windows 的 HOSTS 有設定 infodb 的 IP.
另有在 SERVICES 中設定好對應使用的 Service.在Server上的資料庫名稱是 test. 已經依照手冊上指示, 執行過 Script: coledbp.sql.
但當我設定連線字串要並要測試時,資料來源填入 test@infodb2 是否正確? 但當我測試連線時, 我總是得到以下的錯誤訊息:
"因在初始化提供者時遭遇錯誤,測試連接失敗.XIX000:-25596:The INFORMIXSERVER value is not listed in the sqlhosts file or the Registry."
請問小弟哪兒設定錯誤, 又該如何排除這個錯誤?
另想請教, INFORMIXSERVER & INFORMIXSQLHOSTS 該如何設定? 因弟在 Registry 中以同樣的設定, 當使用 ODBC 時均正常.
煩請高手予以解答, 謝謝!
HKCU\Software\Imformix\Environment 中,INFORMIXSERVER = infodb; INFORMIXSQLHOSTS = infodbsvr.同一組設定在 HKUR\.Default 中也有. Windows 的 HOSTS 有設定 infodb 的 IP.
另有在 SERVICES 中設定好對應使用的 Service.在Server上的資料庫名稱是 test. 已經依照手冊上指示, 執行過 Script: coledbp.sql.
但當我設定連線字串要並要測試時,資料來源填入 test@infodb2 是否正確? 但當我測試連線時, 我總是得到以下的錯誤訊息:
"因在初始化提供者時遭遇錯誤,測試連接失敗.XIX000:-25596:The INFORMIXSERVER value is not listed in the sqlhosts file or the Registry."
請問小弟哪兒設定錯誤, 又該如何排除這個錯誤?
另想請教, INFORMIXSERVER & INFORMIXSQLHOSTS 該如何設定? 因弟在 Registry 中以同樣的設定, 當使用 ODBC 時均正常.
煩請高手予以解答, 謝謝!
請問是否可以線上修改IP??(編號：4094)
各位高手
最近常常新竹,台北,分公司跑來跑去,對於每次都要改IP已經覺得不耐煩了.不知道各位是否有簡便的辦法可以線上修改IP呢??我是WIN2k的使用者. William
最近常常新竹,台北,分公司跑來跑去,對於每次都要改IP已經覺得不耐煩了.不知道各位是否有簡便的辦法可以線上修改IP呢??我是WIN2k的使用者. William
Form 的 BorderStyle = 0 後工作列標題圖示出不來(編號：4092)
因為要做不規則的表單,但 Form 的 BorderStyle = 0 後工作列標題圖示出不來,要怎麼樣能將工作列標題圖示秀出來呢?
資源未釋放出來 !!(編號：4089)
請教各位:
我使用
SOURCE = "C:\ABC.TXT"
DESTINATION = "A:\ABC.TXT"
FileCopy SOURCE, DESTINATION
來複製檔案,
問題如下:
當我再次執行(同一支程式沒有結束)上述的動作時會出現 ERROR NUMBER 為 52 的錯誤訊息(磁碟機尚未就緒) , 其實磁碟機是備妥的. 這種現象偶爾會發生.
執行上述的 FileCopy後, 當我試著要去 FORMAT A:時,偶爾也會出現
Windows 無法製作這台磁碟機的格式,因為別的應用程式正在使用 A:
(其實當時並無其他程式在使用 A 磁碟機).
請教各位這是否是 FileCopy 的問題 ? 或是其他的因素造成的.
謝謝 !!
我使用
SOURCE = "C:\ABC.TXT"
DESTINATION = "A:\ABC.TXT"
FileCopy SOURCE, DESTINATION
來複製檔案,
問題如下:
當我再次執行(同一支程式沒有結束)上述的動作時會出現 ERROR NUMBER 為 52 的錯誤訊息(磁碟機尚未就緒) , 其實磁碟機是備妥的. 這種現象偶爾會發生.
執行上述的 FileCopy後, 當我試著要去 FORMAT A:時,偶爾也會出現
Windows 無法製作這台磁碟機的格式,因為別的應用程式正在使用 A:
(其實當時並無其他程式在使用 A 磁碟機).
請教各位這是否是 FileCopy 的問題 ? 或是其他的因素造成的.
謝謝 !!
為何??X.Bookmark=1792,X.AbsolutePosition=-1(編號：4081)
為何??只有十幾筆資料,
停在第一筆時X.Bookmark=1792,X.AbsolutePosition=-1
停在第二筆時X.Bookmark=1793,X.AbsolutePosition=-1
其他並無異常
*******
對不起!!盡問些笨問題.
一年多沒用了,整個忘光光.....
停在第一筆時X.Bookmark=1792,X.AbsolutePosition=-1
停在第二筆時X.Bookmark=1793,X.AbsolutePosition=-1
其他並無異常
*******
對不起!!盡問些笨問題.
一年多沒用了,整個忘光光.....
感謝AndyLin(編號：4079)
日前所問觀於Datareportㄉ問題, 感謝AndyLinㄉ提示, 關於水晶報表我聽聞多時, 但因我一開始即是使用VB6.0, 關於水晶報表用法概念就很差,這些日子我從網路已經知道水晶報表的基本用法, 但市面上已很難再買到VB5.0ㄉ書, 所以之前的問題也還未解決, 請各位高手能否再多提示一些...好像該從水晶報表ㄉobject來設定在VB的程式中, 但該如何做ㄋ???...(最好有範例)..
原來的問題是___VB在報表設定要連續列印時, 如條件單號 A89060005 ~ A89060010 用VB的datareport好像辦不到,產生msdatareport暫存檔送到印表機, 永遠都只印最後一頁, 請問一下是否有特殊技巧或工具? 在那裡可以取得 ? 能不能提供工具或範例? .....感激不盡.....
原來的問題是___VB在報表設定要連續列印時, 如條件單號 A89060005 ~ A89060010 用VB的datareport好像辦不到,產生msdatareport暫存檔送到印表機, 永遠都只印最後一頁, 請問一下是否有特殊技巧或工具? 在那裡可以取得 ? 能不能提供工具或範例? .....感激不盡.....
唉!我連上SQL Server做大批異動的效率真差(編號：4073)
各位VB、SQL Server先進您好:
我使用VB6.0的adodb連SQL 7.0(SP2),我要做大批資料異動但顯然我的程式有問題,不然就是我太笨,輸入檔有近四百萬筆、二百多MB,合併轉入SQL資料庫後近四萬筆、近三百MB，PIII-600、512MBram郤run有夠久，我用NT工作管理員檢視vb及sql server(裝在同一台)的記憶體使用量、分頁錯誤、虛擬記憶體使用量，從一開始的幾十MB成長到幾百MB以上,愈來愈慢，不是說可以處理到GB以上的資料庫嗎?
以下是我的笨程式，真是獻醜了：
Option Explicit
Private objConn As ADODB.Connection
Private objRec As ADODB.Recordset
Private objCmd As ADODB.Command
Dim strHTML As String
Dim bswitch As Boolean
Dim ncount As Integer
Dim cprodno As String
Dim cpassid As String
Dim cemails As String
Dim cprodnm As String
Dim cdeptno As String
Dim ccodens As String
Dim nline As Integer
Private Sub Command1_Click(Index As Integer)
Dim replyval
Dim runstr As String
Dim checkstr As String
Dim strConnectionString As String
Dim strFileName As String
'須先設定引用項目microsoft ActiveX DATA object 2.1 library(選取過一次即可)
'要換台，須改下列連接字串之電腦名稱
'strConnectionString = "Provider=;Integrated Security=SSPI;" _
& "Persist Security Info=False;Initial Catalog=payroll;Data Source=sqserver"
strConnectionString = "Provider=SQLOLEDB.1" & ";Password=quser" _
& ";Persist Security Info=True;User ID=qsysopr" _
& ";Initial Catalog=dbsroll" & ";Data Source=sqserver"
Select Case Index
case 0
'略
Case 1
'執行刪除去年同月份資料表
Set objConn = New ADODB.Connection
objConn.Open strConnectionString
Set objCmd = New ADODB.Command
Set objCmd.ActiveConnection = objConn
runstr = "drop table dbsroll.dbo.qm07"
objCmd.CommandText = runstr
On Error Resume Next
Set objRec = objCmd.Execute
'重建新資料表
Set objCmd = New ADODB.Command
Set objCmd.ActiveConnection = objConn
runstr = "CREATE TABLE dbsroll.dbo.qm07 (" & _
" [prodno] [char] (6) NOT NULL primary key," & _
"[deptno] [char] (4) NOT NULL ," & _
"[passid] [char] (10) NULL ," & _
"[prodnm] [char] (14) NULL ," & _
"[codens] [char] (16) NULL ," & _
"[emails] [varchar] (50) NULL ," & _
"[htmltx] [text] NULL) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]"
objCmd.CommandText = runstr
Set objRec = objCmd.Execute
ncount = 0
nline = 0
bswitch = False
'開啟ADODB 物件。
Set objConn = New ADODB.Connection
objConn.Open strConnectionString
Set objRec = New ADODB.Recordset
objConn.CursorLocation = adUseClient
objRec.Open "qm07", objConn, adOpenKeyset, adLockPessimistic
'開啟文字檔。
Open App.Path & "\" & "original.htm" For Input As #1
'將文字檔資料轉入資料庫。
Do While Not EOF(1)
PutToData1 strFileName, objRec
'關閉文字檔。
Loop
Close #1
' 關閉ADODB 物件。
objRec.Close
objConn.Close
Set objConn = Nothing
Set objRec = Nothing
Set objCmd = Nothing
'顯示結果
Set objConn = New ADODB.Connection
objConn.Open strConnectionString
Set objCmd = New ADODB.Command
Set objCmd.ActiveConnection = objConn
runstr = "select count(*) from dbsroll.dbo.qm07"
objCmd.CommandText = runstr
On Error Resume Next
Set objRec = objCmd.Execute
Text1.Text = "從original.htm轉入SQL資料庫，共" & objRec.Fields(0).Value & "筆"
Case 2
(略）
Case 3
（略)
End Select
End Sub
Private Sub PutToData1(ByVal strFileName As String, objRec As ADODB.Recordset)
Dim strX As String
Dim strY As String
'從一個已開啟的循序檔中讀入一行資料，並將它指定給一個String變數.。
Line Input #1, strX
If Left(strX, 2) = "**" Then
'不是第一筆
If bswitch Then
With objRec
.AddNew
!deptno = cdeptno
!prodno = cprodno
!emails = cemails
!prodnm = cprodnm
!passid = cpassid
!codens = ccodens
!htmltx = strHTML
.Update
End With
Else
bswitch = True
End If
cdeptno = Mid(strX, 3, 4)
cprodno = Mid(strX, 7, 6)
cpassid = Mid(strX, 13, 10)
strY = Trim(Mid(strX, 23, 28))
If Len(strY) ＞ 10 Then
cemails = "＜" & strY & "＞"
Else
'找不到帳號者
cemails = " "
End If
cprodnm = Mid(strX, 51, 6)
ccodens = Mid(strX, 57, 7)
strHTML = ""
Else
strHTML = strHTML + Trim(strX) + Chr(13) + Chr(10)
End If
End Sub
我使用VB6.0的adodb連SQL 7.0(SP2),我要做大批資料異動但顯然我的程式有問題,不然就是我太笨,輸入檔有近四百萬筆、二百多MB,合併轉入SQL資料庫後近四萬筆、近三百MB，PIII-600、512MBram郤run有夠久，我用NT工作管理員檢視vb及sql server(裝在同一台)的記憶體使用量、分頁錯誤、虛擬記憶體使用量，從一開始的幾十MB成長到幾百MB以上,愈來愈慢，不是說可以處理到GB以上的資料庫嗎?
以下是我的笨程式，真是獻醜了：
Option Explicit
Private objConn As ADODB.Connection
Private objRec As ADODB.Recordset
Private objCmd As ADODB.Command
Dim strHTML As String
Dim bswitch As Boolean
Dim ncount As Integer
Dim cprodno As String
Dim cpassid As String
Dim cemails As String
Dim cprodnm As String
Dim cdeptno As String
Dim ccodens As String
Dim nline As Integer
Private Sub Command1_Click(Index As Integer)
Dim replyval
Dim runstr As String
Dim checkstr As String
Dim strConnectionString As String
Dim strFileName As String
'須先設定引用項目microsoft ActiveX DATA object 2.1 library(選取過一次即可)
'要換台，須改下列連接字串之電腦名稱
'strConnectionString = "Provider=;Integrated Security=SSPI;" _
& "Persist Security Info=False;Initial Catalog=payroll;Data Source=sqserver"
strConnectionString = "Provider=SQLOLEDB.1" & ";Password=quser" _
& ";Persist Security Info=True;User ID=qsysopr" _
& ";Initial Catalog=dbsroll" & ";Data Source=sqserver"
Select Case Index
case 0
'略
Case 1
'執行刪除去年同月份資料表
Set objConn = New ADODB.Connection
objConn.Open strConnectionString
Set objCmd = New ADODB.Command
Set objCmd.ActiveConnection = objConn
runstr = "drop table dbsroll.dbo.qm07"
objCmd.CommandText = runstr
On Error Resume Next
Set objRec = objCmd.Execute
'重建新資料表
Set objCmd = New ADODB.Command
Set objCmd.ActiveConnection = objConn
runstr = "CREATE TABLE dbsroll.dbo.qm07 (" & _
" [prodno] [char] (6) NOT NULL primary key," & _
"[deptno] [char] (4) NOT NULL ," & _
"[passid] [char] (10) NULL ," & _
"[prodnm] [char] (14) NULL ," & _
"[codens] [char] (16) NULL ," & _
"[emails] [varchar] (50) NULL ," & _
"[htmltx] [text] NULL) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]"
objCmd.CommandText = runstr
Set objRec = objCmd.Execute
ncount = 0
nline = 0
bswitch = False
'開啟ADODB 物件。
Set objConn = New ADODB.Connection
objConn.Open strConnectionString
Set objRec = New ADODB.Recordset
objConn.CursorLocation = adUseClient
objRec.Open "qm07", objConn, adOpenKeyset, adLockPessimistic
'開啟文字檔。
Open App.Path & "\" & "original.htm" For Input As #1
'將文字檔資料轉入資料庫。
Do While Not EOF(1)
PutToData1 strFileName, objRec
'關閉文字檔。
Loop
Close #1
' 關閉ADODB 物件。
objRec.Close
objConn.Close
Set objConn = Nothing
Set objRec = Nothing
Set objCmd = Nothing
'顯示結果
Set objConn = New ADODB.Connection
objConn.Open strConnectionString
Set objCmd = New ADODB.Command
Set objCmd.ActiveConnection = objConn
runstr = "select count(*) from dbsroll.dbo.qm07"
objCmd.CommandText = runstr
On Error Resume Next
Set objRec = objCmd.Execute
Text1.Text = "從original.htm轉入SQL資料庫，共" & objRec.Fields(0).Value & "筆"
Case 2
(略）
Case 3
（略)
End Select
End Sub
Private Sub PutToData1(ByVal strFileName As String, objRec As ADODB.Recordset)
Dim strX As String
Dim strY As String
'從一個已開啟的循序檔中讀入一行資料，並將它指定給一個String變數.。
Line Input #1, strX
If Left(strX, 2) = "**" Then
'不是第一筆
If bswitch Then
With objRec
.AddNew
!deptno = cdeptno
!prodno = cprodno
!emails = cemails
!prodnm = cprodnm
!passid = cpassid
!codens = ccodens
!htmltx = strHTML
.Update
End With
Else
bswitch = True
End If
cdeptno = Mid(strX, 3, 4)
cprodno = Mid(strX, 7, 6)
cpassid = Mid(strX, 13, 10)
strY = Trim(Mid(strX, 23, 28))
If Len(strY) ＞ 10 Then
cemails = "＜" & strY & "＞"
Else
'找不到帳號者
cemails = " "
End If
cprodnm = Mid(strX, 51, 6)
ccodens = Mid(strX, 57, 7)
strHTML = ""
Else
strHTML = strHTML + Trim(strX) + Chr(13) + Chr(10)
End If
End Sub
請問有關adodc資料排序問題(編號：4072)
問題說明:
使用adodc讀入access檔案資料,
再將檔案某欄資料show到DataCombo上,
希望這個資料是以遞增的方式排序,
資料的內容是注音符號.
在access時的資料內容是排序好的,
可是一讀到adodc就變了,
不知該如何處理?
使用adodc讀入access檔案資料,
再將檔案某欄資料show到DataCombo上,
希望這個資料是以遞增的方式排序,
資料的內容是注音符號.
在access時的資料內容是排序好的,
可是一讀到adodc就變了,
不知該如何處理?
關於date資料在sql 語法中的下法?(編號：4071)
因sql server的date field是以日期+時間, 那我下group by時,
是以日期+時間下去group by, 但是我想要的資料是只要同一日期
即group by,不管時間,是否有別的指令或方法可以達到我要的資料呢?
是以日期+時間下去group by, 但是我想要的資料是只要同一日期
即group by,不管時間,是否有別的指令或方法可以達到我要的資料呢?
RS-232 Bit Error test(編號：4069)
最近在寫個測試程式是利用RS-232介面,請問一下有誰知道如何藉由com1丟一筆資料然後測試傳回的資料(RS-232迴接)是否正確還有他的BIT RATE..(我用VB6 及 WIN95)
about RDS 問題..(編號：4068)
各位好:
發生了問題,關於RDS..
執行至 rdso.Refresh 時便出現了如下的錯誤訊息...
執行階段錯誤 -214702891(80070005)
意外的錯誤(80070005)
以下是片段的程式碼..
Dim rdso As New RDS.DataControl
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rdso.Server = "http://127.0.0.1"
' Driver = "driver={Microsoft Access Driver *.mdb)}" 此方法也試過,錯誤訊息一樣
' Dbpath = ";dbq=C:\inetpub\wwwroot\stock01.mdb"
' rdso.Connect = Driver & Dbpath
rdso.Connect = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=C:\inetpub\wwwroot\stock01.mdb"
rdso.SQL = "Select * From 股票行情表"
rdso.ExecuteOptions = adcExecSync
rdso.Refresh '執行到這裡就出現錯誤訊息
Set rs = rdso.Recordset
OutputRecordset rs
End Sub
但是奇怪的是我已經把相關的IIS設定給設好了呀,照您所說,
將執行權限開至 執行+指令檔 了?? stock01.mdb 我也放在
C:\inetpub\wwwroot 下了...試了好久還是不行..Win2000的IIS我
試過,Win98的PWS我也試過,都不行.......煩請告訴我到底哪裡
出了問題了.
或者您有成功的使用過RDS的也請您告訴我是如何成功的..tks
發生了問題,關於RDS..
執行至 rdso.Refresh 時便出現了如下的錯誤訊息...
執行階段錯誤 -214702891(80070005)
意外的錯誤(80070005)
以下是片段的程式碼..
Dim rdso As New RDS.DataControl
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rdso.Server = "http://127.0.0.1"
' Driver = "driver={Microsoft Access Driver *.mdb)}" 此方法也試過,錯誤訊息一樣
' Dbpath = ";dbq=C:\inetpub\wwwroot\stock01.mdb"
' rdso.Connect = Driver & Dbpath
rdso.Connect = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=C:\inetpub\wwwroot\stock01.mdb"
rdso.SQL = "Select * From 股票行情表"
rdso.ExecuteOptions = adcExecSync
rdso.Refresh '執行到這裡就出現錯誤訊息
Set rs = rdso.Recordset
OutputRecordset rs
End Sub
但是奇怪的是我已經把相關的IIS設定給設好了呀,照您所說,
將執行權限開至 執行+指令檔 了?? stock01.mdb 我也放在
C:\inetpub\wwwroot 下了...試了好久還是不行..Win2000的IIS我
試過,Win98的PWS我也試過,都不行.......煩請告訴我到底哪裡
出了問題了.
或者您有成功的使用過RDS的也請您告訴我是如何成功的..tks
工具API-Guide(編號：4067)
下載 http://kpdteam.tripod.com/apiguide/agdown.htm
首頁 http://www.allapi.net/
之前在逛網頁的時候發現的,是一個API的資料庫,其中有許多API範例(目前有577個Function),有在寫API的人可以下載看看,支援線上即時更新...
首頁 http://www.allapi.net/
之前在逛網頁的時候發現的,是一個API的資料庫,其中有許多API範例(目前有577個Function),有在寫API的人可以下載看看,支援線上即時更新...
如何改變mschart中Title的位置(編號：4066)
我要自動改變Mschart中Title 的位置,程式如下:
with frmChart1.chart1.title.vtfont
.Location.Rect.Min.Y = frmChart1.Chart1.Height - screen.TwipsPerPixelY * 50
.Location.Rect.Max.Y = frmChart1.TChart1.Height - Screen.TwipsPerPixelY
End With
程式執行後發現,Title並沒有移動,但是當我用手動的移動一次此Title 的位置後,再執行一次這行程式,則它就會移動到如程式控制的位置了,請問此問題要如何解決...
with frmChart1.chart1.title.vtfont
.Location.Rect.Min.Y = frmChart1.Chart1.Height - screen.TwipsPerPixelY * 50
.Location.Rect.Max.Y = frmChart1.TChart1.Height - Screen.TwipsPerPixelY
End With
程式執行後發現,Title並沒有移動,但是當我用手動的移動一次此Title 的位置後,再執行一次這行程式,則它就會移動到如程式控制的位置了,請問此問題要如何解決...
Crystal Report 7.0 的 效率問題(編號：4063)
大家好:
小弟目前使用 VB 6.0 + Crystal Report 7.0 來寫程式.透過 ODBC 連結後端資料庫(Oracle 8.0).一開始資料量小時 Crystal Report 的Preview 速度還能接受.可是現在資料量已經達數萬筆了,每次輸入條件後按下 Preview 按鈕只見 Crystal Report 每次以約每秒數百筆的速度處理資料.實在是很慢,有其他提昇效率的方法嗎??
小弟目前使用 VB 6.0 + Crystal Report 7.0 來寫程式.透過 ODBC 連結後端資料庫(Oracle 8.0).一開始資料量小時 Crystal Report 的Preview 速度還能接受.可是現在資料量已經達數萬筆了,每次輸入條件後按下 Preview 按鈕只見 Crystal Report 每次以約每秒數百筆的速度處理資料.實在是很慢,有其他提昇效率的方法嗎??
如何用API去Create一個新的DSN?在此也謝謝Watch Me熱心回答我前(編號：4062)
如題.
同時,我先說明為何不用RDO,是因為我客戶都用ADO來連資料庫,
如果再用RDO,勢必每台電腦都得註冊RDO,所我才問ADO能不能像
RDO一樣用rdoEngine.rdoRegisterDataSource註冊新的DSN
同時,我先說明為何不用RDO,是因為我客戶都用ADO來連資料庫,
如果再用RDO,勢必每台電腦都得註冊RDO,所我才問ADO能不能像
RDO一樣用rdoEngine.rdoRegisterDataSource註冊新的DSN
如何利用vb來進行INTERNET控制遠端控制家電(編號：4061)
如何使用vb來進行電腦排程,定時控制這些家電開關 ;亦可
利用INTERNET控制遠端控制家電。在vb的範圍裡能否做的
到呢 希望有相關的書籍或是知道的才子能否告知我呢
最後要感謝一位小笨蛋網友希望你能在與我討論這問題
也歡迎各與我討論這問題
謝謝
小名留
利用INTERNET控制遠端控制家電。在vb的範圍裡能否做的
到呢 希望有相關的書籍或是知道的才子能否告知我呢
最後要感謝一位小笨蛋網友希望你能在與我討論這問題
也歡迎各與我討論這問題
謝謝
小名留
問題(編號：4060)
一、像是連接資料庫主機的程式，當你在起動該程式後，會在螢幕出現不大的表單，而表單上會顯示，譬如"正在連結Local主機......
等一下又出現正在連結某主機"的小表單那是如何作的呢?是不是用正常的form1,form2作的呢?
二、什麼是主從式程式?是不是伺服器端設一個程式?然後使用端又設一個相同的VB程式呢?
三、像微軟的精靈中，常需要使用者輸入某些資料，如使用者名稱或是一些數字文字，為什麼到最後可以記在程式裡，那是如何作到呢?
是不是將那些輸入資料存人登記檔，然後再用程式讀取那些資料呢?
謝謝!
等一下又出現正在連結某主機"的小表單那是如何作的呢?是不是用正常的form1,form2作的呢?
二、什麼是主從式程式?是不是伺服器端設一個程式?然後使用端又設一個相同的VB程式呢?
三、像微軟的精靈中，常需要使用者輸入某些資料，如使用者名稱或是一些數字文字，為什麼到最後可以記在程式裡，那是如何作到呢?
是不是將那些輸入資料存人登記檔，然後再用程式讀取那些資料呢?
謝謝!
一直想不到?????(編號：4058)
我想要寫一個能在螢幕上動的動劃大小是64*64,我有看過書上的範例是在執行時先抓下當時的背景存起來,要show動劃時在將背景讀出來和要show的動劃做處理然後再show到screenDC上,可是如果背景是變動時(如動劃正在動時背景改變)還是會讀舊的背景??????請問我要如何解決呢?????我有試過要show動劃時就去抓一次螢幕的背景,可是這樣抓的話會抓到上一張動劃?????實在是想不到該怎麼辨說?????~~~~~請個位先進指點一下讓小弟有一個思考的方向!!!!謝謝~~
我想計算最近18天的平均數,那請問我的SQL應該怎樣寫?(編號：4053)
我有一個資料表內有一個(交易量)欄位,每天都會增加一筆,
我想計算它最近18天的平均數,那請問我的SQL應該怎樣寫?
謝謝!!!
我想計算它最近18天的平均數,那請問我的SQL應該怎樣寫?
謝謝!!!
讓字串保留(編號：4052)
有沒有方法可以讓程式將字串存在RAM中
並在程式離開時,那個區段不會被其他程式寫入
而程式再載入時又可將其讀出
P.S:不想用檔案記錄或系統登錄的方式...
如不能做也請告知一下
並在程式離開時,那個區段不會被其他程式寫入
而程式再載入時又可將其讀出
P.S:不想用檔案記錄或系統登錄的方式...
如不能做也請告知一下
何知道Excel中每個sheet的名稱(編號：4049)
請問：
現在我已利用vb中的ConnectString成功地連接Excel，但接下來要如何才能得到Excel(book1.xls)檔中，每一個Sheet的名稱呢？
我所使用的程式如下：
Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.ConnectionString = "DSN=Excel Files;DBQ=c:\My Documents\book1.xls;DefaultDir=c:\My Documents;DriverId=790;MaxBufferSize=2048;PageTimeout=5
Conn.Close
Set Conn = Nothing
現在我已利用vb中的ConnectString成功地連接Excel，但接下來要如何才能得到Excel(book1.xls)檔中，每一個Sheet的名稱呢？
我所使用的程式如下：
Dim Conn As ADODB.Connection
Dim RS As ADODB.Recordset
Set Conn = New ADODB.Connection
Conn.ConnectionString = "DSN=Excel Files;DBQ=c:\My Documents\book1.xls;DefaultDir=c:\My Documents;DriverId=790;MaxBufferSize=2048;PageTimeout=5
Conn.Close
Set Conn = Nothing
question on form(編號：4046)
Execuse me, how can I press the "cross" button in the top right hand conrner that would as same as the command button in the form?
Question on ADODC(編號：4045)
I want to ask how can I use ADODC to link the Access database even though the database's path would be changed?
Thanks first.
Thanks first.
緊急求救(編號：4044)
單機作業時正常,網路作業時不能update 資料
程式如下:
on error goto errmsg
db.BeginTrans
rs.update
db.CommitTrans
..
errmsg:
db.RollbackTrans
msgbox err.Description
程式如下:
on error goto errmsg
db.BeginTrans
rs.update
db.CommitTrans
..
errmsg:
db.RollbackTrans
msgbox err.Description
錯誤訊息要如何紀錄呢.??(編號：4043)
各位先進...
我自己使用 on error goto xxx的方式將錯誤訊息紀錄到*.log檔案中...可是要怎麼做才可以掠過錯誤訊息所會帶來的中斷動作...
是不是使用 on error Resume Next 呢.??
可是目前規格要求是要既不中斷程式,同時也要將錯誤訊息紀錄起來..
這要怎麼做呢..???
第一次做這樣的工作..沒經驗..所以上來問大家看看有啥好方法.
我自己使用 on error goto xxx的方式將錯誤訊息紀錄到*.log檔案中...可是要怎麼做才可以掠過錯誤訊息所會帶來的中斷動作...
是不是使用 on error Resume Next 呢.??
可是目前規格要求是要既不中斷程式,同時也要將錯誤訊息紀錄起來..
這要怎麼做呢..???
第一次做這樣的工作..沒經驗..所以上來問大家看看有啥好方法.
如何能 Capature 影像(編號：4042)
請指教如何能Capature 影像由 capature card(video)輸入到板面(video) 再 capature 成硬照(jpg)請多多提點
如何產生一文字檔之固定格式(編號：4041)
例如 XXXXXX XXXXX XXXXX
XXXXXX XX XXX
使用 OPEN "TEST.TXT FOR OUTPUT AS #1
.
WRITE #1,DATA1,DATA2,DATA3
卻產生 "XXXXX","XXXXX","XXXXX"
希望是 XXXXX XXXXX XXXXX
XXXXXX XX XXX
使用 OPEN "TEST.TXT FOR OUTPUT AS #1
.
WRITE #1,DATA1,DATA2,DATA3
卻產生 "XXXXX","XXXXX","XXXXX"
希望是 XXXXX XXXXX XXXXX
如何關閉執行中的程式？(編號：4040)
在那篇如何關閉叫出執行的程式的mail 中，可看出要關閉程式需知其Process id, 但如果該程式並非由我的程式 shell 出的，是否有其它方法關閉它(如何知其 process id 或 不需知亦可關閉它)？
用ADO如何去Create一個新的ODBC的DSN?銘請各路英雄指教(編號：4039)
如題:
我知道RDO是可以,用rdoEngine.rdoRegisterDataSource
但ADO應該也有這樣的功能吧
我知道RDO是可以,用rdoEngine.rdoRegisterDataSource
但ADO應該也有這樣的功能吧
Unload的問題(編號：4037)
想請問一下
假設現在有兩個Form
Form1呼叫了Form2
Form2有一個Timer,每隔n秒就執行一段程式
我想問的是
如果在timer執行的時候
觸發了Form2的某些事件(如KeyDown)
而將Form2 unload,那timer正在執行的動作會被中斷嗎?
如果不會,又是什麼原理呢?
假設現在有兩個Form
Form1呼叫了Form2
Form2有一個Timer,每隔n秒就執行一段程式
我想問的是
如果在timer執行的時候
觸發了Form2的某些事件(如KeyDown)
而將Form2 unload,那timer正在執行的動作會被中斷嗎?
如果不會,又是什麼原理呢?
How to print out the result on DataGrid?(編號：4034)
One method is to go through each cell and save the text in a text file then print it out. But it is really slow and have to pay lot of attention on the format. I tried to use clipboard object, but it can only copy the result as image (only the displayed part) then need to open other application (eg. Word) to paste the content. Any other way I can print out selected rows/columns with proper format? Thanks.
請問有辦法使內文做整齊的顯示嗎(可用記事本整齊的顯示)(編號：4033)
請問有辦法使下文做整齊的顯示嗎(可用記事本整齊的顯示)
As123.gyr! 123
A123J.hjuj! As123
AS12.ftyu! AS12.F
As123.gyr! 123
A123J.hjuj! As123
AS12.ftyu! AS12.F
無法開#21843;舊檔(編號：4030)
我是VB的新手, 在開啓別人的VB的project時, 有以下的錯誤：
"E:\CCalumni\DATECONTROL.OCX could not be loaded"
我正使用VB6.0, NT4.0, 在安裝VB時,已選擇安裝ACTIVEX ,請問怎樣可解決這問題?謝謝!
"E:\CCalumni\DATECONTROL.OCX could not be loaded"
我正使用VB6.0, NT4.0, 在安裝VB時,已選擇安裝ACTIVEX ,請問怎樣可解決這問題?謝謝!
要如何判斷 Form 上有什麼 component ?(編號：4028)
Sorry !下面問題改成這樣比較好！
要如何判斷 Form 上有什麼 component ?
就像 *.frm 讀到的
Begin VB.TextBox TxtPurNo
......
end
要如何讀出VB.TextBox
而不是其name !
要如何判斷 Form 上有什麼 component ?
就像 *.frm 讀到的
Begin VB.TextBox TxtPurNo
......
end
要如何讀出VB.TextBox
而不是其name !
Help！為何出現錯誤？(編號：4027)
If txt1.Text = "" Or txt2.Text = "" Or txt3.Text = "" _
Or txt4.Text = "" Or txt5.Text = "" Then
MsgBox "數值不完整,請重新輸入！", 0 + 16, "錯誤"
txt1.Text = ""
txt2.Text = ""
txt3.Text = ""
txt4.Text = ""
txt5.Text = ""
txt1.SetFocus
Else: A = Val(txt1.Text)
B = Val(txt2.Text)
C = Val(txt3.Text)
D = Val(txt4.Text)
E = Val(txt5.Text)
F = A + B(C + D + E) * 1.2
Label顯示.Caption = "你的總分是:" + Str(F)
If A ＜ 0 Or A ＞ 100 Or B ＜ 0 Or B ＞ 100 _
Or C ＜ 0 Or C ＞ 100 Or D ＜ 0 Or D ＞ 100 _
Or E ＜ 0 Or E ＞ 100 Then
MsgBox "數值錯誤,請重新輸入！", 0 + 16, "錯誤！"
txt1.Text = ""
txt2.Text = ""
txt3.Text = ""
txt4.Text = ""
txt5.Text = ""
txt1.SetFocus
End If
End If
此程式每次執行至F=A+B+(C+D+E)*1.2時,總出現"型態不符"
的錯誤訊息,請各位高手指點,thanks
Or txt4.Text = "" Or txt5.Text = "" Then
MsgBox "數值不完整,請重新輸入！", 0 + 16, "錯誤"
txt1.Text = ""
txt2.Text = ""
txt3.Text = ""
txt4.Text = ""
txt5.Text = ""
txt1.SetFocus
Else: A = Val(txt1.Text)
B = Val(txt2.Text)
C = Val(txt3.Text)
D = Val(txt4.Text)
E = Val(txt5.Text)
F = A + B(C + D + E) * 1.2
Label顯示.Caption = "你的總分是:" + Str(F)
If A ＜ 0 Or A ＞ 100 Or B ＜ 0 Or B ＞ 100 _
Or C ＜ 0 Or C ＞ 100 Or D ＜ 0 Or D ＞ 100 _
Or E ＜ 0 Or E ＞ 100 Then
MsgBox "數值錯誤,請重新輸入！", 0 + 16, "錯誤！"
txt1.Text = ""
txt2.Text = ""
txt3.Text = ""
txt4.Text = ""
txt5.Text = ""
txt1.SetFocus
End If
End If
此程式每次執行至F=A+B+(C+D+E)*1.2時,總出現"型態不符"
的錯誤訊息,請各位高手指點,thanks
如何讀取 Control 的 ProgID ?(編號：4026)
請問一下我想要讀取 Control 的 ProgID ?
像似我要讀出 CommandButton ProgID 是 vbCommandButton
要如何做呢？
不是讀出object.name = command1 喔!
也不是 object.caption !
像似我要讀出 CommandButton ProgID 是 vbCommandButton
要如何做呢？
不是讀出object.name = command1 喔!
也不是 object.caption !
請問 ComboBox與Recordset的問題？(編號：4023)
我有一個ComboBox的物件，如果我想把我一個已經篩選出來的
Recordset 丟到清單裡去，除了使用AddItem還有其他的方法嗎？
因為使用AddItem的方式的話要跑do while的迴圈，一個個的加上
去，再者我看ComboBox裡有一個DataSource和DataMember的屬性
所以我想應該可以直接把這個Recordset的data指給清單，這樣可以
省掉一個do while的執行時間，可是笨笨的我試不出來，請各位
VB高手指點一下，感激不盡~~~~~苦情花
Recordset 丟到清單裡去，除了使用AddItem還有其他的方法嗎？
因為使用AddItem的方式的話要跑do while的迴圈，一個個的加上
去，再者我看ComboBox裡有一個DataSource和DataMember的屬性
所以我想應該可以直接把這個Recordset的data指給清單，這樣可以
省掉一個do while的執行時間，可是笨笨的我試不出來，請各位
VB高手指點一下，感激不盡~~~~~苦情花
請問MsgBox能半途中斷嗎?(編號：4022)
請問各位前輩一個有關MsgBox的問題.我想寫一個有一聯串vbYesNo的程式.請問假如我要在程式進行中將程式中斷,但不結束程式
請問我該如何寫
再請問有甚麼方法可以使MsgBox往前回前一個view.我的意思是假如我有10個MsgBox當我要進行到第四往下是第五個時假如我想回到第三個view時,請問我該怎麼辦
請問我該如何寫
再請問有甚麼方法可以使MsgBox往前回前一個view.我的意思是假如我有10個MsgBox當我要進行到第四往下是第五個時假如我想回到第三個view時,請問我該怎麼辦
關於format的問題?(編號：4019)
請教各位VB大師:
我於VB6.0中使用 format(date,"ee/mm/dd")將西元年轉成中華民國年,但是卻出現 2000/06/23,為何沒有做用;若換到別台電腦執行卻又正常耶!何故會如此?
ps:我使用NT workstation 4.0,國別也改成中華民國曆.
我於VB6.0中使用 format(date,"ee/mm/dd")將西元年轉成中華民國年,但是卻出現 2000/06/23,為何沒有做用;若換到別台電腦執行卻又正常耶!何故會如此?
ps:我使用NT workstation 4.0,國別也改成中華民國曆.
MaskedEdit的問題?(編號：4018)
在MaskedEdit的Mask屬性設定(C##)###-#### 資料就會顯示
(05)123-4567 可是在寫入資料庫後,資料並不是(05)123-4567
而是051234567 請問有沒有辦法解決?
(05)123-4567 可是在寫入資料庫後,資料並不是(05)123-4567
而是051234567 請問有沒有辦法解決?
ORDER BY語法如何將VARCHAR資料正確排列?(編號：4017)
該欄位TEST定義為VARCHAR,其內容是1,2,3等數字
如ORDER BY TEST
出現
1
10
11
2
3
4
非所要資料,該用何FUNCTION更正?
如ORDER BY TEST
出現
1
10
11
2
3
4
非所要資料,該用何FUNCTION更正?
Unload 後模組變數為何仍然保有最後之值？(編號：4016)
程式中有數個Form，例如Load Form1後，Form1內之模組變數會從初始值變為被設定值，Unload Form1後，若再叫出Form1時卻發現Form1內之模組變數仍保有Unload前之最後被設定值。不是Unload Form後這些模組變數就消失，再被呼叫未被設定前該是初始值嗎？
嘗試在Sub Form1_Unload事件程序中加入
Unload me
set Form1=Nothing
但是顯示出[沒有設定物件變數或With區塊變數]
請問該如何Unlaod才是正確？
嘗試在Sub Form1_Unload事件程序中加入
Unload me
set Form1=Nothing
但是顯示出[沒有設定物件變數或With區塊變數]
請問該如何Unlaod才是正確？
有關Crystal Report, 再請教先進們!(編號：4015)
很抱歉! 再請教一下, 如果我的欄位名稱不是使用Table, 而是 COM 傳
出的變數(非Recordset), 那在 Report上可指定其Heading為該變數嗎?
如您所言 link table即可, 那我可以link object 或 recordset嗎?
麻煩先進再指導一下, 謝謝!
出的變數(非Recordset), 那在 Report上可指定其Heading為該變數嗎?
如您所言 link table即可, 那我可以link object 或 recordset嗎?
麻煩先進再指導一下, 謝謝!
急問! Please help!(編號：4014)
有人知道如何用VB寫出能夠轉換數字的
program嗎? 我只想知道如果要從...
1)Binary轉換成Decimal number需要什麼code.
2)Binary轉換成Octal number需要什麼code.
3)Decimal轉換成Binary number需要什麼code.
4)Decimal轉換成Octal number需要什麼code.
5)Octal轉換成Binary number需要什麼code.
6)Octal轉換成Decimal number需要什麼code.
煩請各位VB高手幫幫忙...我以前從未讀過電腦課. 可是助教要我們設計這個程式...我對VB又一點都不瞭解! 希望大家能幫幫我...
懂得如何設計此程式者...請勿必在這兩天把我問題1-6需要的所有VB code寄到我的e-mail account! 因為下星期就得交出設計好的program. 謝謝!!!
program嗎? 我只想知道如果要從...
1)Binary轉換成Decimal number需要什麼code.
2)Binary轉換成Octal number需要什麼code.
3)Decimal轉換成Binary number需要什麼code.
4)Decimal轉換成Octal number需要什麼code.
5)Octal轉換成Binary number需要什麼code.
6)Octal轉換成Decimal number需要什麼code.
煩請各位VB高手幫幫忙...我以前從未讀過電腦課. 可是助教要我們設計這個程式...我對VB又一點都不瞭解! 希望大家能幫幫我...
懂得如何設計此程式者...請勿必在這兩天把我問題1-6需要的所有VB code寄到我的e-mail account! 因為下星期就得交出設計好的program. 謝謝!!!
DataGrid 的問題(編號：4013)
請問一下有誰知道在 Datagrid 中要如何像 MSHFlexGrid 一樣可以自訂顯示的方格，又在MSHFlexGrid 中只能看而不能輸入嗎?????
ACCESSㄉ問題(編號：4012)
不管是access2000 用 Microsoft.Jet.OLEDB.4.0
或 access 97 用 Microsoft.Jet.OLEDB.3.51 處理資料庫, 若table 中資料超過10萬筆, 使用 ADO 抓資料好像就怪怪ㄉ, 是否有其他人有相同問題??
或 access 97 用 Microsoft.Jet.OLEDB.3.51 處理資料庫, 若table 中資料超過10萬筆, 使用 ADO 抓資料好像就怪怪ㄉ, 是否有其他人有相同問題??
DataReportㄉ問題...(編號：4011)
VB在報表設定要連續列印時, 如條件單號 A89060005 ~ A89060010 用VB的datareport好像辦不到,產生msdatareport暫存檔送到印表機, 永遠都只印最後一頁, 請問一下是否有特殊技巧或工具? 在那裡可以取得 ? 能不能提供工具或範例? .....感激不盡.....
請問可以做iis的應用程式嗎？(編號：4010)
請問喔，有可能用vb開發某元件或應用程式，
然後跟iis整合在一起，這樣iis如果啟動或執行的話，
那個程式就可以一值run，就是說，若是client端
傳送資料，那麼iis可能就可以透過那程式來處理問題
或者iis每隔一段時間就呼叫那程式來做事情
這樣的事有可能做到嗎？
拜託拜託！如果不能的話，也請回應一下喔！
感謝！
然後跟iis整合在一起，這樣iis如果啟動或執行的話，
那個程式就可以一值run，就是說，若是client端
傳送資料，那麼iis可能就可以透過那程式來處理問題
或者iis每隔一段時間就呼叫那程式來做事情
這樣的事有可能做到嗎？
拜託拜託！如果不能的話，也請回應一下喔！
感謝！
[求救]VB6寫出來的東西,要如何包裝其Setup(編號：4008)
1.Windows 的快速檢視看不出來該exe檔
到底用到哪些dll
2.VB6的工具-＞發行
也無效.也說不會Auto...
3.用UltraEdit 32去找其用到哪些dll檔
然後copy進別台電腦的Windows/system目
錄裡
也無效
4.天哪...工作快完蛋了
日子一天天逼近
做出來的exe卻只能在自己的電腦上Run
到底用到哪些dll
2.VB6的工具-＞發行
也無效.也說不會Auto...
3.用UltraEdit 32去找其用到哪些dll檔
然後copy進別台電腦的Windows/system目
錄裡
也無效
4.天哪...工作快完蛋了
日子一天天逼近
做出來的exe卻只能在自己的電腦上Run
請幫我看看有沒有更簡單的做法...(編號：4007)
select iif(isnull(fieldName),"","(" & fieldName & ")") from tableName;
這個iif 讓效率變差了...
但是我必須將每筆資料加上括號，沒有資料的不可以出現空括號！
想請問大家，有沒有人覺得有更好的方法？
這個iif 讓效率變差了...
但是我必須將每筆資料加上括號，沒有資料的不可以出現空括號！
想請問大家，有沒有人覺得有更好的方法？
如何將文字反轉(編號：4006)
我要作一個文字反轉的程式~~~就是在text1.text內輸入abcde
text1.text要限制五個字元
在制作一個按扭~~按一下~在label.caption上出現edcba
我的是vb6.0
因為粉急請直接寄程式碼給我~~謝謝
text1.text要限制五個字元
在制作一個按扭~~按一下~在label.caption上出現edcba
我的是vb6.0
因為粉急請直接寄程式碼給我~~謝謝
非同步擷取資料，事件未能合理引發？(編號：4005)
使用非同步擷取資料，程式如下：
Set Rs.ActiveConnection = cn
With Rs
.CacheSize = 1
.CursorLocation = adUseClient
.Properties("Initial Fetch Size") = 1
.Open "select top 20000 * from main", cn, adOpenStatic, adLockOptimistic, adAsyncFetch Or adCmdText
End With
Rs.MoveNext
資料確實是成功的非同步擷取到，可是，如果傳回的資料比數少於15筆，rs_fetchComplete 將不會被引發..大於十五筆就不會有問題！
我少設定了哪一個參數嗎？(我的電腦是單cpu的)
還是有其他辦法讓我知道資料已經全部擷取完成呢？
ps:cn_executeComplete,rs_recordsetChangeComplete 都是不可行的...他們都是會被引發的事件，可惜不是在資料完成擷取之後引發！
感謝您耐心看完...給我一點方向吧...
或是有興趣的網友不妨提出您的看法？
Set Rs.ActiveConnection = cn
With Rs
.CacheSize = 1
.CursorLocation = adUseClient
.Properties("Initial Fetch Size") = 1
.Open "select top 20000 * from main", cn, adOpenStatic, adLockOptimistic, adAsyncFetch Or adCmdText
End With
Rs.MoveNext
資料確實是成功的非同步擷取到，可是，如果傳回的資料比數少於15筆，rs_fetchComplete 將不會被引發..大於十五筆就不會有問題！
我少設定了哪一個參數嗎？(我的電腦是單cpu的)
還是有其他辦法讓我知道資料已經全部擷取完成呢？
ps:cn_executeComplete,rs_recordsetChangeComplete 都是不可行的...他們都是會被引發的事件，可惜不是在資料完成擷取之後引發！
感謝您耐心看完...給我一點方向吧...
或是有興趣的網友不妨提出您的看法？
如何使Crystal Report 的Heading可滿足多國版本!(編號：4002)
請問開發WEB的Crystal report時, 其報表的Heading若想要有中文
版和英文版, 是要Design 2個Report呢? 還是可以用變數來設定,
而變數值是由Database而來, 麻煩您不吝指導, 謝謝!
版和英文版, 是要Design 2個Report呢? 還是可以用變數來設定,
而變數值是由Database而來, 麻煩您不吝指導, 謝謝!
HELP ~~_~~(編號：4001)
我想寫一個program
是一個連接winfax 的一個program
可以supervoice用來做connect的
個program要有一個name list 的
在name list 內按兩下就可以fax 的了
在fax program 內的內容是自動填寫的
而在另一個 list 就是顯示現在fax 中的次序排列
我要知道要在正是在fax 那一個人的
有邊個高手可以幫幫我同教我呀
是一個連接winfax 的一個program
可以supervoice用來做connect的
個program要有一個name list 的
在name list 內按兩下就可以fax 的了
在fax program 內的內容是自動填寫的
而在另一個 list 就是顯示現在fax 中的次序排列
我要知道要在正是在fax 那一個人的
有邊個高手可以幫幫我同教我呀
有誰知道VB 是否有影像CATURE CARD 的API ?(編號：3998)
有誰知道VB 是否有影像CATURE CARD 的API ?或Microsoft Winodws for Video 的API ? 因有專題要做 數位攝影機 匯入
功能..
功能..
Vb 6.0 version 無法處理 Office 2000 的Access MDB file ?(編號：3995)
Vb 6.0 version 無法處理 Office 2000 的Access MDB file ? 僅能 處理 Access 97 version . 微軟慢半拍,是否如此 ?有誰知道 ?
請問為什麼會這樣子哩(編號：3994)
請教大家一個問題 我用的是vb5
我設三個TextBox...一個 DATA
data的資料庫是連結access 97 的學生基本資料表
而三個TextBox分別連結DATA1的學號.姓名.電話 欄位
程式執行時沒問題
但是...如果在程式執行時,在TextBox上修改資料
此時我並沒有寫
data1.recordset.addnew
data1.recordset.edit
data1.recordset.updata
的這些指令
我只有跳到下一筆資料或者跳到另一個form再回來時
資料就會被修改了.........
請問為什麼會這樣子呢
希望知道為什麼會這樣子的人
能夠幫我解答
謝謝
我設三個TextBox...一個 DATA
data的資料庫是連結access 97 的學生基本資料表
而三個TextBox分別連結DATA1的學號.姓名.電話 欄位
程式執行時沒問題
但是...如果在程式執行時,在TextBox上修改資料
此時我並沒有寫
data1.recordset.addnew
data1.recordset.edit
data1.recordset.updata
的這些指令
我只有跳到下一筆資料或者跳到另一個form再回來時
資料就會被修改了.........
請問為什麼會這樣子呢
希望知道為什麼會這樣子的人
能夠幫我解答
謝謝
ADO查詢問題(編號：3990)
在ADO物件中，要如何查閱 AA.mdb 資料庫中 Address 欄位中住在「台北市」的資料呢？ (即從整串字串中找出部份相同的字串)
Address 欄位
台北市....
台北市....
高雄縣...
台南市...
Address 欄位
台北市....
台北市....
高雄縣...
台南市...
VBA的授權問題(編號：3988)
我現在在word的巨集裡想做一個表單，而表單裡有個物件為CommonDialog，所以我須要引用Microsoft common Dialog control6.0，在我的電腦裡皆可正常使用，但在別人的電腦裡卻不行，且會出現"未取得適當的授權"，那是什麼原因呢？是不是我的電腦有裝vb，而別人沒裝所造成，像這方面的問題要如何解決呢？麻煩大家....謝謝
Crystal Report7的Subreport加總(編號：3987)
請教Crystal Report 7的問題
是否有人會用Subreport,將一個Main report 內的兩個subreport內
的某個值加總後貼到Mainreport內?
我知道是使用Shared去下 Formula 但不知如何使用??
thanks
Timmy
是否有人會用Subreport,將一個Main report 內的兩個subreport內
的某個值加總後貼到Mainreport內?
我知道是使用Shared去下 Formula 但不知如何使用??
thanks
Timmy
Visual Basic 函數(編號：3985)
請進各位先進,目前市面上是否有Visual Basic 所有函數的書,如有
的話,能否告知小弟書名和在那可以找的到,小弟目前程式設計遇到瓶頸不知市面上那一本vb工具書對程式設計的功力提昇最有幫助,請求各位先進告知。 謝謝
的話,能否告知小弟書名和在那可以找的到,小弟目前程式設計遇到瓶頸不知市面上那一本vb工具書對程式設計的功力提昇最有幫助,請求各位先進告知。 謝謝
給AndyLin有關於VB和資料庫的問題(編號：3984)
AndyLin或許是我的問題沒有寫清楚 造成您的誤解 So.. Sorry
還有我發現雖然 Adodc 是使用絕對路徑但只要在設定Adodc 屬性的地方 編輯 DataSource 將它前面的 c:.. 刪除這樣根本就不須要設路徑也可以順利抓到後端給您做個參考
還有我發現雖然 Adodc 是使用絕對路徑但只要在設定Adodc 屬性的地方 編輯 DataSource 將它前面的 c:.. 刪除這樣根本就不須要設路徑也可以順利抓到後端給您做個參考
Unload Me 的問題??(編號：3983)
最近做的小程式不知道為什麼都有相同的錯誤
只要 MDI表單中的子表單有 Unload Me 的動作,系統馬上
就會告知我發生錯誤,然後就把整個VB給關掉了
有沒有哪位高手可以教教我要如何解決ㄋ
要不然我就要掛給他了啦 Thanks for you !!
只要 MDI表單中的子表單有 Unload Me 的動作,系統馬上
就會告知我發生錯誤,然後就把整個VB給關掉了
有沒有哪位高手可以教教我要如何解決ㄋ
要不然我就要掛給他了啦 Thanks for you !!
ado 可以像 dao 一樣嗎？(編號：3982)
記得以前用dao 可以用recordset 再open 一個新的recordset
為啥麼ado 一定要去煩server 呢？
難道沒有可以用client 端已形成的 recordset 再查詢的方法嗎？
幫幫忙...這對我很重要...
我希望能讓使用者可以查詢後再查詢的...
為啥麼ado 一定要去煩server 呢？
難道沒有可以用client 端已形成的 recordset 再查詢的方法嗎？
幫幫忙...這對我很重要...
我希望能讓使用者可以查詢後再查詢的...
如何將影像存成非BMP格式?(編號：3981)
利用Picture Box 或Image Box 的Object ，雖然可以讀入所有Windows支援的格式(如GIF,JPG），但在存檔時卻只能存Bmp檔，是否有其他方法可以存成原來格式的檔案..
如何透過ADO將SQL SERVER的資料匯入ACCESS??(編號：3976)
我想用VB寫一段程式,利用ADO將SQL SERVER的TABLE匯入ACCESS,可是要怎麼做咧???????請大家幫我想想辦法..TKS
VB 101.1 - 100 1.1(編號：3975)
Who Can tell me!
我用 VB 5.0 SP3 和 VB6.0 SP3 試過都有問題,
我用 101.1 - 100 結果 等於 1.0999998
請問有誰知道到底發生了什麼事!!
沒遇過的人順便試試看,你會不會也這樣呢!!
我用 VB 5.0 SP3 和 VB6.0 SP3 試過都有問題,
我用 101.1 - 100 結果 等於 1.0999998
請問有誰知道到底發生了什麼事!!
沒遇過的人順便試試看,你會不會也這樣呢!!
如何使他人可直接執行編譯後的程式而不必進行安裝過程(編號：3974)
Dear Sirs,
有時用Outlook可以收到一些小的.exe程式，它可直接執行而不必進行安裝，請問VB可以寫這樣的程式嗎？還是一定要安裝VB的runtime DLL檔？
Thanks a lot!
有時用Outlook可以收到一些小的.exe程式，它可直接執行而不必進行安裝，請問VB可以寫這樣的程式嗎？還是一定要安裝VB的runtime DLL檔？
Thanks a lot!
初始化提供者...(編號：3970)
我用Dataenvironment連接Access2000資料庫
當Access資料庫沒設密碼時一切正常
但當我把Access資料庫加密碼後
在做測試連接時
出現"因在初始化提供者時遭遇錯誤,測試連接失敗無法啟動您的應用程式
工作群組的資料檔案不見了或被另一個使用者以獨佔方式開啟"
的錯誤訊息,要如何解決
當Access資料庫沒設密碼時一切正常
但當我把Access資料庫加密碼後
在做測試連接時
出現"因在初始化提供者時遭遇錯誤,測試連接失敗無法啟動您的應用程式
工作群組的資料檔案不見了或被另一個使用者以獨佔方式開啟"
的錯誤訊息,要如何解決
找某個 handle or class 執行視窗的執行檔名(編號：3969)
有什麼 api 還是什麼方法可以
找某個 handle or class 執行視窗的執行檔名
譬如說 現在如果知道記事本的 handle
要怎麼找到它執行檔名是 notepad.exe 呢?
找某個 handle or class 執行視窗的執行檔名
譬如說 現在如果知道記事本的 handle
要怎麼找到它執行檔名是 notepad.exe 呢?
小問題(編號：3968)
請問要如何利用迴圈將資料引入陣列，然後再讀出，假設
dim My() as string
'fielddata=某一欄位資料
do
my()=fielddata
loop
我不知要如何用?可否教一下如何引用及如何讀出?或許將我的觀念指正一下，謝謝大家!
dim My() as string
'fielddata=某一欄位資料
do
my()=fielddata
loop
我不知要如何用?可否教一下如何引用及如何讀出?或許將我的觀念指正一下，謝謝大家!
如何login 所有Datasource?(編號：3967)
若果每個Form都有幾個datasource(MSRDC),如何可以在login時候(i.e.user enter the username and password in the login form)同時間login所有 Datasource?
Dim cn As New rdoConnection
Username = txtname.Text
PW = txtPw.Text
cn.Connect = "dsn=A01;database=tempdb;UID=" & frmLogin.Username & ";PWD=" & frmLogin.PW & ""
cn.EstablishConnection
Set Form1.MSRDC1.Resultset = cn.OpenResultset("select * from temprecord1")
'error occur Form1.MSRDC1.Resultset ＜object variable or with block variable not set＞
Set Form1.MSRDC2.Resultset = cn.OpenResultset("select * from temprecord2")
Set Form1.MSRDC3.Resultset = cn.OpenResultset("select * from temprecord3")
p.s. use VB6.0 and SQL server7.0
Thanks!
Dim cn As New rdoConnection
Username = txtname.Text
PW = txtPw.Text
cn.Connect = "dsn=A01;database=tempdb;UID=" & frmLogin.Username & ";PWD=" & frmLogin.PW & ""
cn.EstablishConnection
Set Form1.MSRDC1.Resultset = cn.OpenResultset("select * from temprecord1")
'error occur Form1.MSRDC1.Resultset ＜object variable or with block variable not set＞
Set Form1.MSRDC2.Resultset = cn.OpenResultset("select * from temprecord2")
Set Form1.MSRDC3.Resultset = cn.OpenResultset("select * from temprecord3")
p.s. use VB6.0 and SQL server7.0
Thanks!
GetParentFolderName(編號：3966)
有人使用過這一個vb script嬤.?
他的作用可以傳回最後一個檔案,可是msdn內所言,只可以傳回父目錄的名稱,要如何做才可以傳回指定目錄下的檔案呢.?
他的作用可以傳回最後一個檔案,可是msdn內所言,只可以傳回父目錄的名稱,要如何做才可以傳回指定目錄下的檔案呢.?
利用ADO搜尋資料有問題(編號：3965)
我用ADO和DataGrid打了下面的程式碼,Adodc1.recordset.find “收盤價＞100”,因為我使用的是一個股票名稱,收盤價,成交量等資料的資料表,我想找收盤價大於100的資料,不過都會出現錯誤訊息,除非是直接打收盤價等於某價格才不會有問題,到底是何原因,如果有人知道請告訴我,謝謝.
幫我看一下有沒有必這更簡單的寫法......(編號：3963)
於模組中宣告時，有沒有比以下更簡單的語法呢?
T0 As String
T1 As String
T2 As String
.........
.........
.........
T99 As String
T100 As String
T0 As String
T1 As String
T2 As String
.........
.........
.........
T99 As String
T100 As String
VB 為前端抓取後端資料庫 Accsee(編號：3961)
給樓下那位先生
============================================================
發言者： AndyLin 時間： 06/19/00 08:42:49 來自： 139.223.128.243
1.在封裝暨部時將該Access檔一起加入就可以了
2.只要將Access與程式放在同一台機器不就是單機版了嗎?
由你的問題建議你對資料庫之關念要多加油了 !!
============================================================
我想要加油的應該是您吧!! 想必您大概沒有親自抓過後端吧!!
若使用前端Adodc 抓取後端都是使用(絕對路徑) 所以就算你把Accsee 資料庫丟在和 VB同個資料夾在一起封裝也是不行的因為
Accsee 根本就不具編譯 EXE 的能力 我想您可能要多看一些有關
Client 和 Server 的書
============================================================
發言者： AndyLin 時間： 06/19/00 08:42:49 來自： 139.223.128.243
1.在封裝暨部時將該Access檔一起加入就可以了
2.只要將Access與程式放在同一台機器不就是單機版了嗎?
由你的問題建議你對資料庫之關念要多加油了 !!
============================================================
我想要加油的應該是您吧!! 想必您大概沒有親自抓過後端吧!!
若使用前端Adodc 抓取後端都是使用(絕對路徑) 所以就算你把Accsee 資料庫丟在和 VB同個資料夾在一起封裝也是不行的因為
Accsee 根本就不具編譯 EXE 的能力 我想您可能要多看一些有關
Client 和 Server 的書
怎樣才能讀取internet上之純文字檔案?(編號：3959)
Suppose there is a TEXT file on INTERNET like this,
"I am a man.
We are good friend.
......."
I would like to put the above content one line by one line into array. For example,
array(0)="I am a man."
array(1)="We are good friend."
array(2)=........
array(3)=........
How to do this? Thank you very much.
"I am a man.
We are good friend.
......."
I would like to put the above content one line by one line into array. For example,
array(0)="I am a man."
array(1)="We are good friend."
array(2)=........
array(3)=........
How to do this? Thank you very much.
DataGrid的問題?(編號：3958)
執行新增指令 Adodc1.Recordset.AddNew DataGrid會增加一筆空白的欄位可是不輸入資料或執行取消指令，DataGrid會出現錯誤訊息〔不能插入一空列。您至少需設定一欄位值。〕
請問有沒有人可以解決
在很多程式都有說明檔,請問要如何寫說明檔及用VB呼叫說明檔
請問有沒有人可以解決
在很多程式都有說明檔,請問要如何寫說明檔及用VB呼叫說明檔
讀取隨機檔案有更好的方法嗎?(編號：3957)
類似以下流水號方式的隨機檔，有更簡單的寫法嗎?
Open TheFileName For Random As #1 Len = 40
Get #1, 1, INFO.txt1
Get #1, 2, INFO.txt2
Get #1, 3, INFO.txt3
Get #1, 4, INFO.FILE
..........
.......
....
Get #1, 201, INFO.D95
Get #1, 202, INFO.D96
Get #1, 203, INFO.D97
Get #1, 204, INFO.D98
Get #1, 205, INFO.D99
Get #1, 206, INFO.D100
Close #1
Open TheFileName For Random As #1 Len = 40
Get #1, 1, INFO.txt1
Get #1, 2, INFO.txt2
Get #1, 3, INFO.txt3
Get #1, 4, INFO.FILE
..........
.......
....
Get #1, 201, INFO.D95
Get #1, 202, INFO.D96
Get #1, 203, INFO.D97
Get #1, 204, INFO.D98
Get #1, 205, INFO.D99
Get #1, 206, INFO.D100
Close #1
難以搭配...(編號：3955)
我需要列印標籤...可是...
1.ado + data report 無法列印標籤
2.crystal report 需要使用dao
(我需要先搜尋在列印，改用dao需要連搜尋功能都全改了)
3.新版的crystal report 有支援ado 可是很貴
4.使用access object 無法預覽列印
天阿...誰能建議一下我該怎麼做？
1.ado + data report 無法列印標籤
2.crystal report 需要使用dao
(我需要先搜尋在列印，改用dao需要連搜尋功能都全改了)
3.新版的crystal report 有支援ado 可是很貴
4.使用access object 無法預覽列印
天阿...誰能建議一下我該怎麼做？
真係冇人幫到我呀???(編號：3954)
我想寫一個program
是一個連接winfax 的一個program
可以supervoice用來做connect的
個program要有一個name list 的
在name list 內按兩下就可以fax 的了
在fax program 內的內容是自動填寫的
而在另一個 list 就是顯示現在fax 中的次序排列
我要知道要在正是在fax 那一個人的
有邊個高手可以幫幫我同教我呀
是一個連接winfax 的一個program
可以supervoice用來做connect的
個program要有一個name list 的
在name list 內按兩下就可以fax 的了
在fax program 內的內容是自動填寫的
而在另一個 list 就是顯示現在fax 中的次序排列
我要知道要在正是在fax 那一個人的
有邊個高手可以幫幫我同教我呀
如何知道 EXCEL 中的方格內容是什麼Format(編號：3952)
本人在 VB 中引用了 EXCEL 作為一個 Database,
但在讀取內容時, 因格式不符,
使到很多資料變成 NULL.
煩請各大高手指點!!
但在讀取內容時, 因格式不符,
使到很多資料變成 NULL.
煩請各大高手指點!!
Access用ado與vb相連接問題(編號：3950)
Question#1:
再vb中我用adodc連接到access,我要如何在一個資料表中,
擷取出field相同名稱的一段,作為datacombo的rowsource.
例如:在一堆資料中,取出"公司名稱"相同的資料,變成一個新的資料集.
Question#2:
再ie中我們如果要搜尋資料時,我們只要鍵入第一個字,
下面就會出現有關這個字的所有清單,這樣的技術有辦法運用在vb上嗎??
例如:我們打http://www.kimo ,下面就會出現http://www.kimo.com.tw的
所有清單.
Question#3:
銷貨單與銷貨單細目如何連結更新,就是說按上一筆下一比,銷貨單細目
會跟著動.
再vb中我用adodc連接到access,我要如何在一個資料表中,
擷取出field相同名稱的一段,作為datacombo的rowsource.
例如:在一堆資料中,取出"公司名稱"相同的資料,變成一個新的資料集.
Question#2:
再ie中我們如果要搜尋資料時,我們只要鍵入第一個字,
下面就會出現有關這個字的所有清單,這樣的技術有辦法運用在vb上嗎??
例如:我們打http://www.kimo ,下面就會出現http://www.kimo.com.tw的
所有清單.
Question#3:
銷貨單與銷貨單細目如何連結更新,就是說按上一筆下一比,銷貨單細目
會跟著動.
如何求得最節省的紙箱？(編號：3949)
諸位好:請您不要認為這是學校作業！
小弟最近在接一個案子時，碰到一個需求如下:
現有三種的紙箱規格，及一堆的產品(各用紙箱包裝)，請問小弟要如何
才能計算出哪些產品要放到什麼紙箱以及用哪種紙箱呢？
很感謝您的閱讀，更感激的回覆！
謝謝！感激不盡！
小弟最近在接一個案子時，碰到一個需求如下:
現有三種的紙箱規格，及一堆的產品(各用紙箱包裝)，請問小弟要如何
才能計算出哪些產品要放到什麼紙箱以及用哪種紙箱呢？
很感謝您的閱讀，更感激的回覆！
謝謝！感激不盡！
請問 sql server 如何設定自動備份某個 database(編號：3948)
請問 sql server 7.0 如何設定自動定時備份某個 database，實在是懶的寫備份的程式了，請各位高手指點一下，感激萬分!
關於 STKIT32.DLL(編號：3947)
各位好~~
我想其實有很多寶貝本來就存在我們身邊，當我們安裝各種軟體時，都已經登錄了。
像這個STKIT32.DLL，小弟使用VC++的DUMPBIN得知裏面有
AbortAction
AddActionNote
AllocUnit
ChangeActionKey
CommitAction
DISKSPACEFREE
DLLSelfRegister
DisableLogging
EnableLogging
GetLongPathName
GetWinPlatform
LogConfig
LogError
LogNote
LogWarning
NewAction
SetTime
SyncShell
fCreateShellFolder
fCreateShellLink
fNTWithShell
fRemoveShellLink
fWithinAction
lmemcpy
這麼多東東，卻不知其詳盡用途，盼網上高人指點一番~~
夢遊
我想其實有很多寶貝本來就存在我們身邊，當我們安裝各種軟體時，都已經登錄了。
像這個STKIT32.DLL，小弟使用VC++的DUMPBIN得知裏面有
AbortAction
AddActionNote
AllocUnit
ChangeActionKey
CommitAction
DISKSPACEFREE
DLLSelfRegister
DisableLogging
EnableLogging
GetLongPathName
GetWinPlatform
LogConfig
LogError
LogNote
LogWarning
NewAction
SetTime
SyncShell
fCreateShellFolder
fCreateShellLink
fNTWithShell
fRemoveShellLink
fWithinAction
lmemcpy
這麼多東東，卻不知其詳盡用途，盼網上高人指點一番~~
夢遊
VB可不可以寫 NT Service 程式呢(編號：3946)
請問一下:
使用 Visual Basic 是否可以撰寫 Windows NT 4.0 或 Windows 2000 Server 的 Service 應用程式呢?
若不行，可用什麼方式來解決呢?
使用 Visual Basic 是否可以撰寫 Windows NT 4.0 或 Windows 2000 Server 的 Service 應用程式呢?
若不行，可用什麼方式來解決呢?
ado 中可以使用sql 語法更改已經開啟的recordset 嗎？(編號：3944)
我想寫一個搜尋...當搜尋完成後所得的資料錄先顯示出來..
再由使用者決定要印出、修改、刪除或是再搜尋...
可是我不知道如何在已開啟的資料錄中再次搜尋...
記得以前dao 似乎可以的...
請問有人知道可以嗎？
還是覺得我不需要這麼做..有更好的做法呢？
再由使用者決定要印出、修改、刪除或是再搜尋...
可是我不知道如何在已開啟的資料錄中再次搜尋...
記得以前dao 似乎可以的...
請問有人知道可以嗎？
還是覺得我不需要這麼做..有更好的做法呢？
資料問題?(編號：3943)
Dim MyDB As New ADODB.Connection
'設定MyDB為一個新的ADODB的Connection物件
Dim MyRec As New ADODB.Recordset
'設定MyRes為一個新的ADODB的Recordset物件
Dim objRec As ADODB.Recordset
Dim objFld As ADODB.Field
Private Sub Command1_Click()
On Error Resume Next
MyDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "/xxxx.mdb"
MyRec.Open "TRANSFORM Count(conum) AS conum SELECT callnum FROM digeyes WHERE telnum='" & Text1(0).Text & "' OR telnum='" & Text1(1).Text & "'OR telnum='" & Text1(2).Text & "'GROUP BY callnum PIVOT telnum;", MyDB, 1, 1
Set objRec = New ADODB.Recordset
objRec.Fields.Append "號碼", adInteger
objRec.Fields.Append Text1(0).Text, adInteger
objRec.Fields.Append Text1(1).Text, adInteger
objRec.Fields.Append Text1(2).Text, adInteger
objRec.Open
====================================
Do
objRec.AddNew ("號碼", Text1(0).Text, Text1(1).Text,Text1(2).Text),( MyRec("callnum"), Text1(0).Text, MyRec(Text1(1).Text,myrec(text1(2).text))
MyRec.MoveNext
Loop Until MyRec.EOF
====================================
各位大哥上面框起來的地方，小弟不知要如何處理，讓資料正確的填入資料錄(像access多筆相同資料，計次問題)麻煩教一下吧!我該如何解決??????
Set DataGrid1.DataSource = objRec
End Sub
'設定MyDB為一個新的ADODB的Connection物件
Dim MyRec As New ADODB.Recordset
'設定MyRes為一個新的ADODB的Recordset物件
Dim objRec As ADODB.Recordset
Dim objFld As ADODB.Field
Private Sub Command1_Click()
On Error Resume Next
MyDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "/xxxx.mdb"
MyRec.Open "TRANSFORM Count(conum) AS conum SELECT callnum FROM digeyes WHERE telnum='" & Text1(0).Text & "' OR telnum='" & Text1(1).Text & "'OR telnum='" & Text1(2).Text & "'GROUP BY callnum PIVOT telnum;", MyDB, 1, 1
Set objRec = New ADODB.Recordset
objRec.Fields.Append "號碼", adInteger
objRec.Fields.Append Text1(0).Text, adInteger
objRec.Fields.Append Text1(1).Text, adInteger
objRec.Fields.Append Text1(2).Text, adInteger
objRec.Open
====================================
Do
objRec.AddNew ("號碼", Text1(0).Text, Text1(1).Text,Text1(2).Text),( MyRec("callnum"), Text1(0).Text, MyRec(Text1(1).Text,myrec(text1(2).text))
MyRec.MoveNext
Loop Until MyRec.EOF
====================================
各位大哥上面框起來的地方，小弟不知要如何處理，讓資料正確的填入資料錄(像access多筆相同資料，計次問題)麻煩教一下吧!我該如何解決??????
Set DataGrid1.DataSource = objRec
End Sub
請問要如何寫一個能查到同筆劃的所有字的程式呢？(編號：3942)
要如何寫一個能查到同筆劃的所有字的程式呢？
例如:我要查筆劃為10劃的所有字要怎麼做呢....
以前好像有看過類似的程式，
不過老早都已經忘光了！
所以要請各路高手幫幫忙囉～～～thanks!..
例如:我要查筆劃為10劃的所有字要怎麼做呢....
以前好像有看過類似的程式，
不過老早都已經忘光了！
所以要請各路高手幫幫忙囉～～～thanks!..
如何關閉Shell所呼叫的應用程式(編號：3941)
現在我遇到一個問題：
1.VB開啟了外部程式（例如Excel）以後，當VB程式要結束時，如何 先關閉Excel，再關閉VB程式呢？
2.還有Excel關閉時會問你要不要儲存，如何以VB程式直接告知確定而結束？
1.VB開啟了外部程式（例如Excel）以後，當VB程式要結束時，如何 先關閉Excel，再關閉VB程式呢？
2.還有Excel關閉時會問你要不要儲存，如何以VB程式直接告知確定而結束？
怎麼找最後一個產生的檔案呢.??(編號：3940)
各位先進...
我又來了...剛剛的問題已經獲得網友的幫忙了...
最後一個問題就是我要如何輸出最後一個時間產生的檔案呢.??
App.Path & Format(Now, "mmdd") & Combo1.Text & "NT"
這是我自己放檔案的地方,我想應該是用時間去比對,但是不知道檔案個數...!!等訊息的情況,要怎麼比對呢.??
我又來了...剛剛的問題已經獲得網友的幫忙了...
最後一個問題就是我要如何輸出最後一個時間產生的檔案呢.??
App.Path & Format(Now, "mmdd") & Combo1.Text & "NT"
這是我自己放檔案的地方,我想應該是用時間去比對,但是不知道檔案個數...!!等訊息的情況,要怎麼比對呢.??
請問 正確的新增一筆資料的方式(編號：3938)
請教一下大家..我用的是VB5
我用DAO新增一筆資料的時候
為什麼會出現二筆記錄
一筆是我新增的...一筆是空白的
以下是我的程式碼
Data1.Refresh
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.AddNew
如果將最下面那一行拿掉...就只能存入一筆.....其他的就會變空白
而如果將最上面那行拿掉....就不能存入
會出現.."因相關物件動作被取消"的錯誤訊息
請問怎麼會這樣子呢
我用DAO新增一筆資料的時候
為什麼會出現二筆記錄
一筆是我新增的...一筆是空白的
以下是我的程式碼
Data1.Refresh
Data1.Recordset.AddNew
Data1.Recordset.Update
Data1.Recordset.AddNew
如果將最下面那一行拿掉...就只能存入一筆.....其他的就會變空白
而如果將最上面那行拿掉....就不能存入
會出現.."因相關物件動作被取消"的錯誤訊息
請問怎麼會這樣子呢
怎樣結合Count 和 Distinct 語法(編號：3937)
請問如何計算唯一的欄位有多少?
SELECT Count (*) DISTINCT Login from Member ???
頭痛 !!
又怎樣可以拿取所得的值?
SELECT Count (*) DISTINCT Login from Member ???
頭痛 !!
又怎樣可以拿取所得的值?
要如何處理*.txt檔案.....(編號：3936)
不知道哪一個先進可以告訴我要如何處理*.txt的檔案呢.??
我open "*.txt" input as #1
之後,要怎麼做才可以將不知筆數,單位筆數長度為409的資料一筆筆的輸出印表呢.??(這其中還要做判斷一資料集的問題),所以我自己用比較笨的方式mid(txtfile,xx,xx)的方式一一區隔開來,可是不知道有多少筆的情況下,要怎麼做比較快呢.??
我open "*.txt" input as #1
之後,要怎麼做才可以將不知筆數,單位筆數長度為409的資料一筆筆的輸出印表呢.??(這其中還要做判斷一資料集的問題),所以我自己用比較笨的方式mid(txtfile,xx,xx)的方式一一區隔開來,可是不知道有多少筆的情況下,要怎麼做比較快呢.??
DCOM client 設定(編號：3935)
vb做出來的DCOM物件,在Client(win98)dcomcnfg如何設定,(找不到classID OR 物件名稱)剛接觸DCOM摸索中,請大家指教,謝謝!!
如何捉取crystal report的列印狀態..........(編號：3933)
在crystal report 7.0的preview中,如要列印只要按下preview畫面的列印按鍵即可,但我要如何才可以知道是否按下了列印的按鍵呢?
無法載入(編號：3932)
請問大家
我在載入一個 new project 時
載入到一半....出現.......
無法載入 "c:\pro~\dev~\vb\template\projects\comctl32.ocx"
請問這是什麼問題呢
我重新安裝後還是不行
我用的是vb5
請幫幫忙吧....謝謝
我在載入一個 new project 時
載入到一半....出現.......
無法載入 "c:\pro~\dev~\vb\template\projects\comctl32.ocx"
請問這是什麼問題呢
我重新安裝後還是不行
我用的是vb5
請幫幫忙吧....謝謝
請幫幫忙好嗎??(編號：3930)
我想寫一個program
是一個連接winfax 的一個program
可以supervoice用來做connect的
個program要有一個name list 的
在name list 內按兩下就可以fax 的了
在fax program 內的內容是自動填寫的
而在另一個 list 就是顯示現在fax 中的次序排列
我要知道要在正是在fax 那一個人的
有邊個高手可以幫幫我同教我呀??
是一個連接winfax 的一個program
可以supervoice用來做connect的
個program要有一個name list 的
在name list 內按兩下就可以fax 的了
在fax program 內的內容是自動填寫的
而在另一個 list 就是顯示現在fax 中的次序排列
我要知道要在正是在fax 那一個人的
有邊個高手可以幫幫我同教我呀??
資料庫刪除問題(編號：3927)
請問我用的是vb5..在資料庫刪除資料錄時
如果將只剩下的最後一筆資料刪除後
會出現"無現用的記錄"錯誤訊息
程式就會跳開了
請問這該怎麼解決呢
我用的是 data1.recordset.delete
謝謝
如果將只剩下的最後一筆資料刪除後
會出現"無現用的記錄"錯誤訊息
程式就會跳開了
請問這該怎麼解決呢
我用的是 data1.recordset.delete
謝謝
救命啊!!資料更新出問題了!!(編號：3926)
我以VB寫了一個管理Oracle的資料庫的程式，在Windows 98 或
Windows NT的環境下作業都很正常，但在Windows 95時更新會出
現"執行階段錯誤'-2147467259(80004005)'更新或重整所需鍵欄位
資訊不足"的訊息，請問這要如何解決
Windows NT的環境下作業都很正常，但在Windows 95時更新會出
現"執行階段錯誤'-2147467259(80004005)'更新或重整所需鍵欄位
資訊不足"的訊息，請問這要如何解決
Drawing without replacement(編號：3925)
Drawing without replacement
I hope someone can help me to solve my problem.
I want to use VB to write a game program, so that it can give out 6 random number betweeb 47 numbers. I want to make it as drawing without replacement, so my program have to check that is the number selected is the same as any number appear b4? However it still cannot work.
Who can help me?
Private Sub Command1_Click()
Const maxnum = 6
Const totalnum = 47
Dim Num(maxnum) As Integer
Dim i, temp As Integer
Dim SameNum As Boolean
NoSameNum = True
i = 1
j = 1
Do While i ＜= maxnum
temp = Fix(Rnd * totalnum) + 1
Num(i) = temp
Do While NoSameNum = True
For j = 1 To maxnum
If Num(i) = Num(j) Then
NoSameNum = False
End If
Next j
Print Num(i)
i = i + 1
Loop
Loop
End Sub
I hope someone can help me to solve my problem.
I want to use VB to write a game program, so that it can give out 6 random number betweeb 47 numbers. I want to make it as drawing without replacement, so my program have to check that is the number selected is the same as any number appear b4? However it still cannot work.
Who can help me?
Private Sub Command1_Click()
Const maxnum = 6
Const totalnum = 47
Dim Num(maxnum) As Integer
Dim i, temp As Integer
Dim SameNum As Boolean
NoSameNum = True
i = 1
j = 1
Do While i ＜= maxnum
temp = Fix(Rnd * totalnum) + 1
Num(i) = temp
Do While NoSameNum = True
For j = 1 To maxnum
If Num(i) = Num(j) Then
NoSameNum = False
End If
Next j
Print Num(i)
i = i + 1
Loop
Loop
End Sub
ODBC 的問題(編號：3923)
想請教各位:
WIN98 控制台的 ODBC資料來源(32位元), 是安裝 WIN98 時就會自然存在或是需要特別的設定他才會出現 ?
我所遇到是問題是這樣的 : 我用 ODBC 去連結至 dBASE 的資料庫,
我的作法如下:
connstr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=DBASE;Initial Catalog=c:\DB3"
Adodc1.ConnectionString = connstr
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM table"
安裝在多台電腦多能正常工作, 最近一台安裝後,卻出現 dbase 資料庫引擎無法鎖定因為該資料表已被使用的錯誤訊息,
請問各位這是什麼緣故 ?
WIN98 控制台的 ODBC資料來源(32位元), 是安裝 WIN98 時就會自然存在或是需要特別的設定他才會出現 ?
我所遇到是問題是這樣的 : 我用 ODBC 去連結至 dBASE 的資料庫,
我的作法如下:
connstr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=DBASE;Initial Catalog=c:\DB3"
Adodc1.ConnectionString = connstr
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM table"
安裝在多台電腦多能正常工作, 最近一台安裝後,卻出現 dbase 資料庫引擎無法鎖定因為該資料表已被使用的錯誤訊息,
請問各位這是什麼緣故 ?
VB 為前端抓取後端資料庫(編號：3922)
根據小弟的研究以 VB 為前端抓取後端資料庫 Accsee 是否沒有辦法
利用 封裝暨部精靈安裝成一個SETUP檔案 供使用者存取
請問個位高人是否有其他的辦法將前端與後端安裝在一起供使用者存取就像外面在賣的單讀套裝軟體一樣懇請個位回答
Thanks
利用 封裝暨部精靈安裝成一個SETUP檔案 供使用者存取
請問個位高人是否有其他的辦法將前端與後端安裝在一起供使用者存取就像外面在賣的單讀套裝軟體一樣懇請個位回答
Thanks
急徵~~~~vb高手幫我讀到高三吧！(編號：3919)
最近因在趕著期末作業啦！
所以需要你們VB程式高手來解救啦！~~~^O^
我表單都設計好了~~~~只差程式碼啦！
拜託~~~~請幫忙一下啦！
謝啦！~~~~~各位
所以需要你們VB程式高手來解救啦！~~~^O^
我表單都設計好了~~~~只差程式碼啦！
拜託~~~~請幫忙一下啦！
謝啦！~~~~~各位
關於Mouse 離開的Event(編號：3917)
'我在此不是發問什麼問題，只不過想跟大家談談Mouse離開Event的心得~~
'我有一個方法，可以不難達到這個要求......
'首先，那元件的基本需求是要有GotFocus和LostFocus的Event
'利用這兩個Event便可輕易達到Mouse 離開的Event
'eg:
'在表單怖置兩個Command Button
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.SetFocus
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.SetFocus
End Sub
'然後Mouse移進的Event便成了 --＞ Command1_GotFocus
'另外Mouse移出的Event便成了 --＞ Command1_LostFocus
'這個方法我不懂是否一個有效的方法，希望各位高手可以指點指點
謝謝~
'我有一個方法，可以不難達到這個要求......
'首先，那元件的基本需求是要有GotFocus和LostFocus的Event
'利用這兩個Event便可輕易達到Mouse 離開的Event
'eg:
'在表單怖置兩個Command Button
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.SetFocus
End Sub
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.SetFocus
End Sub
'然後Mouse移進的Event便成了 --＞ Command1_GotFocus
'另外Mouse移出的Event便成了 --＞ Command1_LostFocus
'這個方法我不懂是否一個有效的方法，希望各位高手可以指點指點
謝謝~
請問璉璉???(編號：3915)
請問如果mouse不在表單上(在桌面or表單以外的地方)按左鍵or右鍵也可以有mouse的事件嗎??????或是有API的訊息可以抓呢????要如何寫呢!!!!!謝謝~~~
自建錯誤處理(編號：3912)
一個事件程序中有數個分開的判斷
...........
if 空字串 Then
處理程式碼 AAA
end if
...........
...........
if 不存在 Then
處理程式碼 AAA
end if
...........
...........
if 值不符 Then
處理程式碼 AAA
end if
...........
...........
...........
因為都是執行同樣的處理程式碼 AAA，所以想自建錯誤處理，
Const MYErrorNumber=1+VBObjectError+512
再用On Error goto ErrorHandler
ErrorHandler:
Select case err.Number
case ..
case MYErrorNumber
處理程式碼 AAA
end Select
請問要如何才能偵測到自建錯誤的MYErrorNumber而不需要寫這麼多If...Then就可以像VB自動偵測到錯誤。
...........
if 空字串 Then
處理程式碼 AAA
end if
...........
...........
if 不存在 Then
處理程式碼 AAA
end if
...........
...........
if 值不符 Then
處理程式碼 AAA
end if
...........
...........
...........
因為都是執行同樣的處理程式碼 AAA，所以想自建錯誤處理，
Const MYErrorNumber=1+VBObjectError+512
再用On Error goto ErrorHandler
ErrorHandler:
Select case err.Number
case ..
case MYErrorNumber
處理程式碼 AAA
end Select
請問要如何才能偵測到自建錯誤的MYErrorNumber而不需要寫這麼多If...Then就可以像VB自動偵測到錯誤。
請問小吳????(編號：3911)
請問VB可以在form以外的地方抓的到mouse事件嗎(如桌面)或API可以抓的到嗎~~~~如我要在桌面點mouse的左鍵or右鍵時各去執行一段程式~~~~要怎麼寫呢????~~~~~謝謝您!!
一個新手的蠢問題[找了之前的問題都沒找到](編號：3910)
command button的執行前用[開始]和執行後的改成[取消]但是只用command1是否可以教我要怎麼用??~~謝謝
還有如果有檔案是.exe的執行檔[視窗檔案]可以直接用vb來打開看及修改嗎??~~請告知小弟~~謝謝[只知道能存檔為.exe的新手]
還有如果有檔案是.exe的執行檔[視窗檔案]可以直接用vb來打開看及修改嗎??~~請告知小弟~~謝謝[只知道能存檔為.exe的新手]
請問ShellSort詳細的排序方法(編號：3908)
1. ShellSort用甚麼方法去執行排序?
比如有10個物件要排序, 可否說明詳細的排序方法?
2. 甚麼是(exclusive or)???
拜託!拜託!
比如有10個物件要排序, 可否說明詳細的排序方法?
2. 甚麼是(exclusive or)???
拜託!拜託!
VB與Excel圖表(編號：3906)
VB中可以直接放入Excel的圖表資料
也可以在執行中直接編輯
可是不知道有沒有方法可以由程式碼控制圖表的數值
因為Excel的圖表類型比較多,所以想用,知道的朋友們
請告訴我 謝謝!!
也可以在執行中直接編輯
可是不知道有沒有方法可以由程式碼控制圖表的數值
因為Excel的圖表類型比較多,所以想用,知道的朋友們
請告訴我 謝謝!!
VB6.0(編號：3905)
如何讓vb6制做出來的*.exe 可在沒有VB6.0軟
體去執行VB6.0所制做出來的*.EXE
可以在WINDOWS 2000執行VB6.0所制做出來
的*.EXE嗎
請告訴我如何做出來
體去執行VB6.0所制做出來的*.EXE
可以在WINDOWS 2000執行VB6.0所制做出來
的*.EXE嗎
請告訴我如何做出來
[VBA]VB呼叫WORD的合併列印為何不會合併資料欄呢？(編號：3904)
請教各位先進..
1.個人使用VB呼叫WORD的合併列印，VB告訴我找不到合併欄位，但是WORD內的巨集指令會自動合併；請問到底怎麼呼叫執行合併的功能？
2.個人於VB5呼叫DAO3.51使用下面敘述來新增資料正常，但是於VB6引用卻告訴我：「不正確的屬性使用不支援屬性的操作」，可能的原因是？
3.如果想同時使用ADO(做不同資料庫轉換)、DAO(建立和刪除資料庫)
該如何做才不會讓VB混淆？
語法
dim db as database
database.execute "INSET INTO TABLEB SELET * FROM tablea where id ＜='100'"
1.個人使用VB呼叫WORD的合併列印，VB告訴我找不到合併欄位，但是WORD內的巨集指令會自動合併；請問到底怎麼呼叫執行合併的功能？
2.個人於VB5呼叫DAO3.51使用下面敘述來新增資料正常，但是於VB6引用卻告訴我：「不正確的屬性使用不支援屬性的操作」，可能的原因是？
3.如果想同時使用ADO(做不同資料庫轉換)、DAO(建立和刪除資料庫)
該如何做才不會讓VB混淆？
語法
dim db as database
database.execute "INSET INTO TABLEB SELET * FROM tablea where id ＜='100'"
VB6 動態新增控制項如何處理"事件"呢? 除SubClass 外VB6是否有(編號：3902)
VB6 動態新增控制項如何處理"事件"呢?
除 SubClass 外還是否有其他內定的方式可以處理
動態新增控制項的"事件"呢?
除 SubClass 外還是否有其他內定的方式可以處理
動態新增控制項的"事件"呢?
請問要如何才能將檔案加密?(編號：3900)
就好比是一個遊戲的排行榜,
要將它存於檔案中,又要讓使用者無法自由存取
(不能以一般的文字編輯器來編輯)
或者當使用者修改了這個檔案,程式能判讀出來,
也就是要如何存下數據於檔案中,然後讓使用者
不能去改變它,否則程式就會出錯?
不知道有沒有什麼辦法呢?懇請諸位相助,
在下感激不盡!!
我有聽過使用資料庫,再加密.
不知有無其它方法呢?
要將它存於檔案中,又要讓使用者無法自由存取
(不能以一般的文字編輯器來編輯)
或者當使用者修改了這個檔案,程式能判讀出來,
也就是要如何存下數據於檔案中,然後讓使用者
不能去改變它,否則程式就會出錯?
不知道有沒有什麼辦法呢?懇請諸位相助,
在下感激不盡!!
我有聽過使用資料庫,再加密.
不知有無其它方法呢?
如何可以 看到/引用 所有Excel Worksheet??(編號：3899)
小弟希望知道----
如我想改變 Excel Worksheet 到 Access DB ,
可以有什麼好的方法.
當中會 加上/利用 到VB的程式
我是有好幾張 Worksheets 在同一個 File 中.
煩請各大高手指點指點!!!
如我想改變 Excel Worksheet 到 Access DB ,
可以有什麼好的方法.
當中會 加上/利用 到VB的程式
我是有好幾張 Worksheets 在同一個 File 中.
煩請各大高手指點指點!!!
mouse問題???(編號：3898)
請問如果mouse不在表單上(在桌面or表單以外的地方)按左鍵or右鍵也可以有mouse的事件嗎??????或是有API的訊息可以抓呢????要如何寫呢!!!!!謝謝~~~
請教 disconnect recordset + datagid(編號：3897)
使用 disconnect recordset "rsdisconnect"
Set DataGrid1.DataSource = rsdisconnect
DataGrid1.AllowUpdate = True
但為什麼 datagrid 不允許新增刪除修改 ? 是否使用 disconnect recordset 後 datagrid 自動成為 read only?
Set DataGrid1.DataSource = rsdisconnect
DataGrid1.AllowUpdate = True
但為什麼 datagrid 不允許新增刪除修改 ? 是否使用 disconnect recordset 後 datagrid 自動成為 read only?
高手 ! 照顧一下 ! about BYTE(編號：3895)
小弟有一個問題百思不解, 盼能詳答!
我從 Com1 抓到 datatype=Byte 的資料
Dim Inbyte() as Byte,OutByte() as Byte
Inbyte=MsComm1.Input
現在我要如何知道 Inbyte 的內容 ?
又如何將上述內容讀到 Outbyte
MsComm2.Output=Outbyte
如此我可以從 Com1 讀資料(字串 or 其他)
讀完後再將其轉為byte 從 Com2 送出 !!!
我從 Com1 抓到 datatype=Byte 的資料
Dim Inbyte() as Byte,OutByte() as Byte
Inbyte=MsComm1.Input
現在我要如何知道 Inbyte 的內容 ?
又如何將上述內容讀到 Outbyte
MsComm2.Output=Outbyte
如此我可以從 Com1 讀資料(字串 or 其他)
讀完後再將其轉為byte 從 Com2 送出 !!!
[ADO]如何正確新增資料到一個新TABLE中？(編號：3892)
請教各位先進..
個人利用SQL的CREATE TABLE敘述新增了一個TABLE，並透過
connection使用SQL敘述新增資料，VB告訴我：「運作必須使用更新查詢」，但是我已確認過該TABLE沒有任何紀錄，也用DELETE刪除過
了。以下是我下的SQL語法，請問我哪做錯了呢？
SQL1="insert into tableb select * from tablea where id='000001'"
個人利用SQL的CREATE TABLE敘述新增了一個TABLE，並透過
connection使用SQL敘述新增資料，VB告訴我：「運作必須使用更新查詢」，但是我已確認過該TABLE沒有任何紀錄，也用DELETE刪除過
了。以下是我下的SQL語法，請問我哪做錯了呢？
SQL1="insert into tableb select * from tablea where id='000001'"
模擬開啟檔案(編號：3891)
例如我們在一個(.doc)的文件下點兩下,電腦就會呼叫Word,並開啟這個檔案,請問在VB要如何做到呢 ?
再問一個問題,當我已在System登錄檔案名稱(副檔名),請問當那個檔案點兩下時,我如果希望程式可以得知那個檔案的路徑和檔名呢 ?
再問一個問題,當我已在System登錄檔案名稱(副檔名),請問當那個檔案點兩下時,我如果希望程式可以得知那個檔案的路徑和檔名呢 ?
Install error(編號：3887)
請教諸位高手，為什麼我用封裝部署精靈做出來的安裝程式，安裝在無VB的Win98 第二版的環
境中會出現"無法啟動安裝主程式(CreateProcess()傳回錯誤代碼 0x000000C1H)"，Why ?
我使用 VB6.0 SP3，還望各位幫我解答。 Thanks!
境中會出現"無法啟動安裝主程式(CreateProcess()傳回錯誤代碼 0x000000C1H)"，Why ?
我使用 VB6.0 SP3，還望各位幫我解答。 Thanks!
ActiveX Control(編號：3885)
VB 自製 ActiveX Control , 置於ASP, 檢視原始檔, 有 CLASS ID , 至 Registry 搜尋,則可追出 Prog ID , 這樣子有可能被盜用散發嗎?謝謝!
各位先進:小弟使用連續紙張(自黏式小標籤)列印,但是在列印時卻找(編號：3883)
各位先進:小弟使用連續紙張(自黏式小標籤)列印,但是在列印時卻找不到適合的紙張大小,而印表機往往預設的紙張大小都是A4,B4....,所以列印時便會有空白頁而無法連續列印 謝謝 !!
使用自定大小紙張就可以!!
可是我的印表機型號(LQ300,點矩陣) 不支援自定大小紙張 ??
使用自定大小紙張就可以!!
可是我的印表機型號(LQ300,點矩陣) 不支援自定大小紙張 ??
DataEnviorment的問題(編號：3881)
在程式中指定如下
Dim Sql_S,Sql_W as String
Private Sub Form_Load()
Sql_S=DataEnviorments.rsCommand1.Source
End Sub
Private Sub Command1_Click()
DataEnviorments.rsCommand1.Source=Sql_S+Sql_W
DataEnviorments.rsCommand1.Open
Set DataGrid1.DataSource = DataEn
DataGrid1.DataMember = "Command1"
DataGrid1.Refresh
End Sub
若指定"屬性"的"資料指標位置"為客戶端
在按下Command1後,DataGrid1會顯示資料
若指定為"伺服端"後
按下Command1後，有資料卻使RecordCound=-1
而且DataGrid1無法顯示資料
請教各位高手是否有解決的辦法
或使用那些物件、屬性來解決呢?
請直接回小弟信，謝謝!感激不盡!
Dim Sql_S,Sql_W as String
Private Sub Form_Load()
Sql_S=DataEnviorments.rsCommand1.Source
End Sub
Private Sub Command1_Click()
DataEnviorments.rsCommand1.Source=Sql_S+Sql_W
DataEnviorments.rsCommand1.Open
Set DataGrid1.DataSource = DataEn
DataGrid1.DataMember = "Command1"
DataGrid1.Refresh
End Sub
若指定"屬性"的"資料指標位置"為客戶端
在按下Command1後,DataGrid1會顯示資料
若指定為"伺服端"後
按下Command1後，有資料卻使RecordCound=-1
而且DataGrid1無法顯示資料
請教各位高手是否有解決的辦法
或使用那些物件、屬性來解決呢?
請直接回小弟信，謝謝!感激不盡!
這是什麼問題?~(編號：3880)
Microsoft JET Database Engine error '80004005'
Selected collating sequence not supported by the operating system.
這是什麼問題?~
Selected collating sequence not supported by the operating system.
這是什麼問題?~
dbOpenSnapshot(編號：3879)
Set rs1 = dbtable.OpenRecordset(tSQL,dbOpensnapshot)
tSQL是sql語法,請問dbOpenSnapShot是什麼意思謝謝.
tSQL是sql語法,請問dbOpenSnapShot是什麼意思謝謝.
如何在程式碼裡寫入將DataEnvironment的Command重新整理!(編號：3878)
請問如何在程式碼裡寫入將DataEnvironment的Connection中的Command重新整理?
謝謝!
謝謝!
請問,使用連續紙張(自黏式小標籤),如何控制列印?(編號：3877)
各位先進:小弟使用連續紙張(自黏式小標籤)列印,但是在列印時卻找不到適合的紙張大小,而印表機往往預設的紙張大小都是A4,B4....,所以列印時便會有空白頁而無法連續列印 謝謝 !!
請問如何抓取特定資料來源的資料(編號：3875)
你好，真的不好意思，打擾你的時間，想請教你一些vb的問題！
請問，要如何使用vb定時去資料來源抓取資料，然後回傳成html檔或是抓入
資料庫？例如，我可能定時每天去氣象網站抓氣象的資料，或是每一個小時
就去某個伺服器抓資料(假設那個伺服器我是有權限進入或那伺服器是開放的)
該如何使用vb做到呢？
對不起，vb我只會基本的資料庫存取，我猜可能是需要用到哪些特別的元件
能麻煩你稍加解說嗎？
感激不盡！
請問，要如何使用vb定時去資料來源抓取資料，然後回傳成html檔或是抓入
資料庫？例如，我可能定時每天去氣象網站抓氣象的資料，或是每一個小時
就去某個伺服器抓資料(假設那個伺服器我是有權限進入或那伺服器是開放的)
該如何使用vb做到呢？
對不起，vb我只會基本的資料庫存取，我猜可能是需要用到哪些特別的元件
能麻煩你稍加解說嗎？
感激不盡！
在一定的時間內取得資料(續)！(編號：3874)
請教一下喔！！！，在VB的環境下，我該如何將它設定一定的時間內取得資料呢，比如說，我每隔秒鐘，系統就會自動取得一筆亂數資料，我該如何去做呢？也就是說，我該如何去設計使系統每隔幾秒鐘，便去觸發我的command來產生亂數，因為我已經寫好的程式是
按下commana後便會產生資料，因此有辦法讓它每隔幾秒便產生一筆資料呢？
謝謝各位的幫忙！！！！
按下commana後便會產生資料，因此有辦法讓它每隔幾秒便產生一筆資料呢？
謝謝各位的幫忙！！！！
DBGrid(編號：3872)
如何讓DBGrid游標停留在所選取的資料上
例如：
把全部的資料全讀入DBGrid內
然而需求是需要游標停留在＜條件＞06/01日的第一筆
而不是所讀入所有資料第一筆
，＜條件＞06/01可能在DBGrid的中間
那應該如何來設定
例如：
把全部的資料全讀入DBGrid內
然而需求是需要游標停留在＜條件＞06/01日的第一筆
而不是所讀入所有資料第一筆
，＜條件＞06/01可能在DBGrid的中間
那應該如何來設定
如何去掉gif89a控制項的背景?(編號：3870)
大家好,曾經用QB寫過一些小程式,現想學vb來處理資料庫,剛學vb不久,所提出的問題讓大家見笑了,不知有那些較實用的書可以參考
感謝小吳及熱心vb的先學
感謝小吳及熱心vb的先學
SQLServer(編號：3869)
請問一下，我使用VB的SQLServer物件，想連上SERVER。
Dim sq As SQLServer
Set sq = New SQLServer
sq.Name = "sql"
sq.Connect (sq.Name)
卻出了
執行階段錯誤'-2147165949(8004d903)':
[SQL Server] You must upgrade your SQL Enterprise Manager
adn SQL-DMO(SQLOLE)to version 7.0 (SQLDMO) to connect to
this server.
請問一下，我該如何解決。
Dim sq As SQLServer
Set sq = New SQLServer
sq.Name = "sql"
sq.Connect (sq.Name)
卻出了
執行階段錯誤'-2147165949(8004d903)':
[SQL Server] You must upgrade your SQL Enterprise Manager
adn SQL-DMO(SQLOLE)to version 7.0 (SQLDMO) to connect to
this server.
請問一下，我該如何解決。
請問有關data report裡，製作群組化的問題！(編號：3868)
請問大家一下，我是用data report來製作群組化，但是做完之後雖然成功了但是之前的父command物件所做出來的報表確開不起來，無法執行，會出現'報表區段與資料來源不符'的錯誤訊息，請問是哪裡出了問題，還是做了群組化就會這樣，麻煩知道的人指導一下，感激不盡。
如何做出翻譯軟體搜尋單字的效果？(編號：3865)
請教如何在VB6中以ComboBox或是其它的方式，做出如同翻譯軟體，在文字輸入方塊中輸入越多資料，而在ListBox會自動跑到最接近的資料，以便選取的功能，謝謝！
資料壓縮compact時 ,該如何用progress bar 來顯示進度(編號：3863)
當資料在做壓縮compact時
該如何用progress bar 來顯示進度
因為每次都要等該道指令執行完後 , 才會繼續執行下一道指令
那哪有時間去控制progress bar.
那即使能夠不等該指令執行完就往下走
也不知道該壓縮要執行多久,那該如何控制progress bar的進度
可是,為何在Accesss中,他卻可以做的到.
請教高手指點指點
該如何用progress bar 來顯示進度
因為每次都要等該道指令執行完後 , 才會繼續執行下一道指令
那哪有時間去控制progress bar.
那即使能夠不等該指令執行完就往下走
也不知道該壓縮要執行多久,那該如何控制progress bar的進度
可是,為何在Accesss中,他卻可以做的到.
請教高手指點指點
以聲音來check資料之正確性(編號：3861)
我想以語音來check欄位資料之正確與否，不知如何做？（如此才不用一直盯著螢幕看）
我知道新 得自然輸入法中可發出聲音，是否可利用它的語音部份？
如何和vb配合呢？
我知道新 得自然輸入法中可發出聲音，是否可利用它的語音部份？
如何和vb配合呢？
About WinZip32.exe(編號：3860)
I read an article about Zipping Files using VB in the site of 紀文和.
I can zip file if the file name without spaces,
C:\Testing.
But if the file name contain spaces like,
C:\program files\Testing
Then error will happen :-
Error: No files were found for this action that match your criteria - nothing to do. (C:\program.zip)
Is it possible to zip a file with spaces??
I can zip file if the file name without spaces,
C:\Testing.
But if the file name contain spaces like,
C:\program files\Testing
Then error will happen :-
Error: No files were found for this action that match your criteria - nothing to do. (C:\program.zip)
Is it possible to zip a file with spaces??
錯誤訊息"在通知中取消此變更,未改變任何欄位"(編號：3859)
錯誤訊息"在通知中取消此變更,未改變任何欄位"
錯誤代號-2147217842
在ado資料中使用addnew方法增加一筆空白記錄時產生.
錯誤代號-2147217842
在ado資料中使用addnew方法增加一筆空白記錄時產生.
How to place an icon in system tray and also update the imag(編號：3854)
Firstly, I would like to know how to place an icon on system tray by using VB 6.0 Then,when the icon sit in sysTray, how to update the image and tool tips of the icon without unloading the form. Finally, when we right-clicked, there will be a popup menu appeared. Pls post the answer or email me if anyone knows. Thanks a lot.
網站主機硬碟掛掉一顆，最近會比較不穩，請見諒(編號：3853)
好不容易把全文檢索的問題解決了，結果硬碟又掛掉一顆，我怎麼這麼倒霉啊! 所以最新網站可能會比較不穩，而且萬一不幸的的話，將可能損失一天的資料。我盡力而為就是了。
請問Access報表問題.....(編號：3852)
請問Access報表問題：
如何在Access報表中，以程式控制每張報表輸出的數量，
也就是一次執行共有3張不同的報表，要控制第一張列印4張，
第二張列印2張，第三張列印5張
如果Access不知道，VB的Report有沒辦法做到？
請大家不吝指教！
如何在Access報表中，以程式控制每張報表輸出的數量，
也就是一次執行共有3張不同的報表，要控制第一張列印4張，
第二張列印2張，第三張列印5張
如果Access不知道，VB的Report有沒辦法做到？
請大家不吝指教！
如何利用 ADSI 取得 NT User 屬於的 Group?(編號：3850)
以下程式可取得 User1 的全名,但不知如何可取他得上人所屬的Group?
Set myObj = GetObject("WinNT://mymachine/user1,user")
Debug.Print myObj.FullName
Set myObj = GetObject("WinNT://mymachine/user1,user")
Debug.Print myObj.FullName
很多人提過，用OmegaVol物件可以控制音效卡音量，但是要怎麼樣讀(編號：3849)
很多人提過，用OmegaVol物件可以控制音效卡音量，但是在以OmegaVol物件改變音量之前，要怎麼樣讀取系統目前的音量呢?
全文檢索功能重新啟用。WatchMe 看這裏！(編號：3848)
全文檢索功能終於重新啟用了。
為什麼先前全文檢索不能用呢？因為全文檢索的 service 一直不明原因吃到 100% 的 CPU 資源。現在終於找到問題了！沒錯，就是 WatchMe 貼的文章！
Microsoft 已經確認這是一個 bug，而且我們是第一個發現的。WatchMe 你應該感到很高興才對... 不過也讓小弟的站全文檢索的功能掛了好幾個月....
為什麼先前全文檢索不能用呢？因為全文檢索的 service 一直不明原因吃到 100% 的 CPU 資源。現在終於找到問題了！沒錯，就是 WatchMe 貼的文章！
Microsoft 已經確認這是一個 bug，而且我們是第一個發現的。WatchMe 你應該感到很高興才對... 不過也讓小弟的站全文檢索的功能掛了好幾個月....
為何使用printer物件直接列印,字型無法控制?(編號：3847)
請教高手們,小弟利用vb5.0 printer物件列印套表文件,語法如下
Printer.Width = 13608
Printer.Height = 7956
Printer.FontName = "細明體"
Printer.FontSize = 12
printer.print "xxxxxx"
.
.
printer.enddoc
但是在編譯成exe後印出來結果字體大小與在vb環境中執行時不同
似乎printer.fontsize無作用,請高手指點(印表機為FUJI DL3400)
Printer.Width = 13608
Printer.Height = 7956
Printer.FontName = "細明體"
Printer.FontSize = 12
printer.print "xxxxxx"
.
.
printer.enddoc
但是在編譯成exe後印出來結果字體大小與在vb環境中執行時不同
似乎printer.fontsize無作用,請高手指點(印表機為FUJI DL3400)
VB 的資料庫管理員(VisData) 的問題?(編號：3843)
我進入VisData, 連結一個SQL Server 7.0 的資料庫後, 執行一段SQL 的指令: create table...., 然後選取"這是SQLPassThrough查詢", 請問"連結屬性值" 應該輸入多少? 謝謝!
Sorry! 一個無關VB的問題(編號：3840)
Sorry! 想請教各位前輩一個無關VB的問題
如何解決在不同的OS平台間傳遞Mail時所發生的亂碼問題？＜如＞在 Win 95C 下寫的日文信寄到 Win 95J
＞已安裝IE5.0及Globel IME (Japanese)
＞寄發信件時也注意到語系的選用
如何解決在不同的OS平台間傳遞Mail時所發生的亂碼問題？＜如＞在 Win 95C 下寫的日文信寄到 Win 95J
＞已安裝IE5.0及Globel IME (Japanese)
＞寄發信件時也注意到語系的選用
如何對MDB 增加 Primary Key Index(編號：3839)
請教如何VB中, 以 Command 對某一個table
設定Primary Key 或是 Index
-
例如我先用以下字串新增一個table之後
CREATE TABLE [TestTable] (
[FieldA] char (10) NOT NULL ,
[FieldB] char (10) NOT NULL ,
[FieldC] smallint NOT NULL
)
我想讓FieldA 成為Primary Key
讓FieldB 成為Index
我該如何做呢??
設定Primary Key 或是 Index
-
例如我先用以下字串新增一個table之後
CREATE TABLE [TestTable] (
[FieldA] char (10) NOT NULL ,
[FieldB] char (10) NOT NULL ,
[FieldC] smallint NOT NULL
)
我想讓FieldA 成為Primary Key
讓FieldB 成為Index
我該如何做呢??
甚樣用Outlook send email 給多過一個人?(編號：3838)
我想利用以下的程式send email 給多個一個人及CC給其他人，但以下的程式只能send給一個人，我應如何寫才能做到呢?
(以下的程式都是在internet找到的)
(VB6.0, SP3,Outlook97)
Public Function OutLookMailto(OutLooks As Outlook.Application,ByVal strSubject As String, _
ByVal strText As String, colAddrList As Collection, _
colAttachments As Collection) As Boolean
Dim Mail As MailItem
Dim strTemp
Set Mail = OutLooks.CreateItem(olMailItem)
With Mail
For Each strTemp In colAddrList
.Recipients.Add strTemp
Next
For Each strTemp In colAttachments
.Attachments.Add strTemp 'Attach的File
Next
.Subject = strSubject
.Body = strText
.Save
.Send
End With
Set Mail = Nothing
OutLookMailto = True
Exit Function
Errh:
OutLookMailto = False
End Function
(以下的程式都是在internet找到的)
(VB6.0, SP3,Outlook97)
Public Function OutLookMailto(OutLooks As Outlook.Application,ByVal strSubject As String, _
ByVal strText As String, colAddrList As Collection, _
colAttachments As Collection) As Boolean
Dim Mail As MailItem
Dim strTemp
Set Mail = OutLooks.CreateItem(olMailItem)
With Mail
For Each strTemp In colAddrList
.Recipients.Add strTemp
Next
For Each strTemp In colAttachments
.Attachments.Add strTemp 'Attach的File
Next
.Subject = strSubject
.Body = strText
.Save
.Send
End With
Set Mail = Nothing
OutLookMailto = True
Exit Function
Errh:
OutLookMailto = False
End Function
sub-report 的 datasource 指定(編號：3837)
原版手冊介紹的是 2-tier 的作法, 但要如何將 sub-report 的 datasource 指定為 n-tier 的 recordset ??
新手問題?????(編號：3833)
本人想寫二程式,但不懂怎樣寫。請教導!!!!1
1.程式用意是由指定x,y 或icon 來決定滑鼠的位置後會自動點按.
請問能寫嗎???? 用什應指令??
2.想寫一程式能否把一個指定的示窗或程式縮到最小(但示窗或
程式沒有 ( _ 縮到最小的按鍵)????
請問能寫嗎???? 用什應指令??
1.程式用意是由指定x,y 或icon 來決定滑鼠的位置後會自動點按.
請問能寫嗎???? 用什應指令??
2.想寫一程式能否把一個指定的示窗或程式縮到最小(但示窗或
程式沒有 ( _ 縮到最小的按鍵)????
請問能寫嗎???? 用什應指令??
新手問題?????(編號：3832)
本人想寫一程式,但不懂怎樣寫。請教導!!!!1
1.程式用意是由指定x,y 或icon 來決定滑鼠的位置後會自動點按.
請問能寫嗎???? 用什應指令??
2.想寫一程式能否把一個指定的示窗或程式縮到最小(但示窗或
程式沒有 ( _ 縮到最小的按鍵)????
請問能寫嗎???? 用什應指令??
1.程式用意是由指定x,y 或icon 來決定滑鼠的位置後會自動點按.
請問能寫嗎???? 用什應指令??
2.想寫一程式能否把一個指定的示窗或程式縮到最小(但示窗或
程式沒有 ( _ 縮到最小的按鍵)????
請問能寫嗎???? 用什應指令??
有關 Crystal Report 開啟 Parameter Fields 隨即要求輸入參數(編號：3831)
我的報表資料來源，是用SQL Sever 上建一 StoredProcedure 並要輸入三個參數，供StoredPrcuedure運作，因此，CrystalReport，便會在其Prarmeter Fields建立三個參數變數名稱，在此報表開啟時，會要求輸入三個參數值的對話盒開啟，報表依據此三個參數值下去處理運作，請問，我能不能不讓參數盒開啟，並直接以Vb寫程式，傳遞參數進去，讓報表直接運作，另外
CrystalReport1.StoredProcParam(1)
CrystalReport1.ParameterFields(0) 這控制項傳遞參數是如何使用
CrystalReport1.StoredProcParam(1)
CrystalReport1.ParameterFields(0) 這控制項傳遞參數是如何使用
很多人提過，用OmegaVol物件可以控制音效卡音量，但是要怎麼樣讀(編號：3828)
很多人提過，用OmegaVol物件可以控制音效卡音量，但是在以OmegaVol物件改變音量之前，要怎麼樣讀取系統目前的音量呢?
如何架構不使用MTS的三層式AP(編號：3825)
各位您好:
容小弟直接寫出目前所遇到的問題:現有工作站約5台，連上一台AP Server(Win 2k Server,在Local Lan上)，然後再由這台Ap Server與總公司的DB連線。由於網路流量及效能的考量，因此決定由AP Server統一向總公司要資料，可能是這台要設ODBC吧！而每一台的工作站向Local Lan的 Ap Server要資料。不知如果想要達到這樣的架構，不知實務上要如何寫呢？最好有程式碼，還請各位高抬貴手幫小弟，小弟不知要如何實作。
感激不盡！
容小弟直接寫出目前所遇到的問題:現有工作站約5台，連上一台AP Server(Win 2k Server,在Local Lan上)，然後再由這台Ap Server與總公司的DB連線。由於網路流量及效能的考量，因此決定由AP Server統一向總公司要資料，可能是這台要設ODBC吧！而每一台的工作站向Local Lan的 Ap Server要資料。不知如果想要達到這樣的架構，不知實務上要如何寫呢？最好有程式碼，還請各位高抬貴手幫小弟，小弟不知要如何實作。
感激不盡！
如何在form內輸出dataReport..??(編號：3824)
各位先進...
小弟需要在表單上設計一個列印報表的botton
,可是資料來自一個sql的聯合查詢後的結果...我自己已經完成開文字檔存入的動作,可是目前的要求是要做一個暫存檔的方式來達成列印報表的功能...可否指教要如何做呢.??
小弟需要在表單上設計一個列印報表的botton
,可是資料來自一個sql的聯合查詢後的結果...我自己已經完成開文字檔存入的動作,可是目前的要求是要做一個暫存檔的方式來達成列印報表的功能...可否指教要如何做呢.??
請問如何用VB將MPLAYER撥放中的畫面Capture到PictureBox(編號：3822)
請問如何用VB將MPLAYER撥放中的畫面Capture到PictureBox
是用MCI_COPY嗎
要如何寫?
還有其它的方法嗎?
Thanks,
是用MCI_COPY嗎
要如何寫?
還有其它的方法嗎?
Thanks,
安裝評估期己過(編號：3820)
正版 Chinese NT4.0. SP3
為什麼我的NT出現msgbox 如下:
[WINDOWS NT 的安裝評估期己過。此系統將在１小時後關機。若要還原安裝 WINDOWS NT 的存取權、
請使用己登記使用權的產品來作安裝升級。]
我試過安裝升級,及升級SP6,但還是一樣。
Please help
為什麼我的NT出現msgbox 如下:
[WINDOWS NT 的安裝評估期己過。此系統將在１小時後關機。若要還原安裝 WINDOWS NT 的存取權、
請使用己登記使用權的產品來作安裝升級。]
我試過安裝升級,及升級SP6,但還是一樣。
Please help
學資料庫較好或是學ASP較好(編號：3817)
我已具有一些vb的知識,也會一些HTML語法,但我不了解的是去學習VB中的資料庫應用是比較好的選擇,還是去學ASP比較好,因為資料庫和ASP都是目前最熱門的,那一種未來會比較需要呢,如果是資料庫的話,除了VB,我還需要學那些的程式,如果是ASP,除了HTML,我還需要學那些程式語言,此外,市面上相關的書那本比較好,請各位先進能給予指導,謝謝.
我想這是VB的Bug吧(編號：3816)
環境:VB6+Access97
使用DataEnvironment時,常有些奇怪的狀況,這是我debug發現的現象,
供大家參考
使用DataEnvironment1如下:
DataEnvironment1
Connection1
Command1
Command2
另外使用一DataReport1使DataSource:DataEnvironment1,DataMember:Command2
在表單Form1中置一CommandButton,程式碼
Private Sub Command1_Click()
MsgBox DataEnvironment1.rsCommand1.State '顯示0
DataReport1.Show '與Command2連結
MsgBox DataEnvironment1.rsCommand1.State '顯示1
End Sub
可以發現和rsCommand1無關的動作卻使得
rsCommand1被開啟了!!!
除此之外,若將DataEnvironment1中的Command1及Command2易名,也就是
如下的結構:
DataEnvironment1
Connection1
Command2
Command1
你可以發現就不會有問題..
據我測試的結果,使用DataReport時,不論連接那一個Command
都會使DataEnvironment1的第一個rsCommand被open,
而其他的Command都不會有影響……..
不知大家是否遇過這個問題??
我目前是自己加一個沒有用處的Command0作為第一個Command
以避開上述問題.
另外我發現若不是經由DataReport就不會有問題,如下程式碼:
Private Sub Command1_Click()
MsgBox DataEnvironment1.rsCommand1.State '顯示0
DataEnvironment1.rsCommand2.Open
MsgBox DataEnvironment1.rsCommand1.State '顯示0
End Sub
使用DataEnvironment時,常有些奇怪的狀況,這是我debug發現的現象,
供大家參考
使用DataEnvironment1如下:
DataEnvironment1
Connection1
Command1
Command2
另外使用一DataReport1使DataSource:DataEnvironment1,DataMember:Command2
在表單Form1中置一CommandButton,程式碼
Private Sub Command1_Click()
MsgBox DataEnvironment1.rsCommand1.State '顯示0
DataReport1.Show '與Command2連結
MsgBox DataEnvironment1.rsCommand1.State '顯示1
End Sub
可以發現和rsCommand1無關的動作卻使得
rsCommand1被開啟了!!!
除此之外,若將DataEnvironment1中的Command1及Command2易名,也就是
如下的結構:
DataEnvironment1
Connection1
Command2
Command1
你可以發現就不會有問題..
據我測試的結果,使用DataReport時,不論連接那一個Command
都會使DataEnvironment1的第一個rsCommand被open,
而其他的Command都不會有影響……..
不知大家是否遇過這個問題??
我目前是自己加一個沒有用處的Command0作為第一個Command
以避開上述問題.
另外我發現若不是經由DataReport就不會有問題,如下程式碼:
Private Sub Command1_Click()
MsgBox DataEnvironment1.rsCommand1.State '顯示0
DataEnvironment1.rsCommand2.Open
MsgBox DataEnvironment1.rsCommand1.State '顯示0
End Sub
用另一個表單傳遞共用變數VB會當掉哩...(編號：3815)
小弟的情況是這樣子的
想先由第一個表單呼叫出第二個表單
第二個表單中的DataGrid物件DblClick後,
傳遞共用變數給第一個表單的TextBox,
有時候可以成功,
但有時後卻出現VB6的錯誤(程式未改變)
訊息如下:
這個程式執行的作業無效,即將關閉.
如果問題無法解決,請洽詢程式設計人員.
請問這是VB6的虫嗎?還是我哪裡還需注意的哩?
想先由第一個表單呼叫出第二個表單
第二個表單中的DataGrid物件DblClick後,
傳遞共用變數給第一個表單的TextBox,
有時候可以成功,
但有時後卻出現VB6的錯誤(程式未改變)
訊息如下:
這個程式執行的作業無效,即將關閉.
如果問題無法解決,請洽詢程式設計人員.
請問這是VB6的虫嗎?還是我哪裡還需注意的哩?
電腦名稱一改,SQL在98就不能啟動了,有請各路好漢(編號：3814)
我在本機(Tsai)Setup SQL7.0,
後來本機名稱改為Jemmy,結果不管我如何重新註新的Sever名稱
都出現下列的錯誤訊息:
A connection cound not be estabished to JEMMY
一般網路錯誤,查閱你的網路文件
ConnectionOpen(connect())
Please verify SQL Server is running and check your SQL Server registration properties(by right-clicking on the JEMMY node) and try again
後來本機名稱改為Jemmy,結果不管我如何重新註新的Sever名稱
都出現下列的錯誤訊息:
A connection cound not be estabished to JEMMY
一般網路錯誤,查閱你的網路文件
ConnectionOpen(connect())
Please verify SQL Server is running and check your SQL Server registration properties(by right-clicking on the JEMMY node) and try again
在這個範圍中不允許應用程式所要求的操作。(編號：3812)
sql = "Update ...." 'SQL語法
cn.execute sql
RS.Requery 下完會發生如標題的錯誤是那裡出錯了??
謝謝您!!
cn.execute sql
RS.Requery 下完會發生如標題的錯誤是那裡出錯了??
謝謝您!!
ActiveX 元件無法產生(編號：3811)
請教大家,我在我的電腦上寫好了程式,可以執行,但是在別台電腦上無法執行,產生了 "無法產生 ActiveX 元件",但是我已經確定 *.dll 與 *.ocx 有安裝成功,可否請教是什麼原因呢?
如何在使用DataReport時，將Image對應資料庫中的欄位?(編號：3810)
經反覆測試不得其解!
今詳述如下:
在DataReport中可將Label及Textbox連結資料庫欄位,
Image只能作靜態附圖嗎?
請高手指導....不甚感激!
今詳述如下:
在DataReport中可將Label及Textbox連結資料庫欄位,
Image只能作靜態附圖嗎?
請高手指導....不甚感激!
執行NT 定時備份指令AT 有錯誤發生(編號：3809)
執行NT 定時備份指令AT時, 我的at啟動有問題,TASK SCHEDULE有啟動,我用Administrator login ,server 為domain中的獨立伺服器
錯誤(事件內容)如下:
事件識別碼: 7901
使用者: 不適用
描述:
At1.job 指令無法啟動，錯誤原因:
系統找不到指定的檔案。
錯誤(事件內容)如下:
事件識別碼: 7901
使用者: 不適用
描述:
At1.job 指令無法啟動，錯誤原因:
系統找不到指定的檔案。
關於 winsock(編號：3804)
winsock 可以讓兩個程式互通資訊(比方寫聊天室, 網路遊戲), 那讓兩個以上的電腦互通資訊可以用一個 winsock 辦到嗎? 如果需要兩個以上的 winsock, 是否會衍生出主機的問題(哪端該總管這些winsock)?..
分享一些心得(ListBox)(編號：3801)
listbox製作變換順序時可先紀錄index 在利用swap文字的方式, 這樣少了 removeitem 和 additem 的手續應該可以增加一些效能,但我沒實際測試過... 如果您正在寫, 您可以玩玩看,
另外想請問, vb有共用模組, 那有沒有共用表單, 這個共用表單放些winsock 元件,開檔對話框元件, timer元件等, 在表單關閉時仍可以正常呼叫這些元件的方法...
另外想請問, vb有共用模組, 那有沒有共用表單, 這個共用表單放些winsock 元件,開檔對話框元件, timer元件等, 在表單關閉時仍可以正常呼叫這些元件的方法...
非強制回應的對話框(編號：3800)
1. 用Msgbox時, 有沒有參數可以讓以後的程序繼續進行, 因為不影響以後的執行結果... 目前我的方法是自己做一個表單，還有沒有更節省的方法呢...
2. 看到很多人問如何存取機碼, 今天不小心在vb的安裝目錄下找到兩個用API存取機碼的函式BAS, 一個中文版, 一個英文版, 用法跟vb內建的機碼存取函式一樣方便, 而且可以存取任何地方, 內容看起來很容易懂, 怎麼很少人喜歡回答這種問題
2. 看到很多人問如何存取機碼, 今天不小心在vb的安裝目錄下找到兩個用API存取機碼的函式BAS, 一個中文版, 一個英文版, 用法跟vb內建的機碼存取函式一樣方便, 而且可以存取任何地方, 內容看起來很容易懂, 怎麼很少人喜歡回答這種問題
一個拼圖遊戲(編號：3799)
我想做一個點了會移動9格拼圖..現在已經可以開始玩了(每次出現可隨機排列...點了可正常移動..)..只差最後完成時按下按鈕讓電腦能出現過關訊號....我用FOR NEXT迴圈逐一檢查在各位置的PIC BOX 是否為正確圖片(寫在Private Sub Command1_Click())中...但是不知道為什麼不行..能不能請你指點指點...謝謝謝謝...感激感激..^_______^..
Dim i, a, p, q, t, x1, y1 As Integer
Dim i0, i1, i2, i3, i4, i5, i6, i7 As Integer
Dim u As Boolean
Dim x(7) As Integer
..就是底下這一段
Private Sub Command1_Click()
For i0 = 0 To 7
If (Pic2(i0).Left = 0) And (Pic2(i0).Top = 0) And (Pic2(i0)=LoadPicture (A"\1. 1.jpg")) Then
For i1 = 0 To 7
If (Pic2(i1).Left = 1800) And (Pic2(i1).Top = 0) And (Pic2(i1) = LoadPicture("A:\1. 2.jpg")) Then
For i2 = 0 To 7
If (Pic2(i2).Left = 3600) And (Pic2(i2).Top = 0) And (Pic2(i2) = LoadPicture = ("A:\1. 3.jpg")) Then
For i3 = 0 To 7
If (Pic2(i3).Left = 1800) And (Pic2(i3).Top = 2040) And (Pic2(i3) = LoadPicture("A:\1. 4.jpg")) Then
For i4 = 0 To 7
If (Pic2(i4).Left = 3600) And (Pic2(i4).Top = 2040) And (Pic2(i4) = LoadPicture("A:\1. 5.jpg")) Then
For i5 = 0 To 7
If (Pic2(i5).Left = 0) And (Pic2(i5).Top = 4080) And (Pic2(i5) = LoadPicture("A:\1. 6.jpg")) Then
For i6 = 0 To 7
If (Pic2(i6).Left = 1800) And (Pic2(i6).Top = 4080) And (Pic2(i6) = LoadPicture("A:\1. 7.jpg")) Then
For i7 = 0 To 7
If (Pic2(i7).Left = 3600) And (Pic2(i7).Top = 4080) And (Pic2(i7) = LoadPicture("A:\1. 8.jpg")) Then
MsgBox ("恭喜妳...妳過關囉..")
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End Sub
Private Sub Form_Load()
u = True
Dim i, a, p, q, t As Integer
Dim x(7) As Integer
Dim site As String
q = 0
For a = 0 To 7
Randomize
i = Int(Rnd() * 8) + 1
x(a) = i
Next
While q ＜ 500
For a = 0 To 7
For p = 0 To 7
If x(a) = x(p) And (a ＞ p Or a ＜ p) Then
i = Int(Rnd() * 8) + 1
x(a) = i
End If
Next
Next
q = q + 1
Wend
For a = 0 To 7
site = ("A:\1." & Str(x(a)) & ".jpg")
Pic2(a) = LoadPicture(site)
Next
Lbl.Caption = 0
End Sub
圖片點了會移動的方式..在下面..
Private Sub Pic2_Click(Index As Integer)
t = Index
If Pic2(t).Top ＞ PicSpace.Top Or Pic2(t).Top ＜ PicSpace.Top Then
If Abs(Pic2(t).Left - PicSpace.Left) ＜ 1800 And Abs(Pic2(t).Top - PicSpace.Top) ＜= 2040 Then
x1 = Pic2(t).Left
y1 = Pic2(t).Top
Pic2(t).Left = PicSpace.Left
Pic2(t).Top = PicSpace.Top
PicSpace.Left = x1
PicSpace.Top = y1
Lbl.Caption = Lbl.Caption + 1
End If
End If
If Pic2(t).Left ＞ PicSpace.Left Or Pic2(t).Left ＜ PicSpace.Left Then
If Abs(Pic2(t).Left - PicSpace.Left) ＜= 1800 And Abs(Pic2(t).Top - PicSpace.Top) ＜ 2040 Then
x1 = Pic2(t).Left
y1 = Pic2(t).Top
Pic2(t).Left = PicSpace.Left
Pic2(t).Top = PicSpace.Top
PicSpace.Left = x1
PicSpace.Top = y1
Lbl.Caption = Lbl.Caption + 1
End If
End If
End Sub
Dim i, a, p, q, t, x1, y1 As Integer
Dim i0, i1, i2, i3, i4, i5, i6, i7 As Integer
Dim u As Boolean
Dim x(7) As Integer
..就是底下這一段
Private Sub Command1_Click()
For i0 = 0 To 7
If (Pic2(i0).Left = 0) And (Pic2(i0).Top = 0) And (Pic2(i0)=LoadPicture (A"\1. 1.jpg")) Then
For i1 = 0 To 7
If (Pic2(i1).Left = 1800) And (Pic2(i1).Top = 0) And (Pic2(i1) = LoadPicture("A:\1. 2.jpg")) Then
For i2 = 0 To 7
If (Pic2(i2).Left = 3600) And (Pic2(i2).Top = 0) And (Pic2(i2) = LoadPicture = ("A:\1. 3.jpg")) Then
For i3 = 0 To 7
If (Pic2(i3).Left = 1800) And (Pic2(i3).Top = 2040) And (Pic2(i3) = LoadPicture("A:\1. 4.jpg")) Then
For i4 = 0 To 7
If (Pic2(i4).Left = 3600) And (Pic2(i4).Top = 2040) And (Pic2(i4) = LoadPicture("A:\1. 5.jpg")) Then
For i5 = 0 To 7
If (Pic2(i5).Left = 0) And (Pic2(i5).Top = 4080) And (Pic2(i5) = LoadPicture("A:\1. 6.jpg")) Then
For i6 = 0 To 7
If (Pic2(i6).Left = 1800) And (Pic2(i6).Top = 4080) And (Pic2(i6) = LoadPicture("A:\1. 7.jpg")) Then
For i7 = 0 To 7
If (Pic2(i7).Left = 3600) And (Pic2(i7).Top = 4080) And (Pic2(i7) = LoadPicture("A:\1. 8.jpg")) Then
MsgBox ("恭喜妳...妳過關囉..")
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End If
Next
End Sub
Private Sub Form_Load()
u = True
Dim i, a, p, q, t As Integer
Dim x(7) As Integer
Dim site As String
q = 0
For a = 0 To 7
Randomize
i = Int(Rnd() * 8) + 1
x(a) = i
Next
While q ＜ 500
For a = 0 To 7
For p = 0 To 7
If x(a) = x(p) And (a ＞ p Or a ＜ p) Then
i = Int(Rnd() * 8) + 1
x(a) = i
End If
Next
Next
q = q + 1
Wend
For a = 0 To 7
site = ("A:\1." & Str(x(a)) & ".jpg")
Pic2(a) = LoadPicture(site)
Next
Lbl.Caption = 0
End Sub
圖片點了會移動的方式..在下面..
Private Sub Pic2_Click(Index As Integer)
t = Index
If Pic2(t).Top ＞ PicSpace.Top Or Pic2(t).Top ＜ PicSpace.Top Then
If Abs(Pic2(t).Left - PicSpace.Left) ＜ 1800 And Abs(Pic2(t).Top - PicSpace.Top) ＜= 2040 Then
x1 = Pic2(t).Left
y1 = Pic2(t).Top
Pic2(t).Left = PicSpace.Left
Pic2(t).Top = PicSpace.Top
PicSpace.Left = x1
PicSpace.Top = y1
Lbl.Caption = Lbl.Caption + 1
End If
End If
If Pic2(t).Left ＞ PicSpace.Left Or Pic2(t).Left ＜ PicSpace.Left Then
If Abs(Pic2(t).Left - PicSpace.Left) ＜= 1800 And Abs(Pic2(t).Top - PicSpace.Top) ＜ 2040 Then
x1 = Pic2(t).Left
y1 = Pic2(t).Top
Pic2(t).Left = PicSpace.Left
Pic2(t).Top = PicSpace.Top
PicSpace.Left = x1
PicSpace.Top = y1
Lbl.Caption = Lbl.Caption + 1
End If
End If
End Sub
[錯誤訊息]物件呼叫、建立失敗的原因？(95)(編號：3796)
請問大家幾個問題：
1.我有其他公司用VB開發的程式都正常阿..而且我的程式五分鐘前跑還很正常耶！突然掛了就不能跑..
2.我用VB呼叫WORD卻發生「物件產生失敗」的錯誤訊息，但是我叫出關閉程式的對話盒(ctrl-alt-del)，卻有呼叫出WORD阿..為甚麼？
1.我有其他公司用VB開發的程式都正常阿..而且我的程式五分鐘前跑還很正常耶！突然掛了就不能跑..
2.我用VB呼叫WORD卻發生「物件產生失敗」的錯誤訊息，但是我叫出關閉程式的對話盒(ctrl-alt-del)，卻有呼叫出WORD阿..為甚麼？
[VBA]呼叫WORD的合併列印一定得啟動ACCESS嗎？(編號：3795)
請問大家..
我在公司裡需要套印各種不同標籤，我原本是用WORD去做合併列印的，但是為甚麼一定會用DDE啟動ACCESS呢？不能不用DDE抓資料嗎？(因為公司機器爛，看我發表過的文章就知道＞_＜)w同時啟動WORD跟ACCESS會粉操機器，還會常當機。所以有沒有辦法不啟動ACESS抓ACESS的資料出來印呢？
我在公司裡需要套印各種不同標籤，我原本是用WORD去做合併列印的，但是為甚麼一定會用DDE啟動ACCESS呢？不能不用DDE抓資料嗎？(因為公司機器爛，看我發表過的文章就知道＞_＜)w同時啟動WORD跟ACCESS會粉操機器，還會常當機。所以有沒有辦法不啟動ACESS抓ACESS的資料出來印呢？
有關date屬性.....(編號：3794)
請問如何將空值指定給一個SQL資料庫的Date欄位？
我要寫一個判斷，將一個字串轉換為日期格式後，存入一date屬性的欄位，但是如果有錯誤的字串時，必須指定這個欄位為空值，請問要如何做？
試了好久，還是沒辦法，Date好像不接受空值，都會出現一個預設值(上午12:00)，為什麼？
我要寫一個判斷，將一個字串轉換為日期格式後，存入一date屬性的欄位，但是如果有錯誤的字串時，必須指定這個欄位為空值，請問要如何做？
試了好久，還是沒辦法，Date好像不接受空值，都會出現一個預設值(上午12:00)，為什麼？
如何列印旋轉字型(編號：3792)
HELLO: 各位先進，小弟在PICTURE BOX上利用CreateFontIndirect 及 SelectObject等API顯示出旋轉角度之文字，但現在想列印出此結果，但在Printer物件上同樣使用相同的API卻無法列印出旋轉角度之文字，程式碼如下，不知是哪出了問題，敬請指導，謝謝！
' L 為 LOGFONT 資料結構
L.lfEscapement = 450 ' 設定字型旋轉45度
mFont = CreateFontIndirect(L) ' 建立字型
mPrevFont = SelectObject(Printer.hdc, mFont) ' 選取字型
Printer.CurrentX = x ' 設定 X 座標
Printer.CurrentY = y ' 設定 Y 座標
Printer.Print inText ' 列印文字
' L 為 LOGFONT 資料結構
L.lfEscapement = 450 ' 設定字型旋轉45度
mFont = CreateFontIndirect(L) ' 建立字型
mPrevFont = SelectObject(Printer.hdc, mFont) ' 選取字型
Printer.CurrentX = x ' 設定 X 座標
Printer.CurrentY = y ' 設定 Y 座標
Printer.Print inText ' 列印文字
大小化(編號：3789)
MDI表單在十七吋螢幕執行時呈最大化沒有問題，未何安裝到十五吋螢幕時會將WINDOWS的工作列蓋掉且控制項好像走位，請問就是在設計時要如何防止這樣的問題發生呢?或是該如何設計表單呢?要如何寫呢?謝謝
一個sql command的問題(編號：3786)
為什麼在資料庫管理員下的sql指令.
如要找出field內有"A"的字時.
select * from [table] where [field] like "A*"
與在vb得到的結果不一樣呢?
在資料庫管理員找得到而vb找不到!!
我是用ado 2.0 的!
如要找出field內有"A"的字時.
select * from [table] where [field] like "A*"
與在vb得到的結果不一樣呢?
在資料庫管理員找得到而vb找不到!!
我是用ado 2.0 的!
為什麼OLE DB不能開啟有密碼鎖住的ACCESS2000呢(編號：3782)
如題,因為本人用VB的DATA ENVIROMENT去抓連接字串都過不了關
密碼為空白的選項我取消打勾
使用者名稱我沒打或"Admin"
密碼欄位則輸入密碼,就是連接不了
但沒有密碼的Access2000就可以連接
請教各位大德,如何連接
密碼為空白的選項我取消打勾
使用者名稱我沒打或"Admin"
密碼欄位則輸入密碼,就是連接不了
但沒有密碼的Access2000就可以連接
請教各位大德,如何連接
CRYSTAL REPORT如何列印圖形(編號：3781)
您好:
CRYSTAL REPORT 8 連接SQL SERVER時,如何使之列印SQL的IMAGE之圖形或匯出至檔案(轉至畫面時,可以看到圖形,但列印或匯出時,則沒有圖形
CRYSTAL REPORT 8 連接SQL SERVER時,如何使之列印SQL的IMAGE之圖形或匯出至檔案(轉至畫面時,可以看到圖形,但列印或匯出時,則沒有圖形
自訂元件的問題(編號：3777)
請問各位大德:
我自己有寫一個元件,內容中有個屬性為CausesValidation(內建)設為True後,
當我Focus離開此元件時會引發 Validate 事件,可是只要自訂元件都會引發兩次,標準元件則不會請問要如何才能更正這個BUG???
我自己有寫一個元件,內容中有個屬性為CausesValidation(內建)設為True後,
當我Focus離開此元件時會引發 Validate 事件,可是只要自訂元件都會引發兩次,標準元件則不會請問要如何才能更正這個BUG???
取得印表機的狀態(編號：3776)
請問我們該如何取得Local印表機的狀態(如:OffLine PaperOut 電源
沒有開等)
曾試過GetPrinter的API，取得Printer_Info2的Data，但是沒有
辦法進一步取得Printer_Info2.Status的值
謝謝
沒有開等)
曾試過GetPrinter的API，取得Printer_Info2的Data，但是沒有
辦法進一步取得Printer_Info2.Status的值
謝謝
有關assess2000轉換方法?(編號：3775)
大家好:
請問大家一個問題，如何將ASSESS2000編輯的檔案在中的
ASSECC95/98開啟檔案呢？請大家告訴我這位新人類。
請各位高手幫幫忙。在此先謝謝大家囉！
請問大家一個問題，如何將ASSESS2000編輯的檔案在中的
ASSECC95/98開啟檔案呢？請大家告訴我這位新人類。
請各位高手幫幫忙。在此先謝謝大家囉！
DE 資料環境如何啟動(編號：3774)
我在 Form 中無 ADODC,GRID等控制項
但是要手動設定 Connection.ConnectionString
無法設定
請教前輩謝謝
1. Form 與 de 資料環境啟動順序為何
2. de 資料環境如何啟動
但是要手動設定 Connection.ConnectionString
無法設定
請教前輩謝謝
1. Form 與 de 資料環境啟動順序為何
2. de 資料環境如何啟動
關於檔案問題(編號：3772)
請問各位高人,利用VB來寫一個指定將磁碟及目錄下的所有檔案
列印到另一個所指定的磁碟目錄裡產生一個*.txt or *.doc
的文件檔.(也就是只要一執行這個寫好的程式就會產生一個文件檔
在所指定的目錄下,文件檔內容有所有檔名,大小,時間,日期)
列印到另一個所指定的磁碟目錄裡產生一個*.txt or *.doc
的文件檔.(也就是只要一執行這個寫好的程式就會產生一個文件檔
在所指定的目錄下,文件檔內容有所有檔名,大小,時間,日期)
[ VB ] 軟體推薦 : 快碼加編(編號：3771)
網址：http://www.infotool.com.tw/
快碼加編是軟體開發工具，它以Add-in形式幫助
VB Programmer快速進行軟體開發的工作。
主要功能：
快速插入程式碼，自動縮排，自動加
入行號，自動移除行號，程式碼列數分析，自動
插入錯誤處理常式，自動加入註解等等。
執行環境要求：
VB 6.0 + Microsoft Data Access Components 2.1。
快碼加編是軟體開發工具，它以Add-in形式幫助
VB Programmer快速進行軟體開發的工作。
主要功能：
快速插入程式碼，自動縮排，自動加
入行號，自動移除行號，程式碼列數分析，自動
插入錯誤處理常式，自動加入註解等等。
執行環境要求：
VB 6.0 + Microsoft Data Access Components 2.1。
關於 v c++ v b(編號：3768)
請問:
你們都是買正版的光碟嗎.....
我常常聽到有人說,要學VB應該先學 C++ or QB 是真的嗎??
但是要如何起步呢.............
有沒有可以下載 的 C++ 呢???
你們都是買正版的光碟嗎.....
我常常聽到有人說,要學VB應該先學 C++ or QB 是真的嗎??
但是要如何起步呢.............
有沒有可以下載 的 C++ 呢???
VB新手請教一個問題(編號：3764)
課堂上老師指定了一個習題,題目如下:
設計一個紅綠燈,按Command了話就會切換顏色,按一次換一次顏色,
想了一個晚上,仍想不出來,希望會的大哥指教一下小弟,謝謝!
endy@ara.seed.net.tw
設計一個紅綠燈,按Command了話就會切換顏色,按一次換一次顏色,
想了一個晚上,仍想不出來,希望會的大哥指教一下小弟,謝謝!
endy@ara.seed.net.tw
新VB站成立, 歡迎大家去看看!!(編號：3762)
新VB站成立, 歡迎大家去看看!! ＜目前資料不多,正在增加中,尚請海涵＞
本人對於VB專長的方面都是屬於較鑽牛尖的,比如如何不用MMControl ,卻做到多媒體控制的功能, 或者是遊戲相關方面的應用, 我從小便很喜歡玩遊戲(現在也是, 不過已經沒那麼多時間讓我去玩了), 所以從小便立志要當一個遊戲設計師, 雖然還未達到, 但也不會差太遠; 進階的VB能耐挑戰我也很有興趣, 看看VB到底能作到那裡, 正如很多人說VB爛(尤其是那些寫用C++寫程式的人), 我便要證明VB不爛 !!
For Example : 用VB做連線遊戲, 用VB寫Server , 用VB寫3D Game(我還在努力中), 用VB寫防毒程式(或FireWall)....等,
至於DataBase方面本人還在學習中, 而網路連線方面已小有心得.
本站也會如我所提一般, 朝此一方向來走, 證明沒有爛的程式語言, 只有爛Programmer所寫的爛程式 !!
請大家若有本人所熟悉方面問題請到本站看看,或發問....謝謝!!
本人對於VB專長的方面都是屬於較鑽牛尖的,比如如何不用MMControl ,卻做到多媒體控制的功能, 或者是遊戲相關方面的應用, 我從小便很喜歡玩遊戲(現在也是, 不過已經沒那麼多時間讓我去玩了), 所以從小便立志要當一個遊戲設計師, 雖然還未達到, 但也不會差太遠; 進階的VB能耐挑戰我也很有興趣, 看看VB到底能作到那裡, 正如很多人說VB爛(尤其是那些寫用C++寫程式的人), 我便要證明VB不爛 !!
For Example : 用VB做連線遊戲, 用VB寫Server , 用VB寫3D Game(我還在努力中), 用VB寫防毒程式(或FireWall)....等,
至於DataBase方面本人還在學習中, 而網路連線方面已小有心得.
本站也會如我所提一般, 朝此一方向來走, 證明沒有爛的程式語言, 只有爛Programmer所寫的爛程式 !!
請大家若有本人所熟悉方面問題請到本站看看,或發問....謝謝!!
請問有沒有關於win.ini的資料?(編號：3759)
我想program在每次運作windows都load一次，想將"run=XXX.exe"加入win.ini，但發現run似乎只可以有一行，如果再加一行會的話，第二行似乎不能run。
如
{
[windows]
run = XXX.exe
run = XXX.exe
...
...
}
有沒有方法可以將"XXX.exe"加到run這一行的最後位置?
另外，有沒有關於這方面的網頁?
如
{
[windows]
run = XXX.exe
run = XXX.exe
...
...
}
有沒有方法可以將"XXX.exe"加到run這一行的最後位置?
另外，有沒有關於這方面的網頁?
如何利用VB產生非表格格式的Word檔(編號：3752)
請教各位先進：
我想利用VB寫一個Word格式的報表檔
這報表並不是規則的表格格式
而是一筆資料產生一頁
有點類似Word中的合併列印的作法
請各位指點或是有任何可參考的書籍及網站
我想利用VB寫一個Word格式的報表檔
這報表並不是規則的表格格式
而是一筆資料產生一頁
有點類似Word中的合併列印的作法
請各位指點或是有任何可參考的書籍及網站
以 TabStrip 的頁籤切換表單為何會當機？(編號：3751)
(模擬UltraEdit 7.01a的介面)撰寫MDI程式，我在父視窗放置一個PictureBox收納器且在其上放置一TabStrip控制項以做為各子視窗的切換之用，但只要在TabStrip頁籤上多切換上幾次，必得當機之後果。
Private Sub TabStrip1_Click()
'EditFile() 子視窗陣列
EditFile(TabStrip1.SelectedItem.Index).SetFocus
End Sub
Private Sub TabStrip1_Click()
'EditFile() 子視窗陣列
EditFile(TabStrip1.SelectedItem.Index).SetFocus
End Sub
請問這要怎麼用(編號：3750)
請問 在vb5中要如何做到
在textbox中輸入e-mail後
就讓e-mali的字變成另一種顏色.......
然後user直接在e-mail上按下去就可以直接開啟新信件
就像在網頁上一樣的做法
請問這要如何做呢..........
在textbox中輸入e-mail後
就讓e-mali的字變成另一種顏色.......
然後user直接在e-mail上按下去就可以直接開啟新信件
就像在網頁上一樣的做法
請問這要如何做呢..........
關於路徑的問題(編號：3746)
我使用command去開啟一個exe檔,exe檔要去找放在同目錄底下的文字檔作運算,當我將.vbp放在別的檔案下去執行,可以開啟exe檔但是執行會有錯誤(應是找不到txt檔),我將vbp檔搬到同exe檔目錄下執行,就可運算.但是將vbp和exe放在同一個目錄下去封裝後.放到別台電腦去執行卻可開啟exe檔不能運算.應是exe檔與txt檔路徑的問題.知道者能否告知原因或是我該如何做.
windows的cd播放程式在進退片時是如何知道的?(編號：3744)
自己寫的cd播放程式在
MMControl.command="open"時
cdrom面板上的燈會持續閃爍(持續讀取)，只有在MControl.command="close"時
cdrom面板上的燈才會熄滅(停止讀取)
但是為什麼windows的cd播放程式在燈熄滅的狀態下，用面板操作進退片時，windows的cd播放程式都會知道呢?不是已經停止讀取了嗎?它怎麼辦到的呢?
MMControl.command="open"時
cdrom面板上的燈會持續閃爍(持續讀取)，只有在MControl.command="close"時
cdrom面板上的燈才會熄滅(停止讀取)
但是為什麼windows的cd播放程式在燈熄滅的狀態下，用面板操作進退片時，windows的cd播放程式都會知道呢?不是已經停止讀取了嗎?它怎麼辦到的呢?
如何控制讓網路上的某一台電腦執行螢幕保護程式(編號：3743)
請教眾高手們:
我如何控制讓網路上的某一台電腦執行螢幕保護程式?
是否用SHELL??又如果IP位置為100,100,1,1電腦名稱為
001，又如何解除加鎖後的螢幕保護程式，是否可用Sendkeys
，指令要如何下???
我如何控制讓網路上的某一台電腦執行螢幕保護程式?
是否用SHELL??又如果IP位置為100,100,1,1電腦名稱為
001，又如何解除加鎖後的螢幕保護程式，是否可用Sendkeys
，指令要如何下???
Fw:位什麼CD播放程式不用持續對CD-ROM作讀取就能夠獲得CD-ROM的(編號：3742)
再請教各位高手:
我要怎麼樣讓我寫的cd播放程式可以像windows本身的cd播放程式一樣，能在停止播放的時後同時也停止對cdrom的讀取
因為我發現windows的cd播放程式在停止播放的時候，面板上的燈是不亮的，但是我自己寫的程式在停止播放的時候，面板上的燈卻還在閃爍。
我要怎麼樣讓我寫的cd播放程式可以像windows本身的cd播放程式一樣，能在停止播放的時後同時也停止對cdrom的讀取
因為我發現windows的cd播放程式在停止播放的時候，面板上的燈是不亮的，但是我自己寫的程式在停止播放的時候，面板上的燈卻還在閃爍。
小吳 - 全文檢所有問題喔(編號：3740)
小吳, 關鍵字全文檢所有問題喔...
ex. 選作者 -＞ Key word: 璉璉
之前我卡在 checkbox 沒選不會回傳, 反而造成 ASP Error, 前陣子解決了, 如果你的問題是在這, 可以交流技術...
我用到相關技術在
http://feitsui.hyd.ncku.edu.tw/Paper/PaperQry.asp
網頁, 由於 CheckBox 我用 Name='chk' & [中文欄名] , 還要搞個函數反轉回中文... 才能確認回傳是否有這個元素, 搞的比較久, 我注意到你的三個 CheckBox 都用英文, 會比較單純...
如何? 是否為該項呢? 是的話我就傳給你...
ps. 放假我不上網, 所以我看到你的回覆可能要到周二... 周一去考試...
ex. 選作者 -＞ Key word: 璉璉
之前我卡在 checkbox 沒選不會回傳, 反而造成 ASP Error, 前陣子解決了, 如果你的問題是在這, 可以交流技術...
我用到相關技術在
http://feitsui.hyd.ncku.edu.tw/Paper/PaperQry.asp
網頁, 由於 CheckBox 我用 Name='chk' & [中文欄名] , 還要搞個函數反轉回中文... 才能確認回傳是否有這個元素, 搞的比較久, 我注意到你的三個 CheckBox 都用英文, 會比較單純...
如何? 是否為該項呢? 是的話我就傳給你...
ps. 放假我不上網, 所以我看到你的回覆可能要到周二... 周一去考試...
如何抓取某一行字串以下的資料(編號：3738)
.
.
Invalid Person, switching statement rejected 640500705
Invalid Person, switching statement rejected 640500903
Data Date : 08/09/99
Invalid Person, switching statement rejected 010104607
Invalid Person, switching statement rejected 010104903
Invalid Person, switching statement rejected 010202106
.
.
如果我想抓取 "08/09/99" 以下的資料，我該如何著手，此檔是一文字檔，主要記錄每天所產生之LOG FILE，但我只想抓某一天的資料。
.
Invalid Person, switching statement rejected 640500705
Invalid Person, switching statement rejected 640500903
Data Date : 08/09/99
Invalid Person, switching statement rejected 010104607
Invalid Person, switching statement rejected 010104903
Invalid Person, switching statement rejected 010202106
.
.
如果我想抓取 "08/09/99" 以下的資料，我該如何著手，此檔是一文字檔，主要記錄每天所產生之LOG FILE，但我只想抓某一天的資料。
使用VB 處理SQL Server 的Relation的問題?(編號：3737)
我在VB的程式中, 使用DAO透過ODBC來連結SQL Server的資料庫, 變數名稱為gdb_sale, 大部分的屬性都是正常的(例如 gdb_sale.tabledefs), 除了gdb_sale.relations 之外, 請問這是不是VB 的Bug, 有無方法可以解決? 謝謝
如何劃底線?(編號：3736)
我用printer.fontunderline畫報表title的底線
我只要有字的地方有底線,空白的地方不要
因為title要置中
ex:
printer.fontunderline
printer " 測試報表"
我只要"測試報表"下有underline,
但是結果確整行都有underline
請問要如何解決??
Thanks!
我只要有字的地方有底線,空白的地方不要
因為title要置中
ex:
printer.fontunderline
printer " 測試報表"
我只要"測試報表"下有underline,
但是結果確整行都有underline
請問要如何解決??
Thanks!
請問如何製作一個COM元件來支援Client端呈現報表的格式(編號：3735)
問題是:我所在的公司是一個作電子商務的網站,在五股有物流中心,但是不屬於公司內部的網路範圍必須靠撥接連上公司的網路,現在我要做一個報表系統包含出貨單,客戶簽收單,出貨明細表現在是用ASP處理五股送來的查詢再回傳一個HTML的網頁結果去列印,如何在收到查詢結果後呼叫VB的DataReport物件而呈現預覽列印的介面也就是不以HTML格式去列印而以在VB中DataReport的格式去列印(如果可以呼叫ACCESS的Report也行)
請教 : 如何同時列印多張不同格式的報表(編號：3734)
在 VB6 中使用 Crystal Report 7 製做報表時, 如何能同時preview/print 多張不同格式的報表 (即視此多張不同格式的報表為同一報表) ??
重新設定TextBox的DataSource,DataMember的問題?(編號：3733)
請問 我用了TextBox顯示一個欄位的值,資料控制用的是DataEnvironment物件在關閉之後
重新指定物件的DataSource...等
用DataGrid顯示完全沒有問題,在重設TextBox的DataSource,DataMember時 卻出現了
"Field not updatable, Bound Property Name: Text, _
Field Name: TotalCost"
這樣的訊息,而且只有這一個欄位會這樣,請問這是什麼原因??
有沒有方法解決ㄋ??
重新指定物件的DataSource...等
用DataGrid顯示完全沒有問題,在重設TextBox的DataSource,DataMember時 卻出現了
"Field not updatable, Bound Property Name: Text, _
Field Name: TotalCost"
這樣的訊息,而且只有這一個欄位會這樣,請問這是什麼原因??
有沒有方法解決ㄋ??
Join後資料編修的問題(編號：3731)
我有二個Table:訂單檔及廠商檔;當我在做查詢時是用Join串起來的可是如此一來資料編修便有問題,例如 Delete一筆訂單主檔,VB會順便把對應到的廠商資料給刪除;請教各位大師我應如何解決這個問題
MSSQL 7.0+VB6.0 DataEnveronment
謝謝..
MSSQL 7.0+VB6.0 DataEnveronment
謝謝..
請問SPENCER YANG關於txt檔問題.....(編號：3730)
SPENCER YANG您好，先前承蒙您指教關於txt檔轉入Access問題已大致了解，
但是我的txt檔為什麼都找不到換行字元呢？
我的intPosition 都會是0，所以都只可轉入第一筆資料,
這是我改過的部份程式：
Private Sub PutToData1(ByVal strFileName As String, rs As ADODB.Recordset)
Dim strX As String
Dim strY As String
Dim intPosition As Integer
Dim intPlus As Integer
Line Input #1, strX
While Len(strX) ＞ 0
intPosition = InStr(strX, vbLf)
If intPosition ＞ 0 Then
strY = Left(strX, intPosition - 1)
strX = Mid(strX, intPosition + 1)
Else
strY = strX
strX = ""
End If
With rs
.AddNew
!OsxFileNo = Left(strY, 6)
!OsxRecordNo = Mid(strY, 7, 6)
!OsxRecordType = Mid(strY, 13, 4)
!OsxData = Mid(strY, 17, 130)
.Update
End With
Wend
End Sub
這是我的txt檔：
000343000001AA W1130210003A000016801SBRN26155544 0105AIR .01255 12 20000503200005252000052520000503200005260470
000343000002AB W113021B AJBI INCORPORATED S AJBI INCORPORATED S ECANTON, MA 02021
000343000003AB W113021DSAORIENT CONSOLIDATION SERVICES DSEHONG KONG DSFHONG KONG
000343000004AC W1130210000INH 0001BX9980 BUYR0000LAURA KABLIK DRESSSLSM0119BOB BERNSTEIN
000343000005AC W1130210000NOTE0001SOFT KICKS PATT0000TS2170ZW CONS0000NEW SNSATION W NEW SNSATION W
000343000006AC W1130210000MAT LAMY SUEDE 我的txt檔用記事本看是非常整齊的一行接著一行排列
請問我的問題在那裡，請您再幫幫我，
謝謝！
但是我的txt檔為什麼都找不到換行字元呢？
我的intPosition 都會是0，所以都只可轉入第一筆資料,
這是我改過的部份程式：
Private Sub PutToData1(ByVal strFileName As String, rs As ADODB.Recordset)
Dim strX As String
Dim strY As String
Dim intPosition As Integer
Dim intPlus As Integer
Line Input #1, strX
While Len(strX) ＞ 0
intPosition = InStr(strX, vbLf)
If intPosition ＞ 0 Then
strY = Left(strX, intPosition - 1)
strX = Mid(strX, intPosition + 1)
Else
strY = strX
strX = ""
End If
With rs
.AddNew
!OsxFileNo = Left(strY, 6)
!OsxRecordNo = Mid(strY, 7, 6)
!OsxRecordType = Mid(strY, 13, 4)
!OsxData = Mid(strY, 17, 130)
.Update
End With
Wend
End Sub
這是我的txt檔：
000343000001AA W1130210003A000016801SBRN26155544 0105AIR .01255 12 20000503200005252000052520000503200005260470
000343000002AB W113021B AJBI INCORPORATED S AJBI INCORPORATED S ECANTON, MA 02021
000343000003AB W113021DSAORIENT CONSOLIDATION SERVICES DSEHONG KONG DSFHONG KONG
000343000004AC W1130210000INH 0001BX9980 BUYR0000LAURA KABLIK DRESSSLSM0119BOB BERNSTEIN
000343000005AC W1130210000NOTE0001SOFT KICKS PATT0000TS2170ZW CONS0000NEW SNSATION W NEW SNSATION W
000343000006AC W1130210000MAT LAMY SUEDE 我的txt檔用記事本看是非常整齊的一行接著一行排列
請問我的問題在那裡，請您再幫幫我，
謝謝！
不知道哪裡錯了!!很簡單的問題(編號：3729)
Text.Text = Dir.List(Dir.ListIndex) & "\" & File.FileName
Image.Picture = LoadPicture(Text.Text)
其中Text.Text="C:\windows\circles.bmp"
Image卻不會出現圖片,不管選的是那一張圖片都一樣,會告訴我"物件不支援此屬性或方法"
有哪裡錯呢?
謝謝!!
Image.Picture = LoadPicture(Text.Text)
其中Text.Text="C:\windows\circles.bmp"
Image卻不會出現圖片,不管選的是那一張圖片都一樣,會告訴我"物件不支援此屬性或方法"
有哪裡錯呢?
謝謝!!
請問這要如何做呢(編號：3727)
請問 在vb5中要如何做到
在textbox中輸入e-mail後
就讓e-mali的字變成另一種顏色.......
然後user直接在e-mail上按下去就可以直接開啟新信件
就像在網頁上一樣的做法
請問這要如何做呢..........
在textbox中輸入e-mail後
就讓e-mali的字變成另一種顏色.......
然後user直接在e-mail上按下去就可以直接開啟新信件
就像在網頁上一樣的做法
請問這要如何做呢..........
救命阿~Setup程式安裝完卻不能Run....(編號：3725)
各位:
我寫了一個很簡單的程式,就是利用DAO建立一個MDB檔,
然後製作成Setup安裝程式,
然後拿到一台乾淨的環境上去Setup,
結果程式卻不能Run...ErrorMessage如下:
當呼叫 Jet VBA 檔案 (VBAJET.dll 用在 16 位元版本，VBAJET32.dll 用在 32 位元版本) 時，無法起始設定。 請重新安裝傳回錯誤的應用程式。 (錯誤 3447)
我重裝N次也一樣...我快對VB的安裝部署精靈失去信心了...＞_＜
請問有什麼辦法可以解決??
PS:VB安裝精靈也有將Mdac_typ.exe包進來,但是還是不行...
VB6+SP3 NTWK4.0+sp5
我寫了一個很簡單的程式,就是利用DAO建立一個MDB檔,
然後製作成Setup安裝程式,
然後拿到一台乾淨的環境上去Setup,
結果程式卻不能Run...ErrorMessage如下:
當呼叫 Jet VBA 檔案 (VBAJET.dll 用在 16 位元版本，VBAJET32.dll 用在 32 位元版本) 時，無法起始設定。 請重新安裝傳回錯誤的應用程式。 (錯誤 3447)
我重裝N次也一樣...我快對VB的安裝部署精靈失去信心了...＞_＜
請問有什麼辦法可以解決??
PS:VB安裝精靈也有將Mdac_typ.exe包進來,但是還是不行...
VB6+SP3 NTWK4.0+sp5
VB小問題(編號：3724)
請教各位高手,如果要利用VB寫個小程式,其內容如下...
"指定某一磁碟機的某一目錄(如;G:\XYZ)裡的所有檔案全部列出
在指定的一個文件檔,其檔案在其文件中顯示檔名,日期,byte數,時間"
懇請各位大德幫幫忙,謝謝!
"指定某一磁碟機的某一目錄(如;G:\XYZ)裡的所有檔案全部列出
在指定的一個文件檔,其檔案在其文件中顯示檔名,日期,byte數,時間"
懇請各位大德幫幫忙,謝謝!
有關DataGrid的欄位加總(編號：3723)
請問如果要將DataGrid的某些欄位的值相加後
於另一欄位中顯示其總和
要如何寫
另一問題，我將DataGrid的DataSource指定為DataEnvironment
DataMember指定某一個Commands後
當我改變某欄位的值後，下次進入其值又回復成先前的值
也就是說我沒有更新資料
請問要如何設定才能更新資料
於另一欄位中顯示其總和
要如何寫
另一問題，我將DataGrid的DataSource指定為DataEnvironment
DataMember指定某一個Commands後
當我改變某欄位的值後，下次進入其值又回復成先前的值
也就是說我沒有更新資料
請問要如何設定才能更新資料
請問各位高手(編號：3722)
各位高手...小弟前幾天才接觸VB ,
但在明天中午以前急須交一個作業..(事出突然)
如果方便..請各位幫忙..謝謝~~
只要寫一個簡易的計算機做四則運算和sin以及cos
不能由鍵盤輸入數字...數字及運算符號皆由界面輸入
(跟市面的記算機一樣)請盡快寄給小弟...謝謝~~~
但在明天中午以前急須交一個作業..(事出突然)
如果方便..請各位幫忙..謝謝~~
只要寫一個簡易的計算機做四則運算和sin以及cos
不能由鍵盤輸入數字...數字及運算符號皆由界面輸入
(跟市面的記算機一樣)請盡快寄給小弟...謝謝~~~
錯誤訊息-無法初始化資料提供者(編號：3718)
在 from_load 中
Set RS1 = DESCH01.rsCOM使用者檔 -＞ 資料環境
出現錯誤如標題
當按下 "偵錯"時,把游標移到 RS1 出現
"沒有設定物件變數或 with 區塊變數"
請教前輩們救救... 謝謝
Set RS1 = DESCH01.rsCOM使用者檔 -＞ 資料環境
出現錯誤如標題
當按下 "偵錯"時,把游標移到 RS1 出現
"沒有設定物件變數或 with 區塊變數"
請教前輩們救救... 謝謝
Read Chinese(編號：3717)
how can i create an application in VB that can read chinese in english windows
many thanx
many thanx
請各位先進指點迷津----VB6 如何開啟ACCESS200的資料庫教(編號：3714)
我在電腦安裝了OFFICE2000與VB6.0版,嘗試以VB6開啟ACCESS2000所製作的資料庫時, 出現無法辨識的問題. 我試著安裝 VISUAL STUDIO SERVICE PACK 3.0 ,可是問題依舊還是存在,拜託各位高手指點迷津...謝謝
請各位先進指點迷津----VB6 如何開啟ACCESS200的資料庫教(編號：3713)
我在電腦安裝了OFFICE2000與VB6.0版,嘗試以VB6開啟ACCESS2000所製作的資料庫時, 出現無法辨識的問題. 我試著安裝 VISUAL STUDIO SERVICE PACK 3.0 ,可是問題依舊還是存在,拜託各位高手指點迷津...謝謝
inet 元件, (vb6.0,ftp)(編號：3712)
請問各位高手, 小妹使用inet的excute方法去get檔案時, 如何指定傳輸方法為ascii mode 呢?? 小妹用inet去抓下來的檔案跟用cuteftp binary mode 抓下來的檔案一樣, 但用cuteftp ascii mode 抓下來的檔案才是正確的....請幫幫忙, 謝謝!!
位什麼CD播放程式不用持續對CD-ROM作讀取就能夠獲得CD-ROM的最新(編號：3711)
位什麼CD播放程式不用持續對CD-ROM作讀取就能夠獲得CD-ROM的最新狀態，但我用MMControl就必須持續讀取才能辦到，直接用mciSendString也是一樣?為什麼?
告別 VB(編號：3710)
記得去年和 cww 兄討論時, 他曾經談到或許不久後他就不用 VB 開發程式了(這樣我們又少了一位可以請教的高手)
沒想到今天我也得告別 VB 了(因為公司要全面改成 Java), 心裏當然有許多的不捨. VB 是我在 Windows 上學習
的第一套程式語言, 雖然它不甚完美, 不過說它是最好用的開發工具我絕對同意! 當然用久了難免對 VB 也會產生
一種特殊的情感吧. 只希望以後還有機會和大家在這裏討論問題, 一起成長...
沒想到今天我也得告別 VB 了(因為公司要全面改成 Java), 心裏當然有許多的不捨. VB 是我在 Windows 上學習
的第一套程式語言, 雖然它不甚完美, 不過說它是最好用的開發工具我絕對同意! 當然用久了難免對 VB 也會產生
一種特殊的情感吧. 只希望以後還有機會和大家在這裏討論問題, 一起成長...
執行階段錯誤???(編號：3707)
請問我利用Inet元件來ftp某一台server,
開始已有回應一status為已連接到主機
但後來出現一個錯誤訊息"執行階段錯誤 '35754'
無法連接至遠端主機"
而我在另一台電腦測試就能成功執行完畢
請問一下是什麼問題呢?
開始已有回應一status為已連接到主機
但後來出現一個錯誤訊息"執行階段錯誤 '35754'
無法連接至遠端主機"
而我在另一台電腦測試就能成功執行完畢
請問一下是什麼問題呢?
有關datagrid的問題?(編號：3706)
在DataGrid中新增一筆record(在程式中指定各欄位的值,而非在datagrid 中直接輸入),按Enter 或將cursor移到別行後,該筆record就不見了,也沒有寫入database,但如果在datagrid 中直接輸入則正常, 請問該如何解決??
如何將一個自建的Dll中所含的Form，在一個MDIForm中當作一個MDI (編號：3705)
請問如何將一個自建的Dll中所含的Form，讓它可以在一個MDIForm中當作一個呼叫出來，當作此MDI Form的Child Form，而且可以控制如一般的MDI Child Form?
請教 何謂 '不支援結合運算'(編號：3703)
select tableA.Field1 , tableB.Field1
From tableA
left join tableB on tableA.Field2=tableB.Field2
and tableB.Field3="xxx"
像這樣子一個查詢在SQL server中沒有問題
但在Access中卻不可以,會有'不支援結合運算'的錯誤
發覺在ON 後面只可以用一個判斷式,無法像上一個例子,有二個以上
看一下說明: 系統回應
可能的原因：
您的 SQL 陳述式包含多個連接，根據這些連接執行的順序，查詢的結果將有所不同。 您可能要建立h另一個查詢來執行第一個連接，然後將這個查詢放到您的 SQL 陳述式內。
-
請教這問題該如何解決
From tableA
left join tableB on tableA.Field2=tableB.Field2
and tableB.Field3="xxx"
像這樣子一個查詢在SQL server中沒有問題
但在Access中卻不可以,會有'不支援結合運算'的錯誤
發覺在ON 後面只可以用一個判斷式,無法像上一個例子,有二個以上
看一下說明: 系統回應
可能的原因：
您的 SQL 陳述式包含多個連接，根據這些連接執行的順序，查詢的結果將有所不同。 您可能要建立h另一個查詢來執行第一個連接，然後將這個查詢放到您的 SQL 陳述式內。
-
請教這問題該如何解決
Chinese BIG5(編號：3700)
how can i read and print chinese (big5) in english windows
can help please
thanx
can help please
thanx
如何在VB的ADODC中抓取ACCESS中的OLE物件（圖片）(編號：3694)
請問各位高手：
如何在VB中用ADODC中抓取ACCESS中的OLE物件（圖片）欄位的資料
是用picture box控制項還是OLE控制項？？
謝謝
如何在VB中用ADODC中抓取ACCESS中的OLE物件（圖片）欄位的資料
是用picture box控制項還是OLE控制項？？
謝謝
請問高手指導如何結束程式(編號：3693)
您好向您請教我制成一個執行檔後用End結束程式後好像還有什麼東西殘留待(我不清楚,無法用控制台移除程式如果用APP.PREVENCE不要同時執行兩個程式時.在結束後也無法在叫第二次執行關機時也會發生詢問結束程式)一定要重開機後才會回到正常.請問各位高手如何處理謝謝
printer.papersize 對 datareport 有 冇作用 ???(編號：3690)
printer.papersize=256
Printer.hight = 200
Printer.Width = 120
這樣對 datareport 有冇作用 ??????
Printer.hight = 200
Printer.Width = 120
這樣對 datareport 有冇作用 ??????
how 改變 datareprot papersize ????(編號：3689)
how 改變 datareport print 出來的 paper size ar ????
因 paper 係特別 papersize !!!!
thx
因 paper 係特別 papersize !!!!
thx
有關RichTextBox的問題(編號：3687)
我已經把Properties的
- Multiline set 做 True,
- ScrollBar set 做 3-rtfBoth
當data多的時候,
為何只有Vertical Scroll Bar,
沒有Horizatal Scroll Bar.
即是,如字數太多,超出一行,
只會將多餘的字撥去下一行?
- Multiline set 做 True,
- ScrollBar set 做 3-rtfBoth
當data多的時候,
為何只有Vertical Scroll Bar,
沒有Horizatal Scroll Bar.
即是,如字數太多,超出一行,
只會將多餘的字撥去下一行?
這句話到底什麼意思?(編號：3686)
資料庫名:SleDa，資料表名:SleCuTb1
大意是取得SleCuTb1的使用者權限，可否詳細解釋此敘述的意思呢
strEnvUserName=Environ("USERNAME")
strSqlStmt$="select o.name,p.action" & _
"from SleDa.dbo.sysprotects p," & _
"SleDa.dbo.sysobjects o" & _
"where o.name='SleCuTb1'" & _
"and p.id=o.id" & _
"and p.uid=" & _
"(select u.uid" & _
"from SleDa.dbo.sysusers u," & _
"master.dbo.syslogins 1" & _
"where u.suid=1.suid" & _
"and 1.dbname='SleDa'" & _
"and 1.name='" & strEnvUserName & "')"
大意是取得SleCuTb1的使用者權限，可否詳細解釋此敘述的意思呢
strEnvUserName=Environ("USERNAME")
strSqlStmt$="select o.name,p.action" & _
"from SleDa.dbo.sysprotects p," & _
"SleDa.dbo.sysobjects o" & _
"where o.name='SleCuTb1'" & _
"and p.id=o.id" & _
"and p.uid=" & _
"(select u.uid" & _
"from SleDa.dbo.sysusers u," & _
"master.dbo.syslogins 1" & _
"where u.suid=1.suid" & _
"and 1.dbname='SleDa'" & _
"and 1.name='" & strEnvUserName & "')"
訂閱：
文章 (Atom)