如何在Command Button上製作按一下滑鼠時，會出現另外一個Form。
請問程式碼怎麼寫？
提供小吳 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 .
如何解決使用windowsME封裝出的問題?(編號：7347)
我使用windowsME封裝VB程式時,都會出現下列錯誤訊息:
發生無法預期的錯誤(錯誤代碼372):無法從MSFlxGrid.ocx中載入控制項'MSFlxGrid'.
MSFlxGrid版本可能過舊請確認使用控制項的版本是您應用程式所提供
PS:VB6+SP3
發生無法預期的錯誤(錯誤代碼372):無法從MSFlxGrid.ocx中載入控制項'MSFlxGrid'.
MSFlxGrid版本可能過舊請確認使用控制項的版本是您應用程式所提供
PS:VB6+SP3
請問可不可以call C 的function(編號：7346)
我的VB中必須用到一個非常複雜的function
如果自己重寫的話非常累
但現在有一個現成的C function
請問有什麼辦法可以去call他嗎?
如果自己重寫的話非常累
但現在有一個現成的C function
請問有什麼辦法可以去call他嗎?
寫vb透過影像頡取卡來使四支ccd的影像同時出現在螢幕上(酬金三千(編號：7345)
寫vb透過影像頡取卡來使四支ccd的影像同時出現在螢幕上(酬金三千)
我的影像頡取卡有四個port 我寫的只能頡取第一個 因時間緊迫
若您自認為有能力的話請與我連絡 (程式須附原始碼及一些必備的功能如將影像存成avi檔等 若您的功能可提供更好的功能價錢可再議 )
請以mail與我連絡
我的影像頡取卡有四個port 我寫的只能頡取第一個 因時間緊迫
若您自認為有能力的話請與我連絡 (程式須附原始碼及一些必備的功能如將影像存成avi檔等 若您的功能可提供更好的功能價錢可再議 )
請以mail與我連絡
請問有關dll的問題(編號：7342)
有幾個問題想請教大家：
1.我現在用ActiveX DLL作一個dll，裡面提供幾個public function，請問我應該要如何作，才可以在按下F2檢視dll時直接在左邊的視窗看到這些function，而且不要看到class
2.請問我可以把dll中傳入的引數用richtextbox嗎???
for example：用public function a(rich as richtextbox)...
1.我現在用ActiveX DLL作一個dll，裡面提供幾個public function，請問我應該要如何作，才可以在按下F2檢視dll時直接在左邊的視窗看到這些function，而且不要看到class
2.請問我可以把dll中傳入的引數用richtextbox嗎???
for example：用public function a(rich as richtextbox)...
遇到難題需要急救.about 撥放avi 在光碟上無反映(編號：7340)
請高 手 指 點
遇到難題需要急救.about 撥放avi 在光碟上無反映
在機器上執行ok but 燒在光碟上 用autorun
第一頁是撥放avi 用mmcontrol元件
但一直昱道上述之問題...........
快把我逼瘋
遇到難題需要急救.about 撥放avi 在光碟上無反映
在機器上執行ok but 燒在光碟上 用autorun
第一頁是撥放avi 用mmcontrol元件
但一直昱道上述之問題...........
快把我逼瘋
程式延遲的問題....(編號：7335)
請問,
我使用do...loop和timer變數寫成delay功能,
雖然真的可以delay, 但cpu資源卻因此吃得很兇,
請問除了用timer控制項外, 還有什麼方法可以作成delay功能,
且不會造成程式停止回應的?
我使用do...loop和timer變數寫成delay功能,
雖然真的可以delay, 但cpu資源卻因此吃得很兇,
請問除了用timer控制項外, 還有什麼方法可以作成delay功能,
且不會造成程式停止回應的?
日期的問題(編號：7334)
為什麼 Text1.Text=Format(Date,"ee/mm/dd")
正常狀況之下 Text1.Text="89/01/01"
可是有些電腦 Text1.Text="2000/01/01"
正常狀況之下 Text1.Text="89/01/01"
可是有些電腦 Text1.Text="2000/01/01"
請哪位告訴我Filter在recodeset上的用法(編號：7331)
Filter在recodeset上的用法是這樣嗎?
dim myrs as new adodb.recodeset
set ..........
myrs.filter="" ????
可以告訴我它的正確用法
dim myrs as new adodb.recodeset
set ..........
myrs.filter="" ????
可以告訴我它的正確用法
如何在兩個以上的應用程式中共用ActiveX DLL中物件的instance?(編號：7330)
若在ActiveX DLL中會建立物件，那麼在第一個適用此DLL檔的應用程式執行時，物件的instance會被建立。請問如何將此物件的instance與第二個應用程式共用？？
如何把dhtml or acrive x file upload 上網(編號：7329)
我已做了.html file,.dll file 和 .ocx file,
不過我不知如何放到網上
我試過把用封裝及部屬精靈做了一個.cab file
而且upload到網上
不過我的朋友都是用不到(active x not run)
不過我不知如何放到網上
我試過把用封裝及部屬精靈做了一個.cab file
而且upload到網上
不過我的朋友都是用不到(active x not run)
求Y=X^2與Y=X^3所相交的面積與質心座標？(編號：7328)
求Y=X^2與Y=X^3所相交的面積與質心座標？
這是我物理老師出的題目，他叫我們用電腦計算，並寫出計算程式，但我不會寫程式，希望有數學+物理+電腦高手幫我解這題目，並將解好的答案及寫出的程式寄給我，最好有附詳解。謝謝
email:zeroduo@dreamer.com.tw
這是我物理老師出的題目，他叫我們用電腦計算，並寫出計算程式，但我不會寫程式，希望有數學+物理+電腦高手幫我解這題目，並將解好的答案及寫出的程式寄給我，最好有附詳解。謝謝
email:zeroduo@dreamer.com.tw
索引檔之可靠度(編號：7327)
不知是否有什麼方式可確保索引檔的正確性?
還有DBASEIV之資料庫若以DBASEIII之索引檔形式建立會造成什麼問題嗎?(DBASEIV之索引檔好像是.MDX,DBASEIII為.NDX)
還有DBASEIV之資料庫若以DBASEIII之索引檔形式建立會造成什麼問題嗎?(DBASEIV之索引檔好像是.MDX,DBASEIII為.NDX)
DataGrid的新增問題(編號：7326)
請問,我將DataGrid設為允許新增,而當使用者在新增資料時(不是用Recordset.AddNew也不是SQL的INSERT INTO而是將游標移到最後一行也就是指標為*的那一行),我如何可以自動的設一個值給Recordset中的Field,另外.可有方法在新增的欄位中一輸入資料就自動的存檔,因為我是想要一但在新增的欄位輸入資料後就再自動的在他下面增加一個新的蘭一行
如何在web上產生3D統計圖(編號：7325)
在web上舉行網路投票,如何產生3D統計圖?
如pie chart或3D bar chart
ASP(activeX or activeForm)或CGI可以做到嗎?
在網路上誰看過線上即時3D圖表?
如pie chart或3D bar chart
ASP(activeX or activeForm)或CGI可以做到嗎?
在網路上誰看過線上即時3D圖表?
ask a question!(編號：7323)
我問的這個問題可能跟vb沒有太大關係
大家都知道，開機的畫面，就是一個win98嘛，其中下面呢，不是有個東東在動嗎?請問一下，那是什東東，又要如何做到呢?
又如果我用的是 vb6.0的，是否可以做個程式，用來更改開機畫面呢?要有包含下面的東東喔!(總算是有關vb的了)
大家都知道，開機的畫面，就是一個win98嘛，其中下面呢，不是有個東東在動嗎?請問一下，那是什東東，又要如何做到呢?
又如果我用的是 vb6.0的，是否可以做個程式，用來更改開機畫面呢?要有包含下面的東東喔!(總算是有關vb的了)
請問DataGrid的問題???(編號：7321)
要如何能夠在datagrid中,按下一筆資料就可以設定一整列的值...
比方說~~~我有10筆資料,每筆資料列前都有一個布林變數,0 或 1
我想要按下一筆資料時,其他列的布林變數全變成0,
請問如何去設定一整個columns的值???
比方說~~~我有10筆資料,每筆資料列前都有一個布林變數,0 或 1
我想要按下一筆資料時,其他列的布林變數全變成0,
請問如何去設定一整個columns的值???
請教有關printer port的問題...急~~~(編號：7316)
如何用一個Key Pro(printer port)供做資料讀取的東西,讓使用者能從windows按一個鍵便去Key Pro讀一筆已設計好的資料,並配合此資料執行某一程式?
我們老闆不知去那看到這東西,回來後要偶做,天啊,從未曾去access過硬體,根本不知從何做起,對方也是用VB寫的..請會的人幫幫忙~~
我們老闆不知去那看到這東西,回來後要偶做,天啊,從未曾去access過硬體,根本不知從何做起,對方也是用VB寫的..請會的人幫幫忙~~
怪問題!(編號：7315)
小弟寫一資料庫程式設有Text1(0)、Text1(1)....和Command1、Command2....,當執行時按下Command3做確定存檔後,Focus怎會跑到Text1(0)去呢?因Text1有寫GotFocus事件,程式都會跑進去執行,如何作才不會Focus到Text1(0)去?(TabIndex是由Command1開始數起)
如何得知資源回收桶的目錄位置？(編號：7314)
windows 9*,windows nt(workstation & server),windows 2000
皆是按照指示在c:\安裝，並變更資源回收桶之任何屬性，請問如何用
程式或windows api, windows management interface(wmi)得知
資源回收桶的目錄位置？
皆是按照指示在c:\安裝，並變更資源回收桶之任何屬性，請問如何用
程式或windows api, windows management interface(wmi)得知
資源回收桶的目錄位置？
請問一個SQL語法的問題!(編號：7312)
小弟有一個問題一直找不到解答，請各位先進解答一下，
小弟想要在所有欄位中搜尋一個關鍵字，
SQL的語法該如何寫？若用OR一個一個判斷，
好像太沒效率了！是否有其他的語法？謝謝！
小弟想要在所有欄位中搜尋一個關鍵字，
SQL的語法該如何寫？若用OR一個一個判斷，
好像太沒效率了！是否有其他的語法？謝謝！
MSFlexGrid要如何取得授權(編號：7311)
想請教一下我現在要在excel中的vb編輯器中加入msflexgrid的控制項
我已經加入我的控制項選單中,但要加入我的表單中時卻出現一個警告視窗,說我未經過適當授權無法建立該控制項
請問一下這要如何解決??
我已經加入我的控制項選單中,但要加入我的表單中時卻出現一個警告視窗,說我未經過適當授權無法建立該控制項
請問一下這要如何解決??
問...可以套用microsoft的檔案總管的mouse右鍵的pop menu功能嗎(編號：7308)
我的檔案總管可以套用microsoft的檔案總管的mouse右鍵的pop menu功能嗎
這樣我就不用在寫一次程式了
這樣我就不用在寫一次程式了
哪裡有錯??(編號：7305)
我想把Client傳回來的資料自動顯示在grid裡,程式如下:Private Sub tcpServer_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim strdata As String
Dim n1 As String
tcpServer(1).getdata strdata
n1 = Mid(strdata, 1, 1)
Select Case n1
Case "a"
txtname.Caption = Mid(strdata, 2)
Call nex
Case "b"
txtip.Caption = Mid(strdata, 2)
Case "c"
txttotal.Text = Mid(strdata, 2)
End Select
End Sub
Sub nex()
rs.AddNew "username", txtname.Caption
End Sub
卻出現 沒有設定物件變數或with區塊變數的錯誤訊息(err91)
但若設定一個button,如下:
Private Sub Command1_Click()
Call nex
End Sub
卻可以將傳回資料顯示在grid裡,但不想用手動來新增資料.
不知程式哪裡錯了????
Dim strdata As String
Dim n1 As String
tcpServer(1).getdata strdata
n1 = Mid(strdata, 1, 1)
Select Case n1
Case "a"
txtname.Caption = Mid(strdata, 2)
Call nex
Case "b"
txtip.Caption = Mid(strdata, 2)
Case "c"
txttotal.Text = Mid(strdata, 2)
End Select
End Sub
Sub nex()
rs.AddNew "username", txtname.Caption
End Sub
卻出現 沒有設定物件變數或with區塊變數的錯誤訊息(err91)
但若設定一個button,如下:
Private Sub Command1_Click()
Call nex
End Sub
卻可以將傳回資料顯示在grid裡,但不想用手動來新增資料.
不知程式哪裡錯了????
對不起! SQL 插一腳,(編號：7299)
我兩台 SQL Server 要跨 INTERNET 連線, 但失敗.
出現下列訊息:
Login failed for user "(Null)". Reason:
Not associated with a trusted SQL Server connection.
請教高手指教.
(P.S. 在intranet 是可以的)
出現下列訊息:
Login failed for user "(Null)". Reason:
Not associated with a trusted SQL Server connection.
請教高手指教.
(P.S. 在intranet 是可以的)
VB 變數問題?(編號：7298)
各位先進 :
想請教 VB 在處理整數與浮點數時的問題.
Dim A1, A2 As Integer
A1 = 2.5 + 1
A2= 2.5 + 2
為何 A1 得到 4 而 A2 也是 4
想請教 VB 在處理整數與浮點數時的問題.
Dim A1, A2 As Integer
A1 = 2.5 + 1
A2= 2.5 + 2
為何 A1 得到 4 而 A2 也是 4
二種方法速度有何差異(編號：7297)
下列二種摘錄自網路，請問method 1用block_size先行運算，method 2
則無，二種方法之間，速度有何差異？
Method 1:
Private Const BLOCK_SIZE = 10000
...
file_num = FreeFile
Open dlgPicture.FileName For Binary Access Read As #file_num
file_length = LOF(file_num)
If file_length ＞ 0 Then
num_blocks = file_length / BLOCK_SIZE
left_over = file_length Mod BLOCK_SIZE
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "Select Name, Picture, FileLength FROM People", m_DBConn
rs.AddNew
rs!Name = person_name
rs!FileLength = file_length
ReDim bytes(BLOCK_SIZE)
For block_num = 1 To num_blocks
Get #file_num, , bytes()
rs!Picture.AppendChunk bytes()
Next block_num
If left_over ＞ 0 Then
ReDim bytes(left_over)
Get #file_num, , bytes()
rs!Picture.AppendChunk bytes()
End If
rs.Update
Close #file_num
'
Method 2:
'read file contents to byte array
iFileNum = FreeFile
Open sTempFile For Binary Access Read As #iFileNum
lFileLength = LOF(iFileNum)
ReDim abBytes(lFileLength)
Get #iFileNum, , abBytes()
'put byte array contents into db field
rs.Fields(FieldName).AppendChunk abBytes()
Close #iFileNum
則無，二種方法之間，速度有何差異？
Method 1:
Private Const BLOCK_SIZE = 10000
...
file_num = FreeFile
Open dlgPicture.FileName For Binary Access Read As #file_num
file_length = LOF(file_num)
If file_length ＞ 0 Then
num_blocks = file_length / BLOCK_SIZE
left_over = file_length Mod BLOCK_SIZE
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "Select Name, Picture, FileLength FROM People", m_DBConn
rs.AddNew
rs!Name = person_name
rs!FileLength = file_length
ReDim bytes(BLOCK_SIZE)
For block_num = 1 To num_blocks
Get #file_num, , bytes()
rs!Picture.AppendChunk bytes()
Next block_num
If left_over ＞ 0 Then
ReDim bytes(left_over)
Get #file_num, , bytes()
rs!Picture.AppendChunk bytes()
End If
rs.Update
Close #file_num
'
Method 2:
'read file contents to byte array
iFileNum = FreeFile
Open sTempFile For Binary Access Read As #iFileNum
lFileLength = LOF(iFileNum)
ReDim abBytes(lFileLength)
Get #iFileNum, , abBytes()
'put byte array contents into db field
rs.Fields(FieldName).AppendChunk abBytes()
Close #iFileNum
Form的問題(編號：7295)
哈囉！各位大家好，
我現在有些Form上的問題，希望各位高手可以幫我解決一下....
因為我現在想要使Form7可以重覆的出現....
所以有段程式碼是這樣：
Dim Porder_NPage As Form7
Set Porder_NPage = New Form7
Porder_NPage.Caption = "新訂購單"
Porder_NPage.Show
這樣每執行到這一段程式，就會有一個新的Form7出現....
可是現在遇到一個問題，在Form7內我又叫用了另一個Form9
我在Form9內想更動Form7內物件的值....
ex. Form7.Enabled=true
可是完全沒有任何的作用....
是因為我不能這樣使用Form嗎？還是有什麼其他的原因？
請各位能幫我一下囉....感激不盡
我現在有些Form上的問題，希望各位高手可以幫我解決一下....
因為我現在想要使Form7可以重覆的出現....
所以有段程式碼是這樣：
Dim Porder_NPage As Form7
Set Porder_NPage = New Form7
Porder_NPage.Caption = "新訂購單"
Porder_NPage.Show
這樣每執行到這一段程式，就會有一個新的Form7出現....
可是現在遇到一個問題，在Form7內我又叫用了另一個Form9
我在Form9內想更動Form7內物件的值....
ex. Form7.Enabled=true
可是完全沒有任何的作用....
是因為我不能這樣使用Form嗎？還是有什麼其他的原因？
請各位能幫我一下囉....感激不盡
help me(編號：7294)
本人用vb與crystal與apex相關元件寫成的專案程式，用vb的虛擬碼編成的exe可以用的很順利，但反之用機器碼就會造成有的程式無法使用，請問諸位高手能告訴我個中原因與解決方案嗎?
資料更新的疑問(編號：7292)
我有一個VB程式，要在Server和Client端執行，而功能有新、刪、查、改，現在~~~~問題來囉，在我執行過查詢後，再進行新、刪、改等功能，但是顯示出來的資料都是之前查詢過未經變更的資料，可是我的SQL資料庫已經變更過了！
不知有何指令可以讓我查詢過的資料，經過新、刪、改等功能後，能夠在下次查詢時，顯示更新過後的資料！
不知有何指令可以讓我查詢過的資料，經過新、刪、改等功能後，能夠在下次查詢時，顯示更新過後的資料！
VB可不可以運用pointer?(編號：7291)
本人正在寫一個VB program但要運用其他DLL的function, 但這些function要pass一些pointer或return pointer, 但正因本人是VB新手, 對VB毫無認識, 懇請各位高人指點, 多謝.
請問一下crystal report問題(編號：7290)
請問我想要在browser上瀏灠crystal report產生的報表, 但不知是否
在crystal report 7 or 8 有支援, 或在何處可以查詢到相關的資料
在crystal report 7 or 8 有支援, 或在何處可以查詢到相關的資料
在NT Workstation下,要如何控制讀取與輸出RS-232資料....(編號：7288)
請問各位大大......
小弟寫了一支利用RS-232與機台連線讀取資料的程式,於98環境下可執行,但換至NT下就無法使用,請問是啥問題呢????.......
謝謝..........
小弟寫了一支利用RS-232與機台連線讀取資料的程式,於98環境下可執行,但換至NT下就無法使用,請問是啥問題呢????.......
謝謝..........
怎樣的專案才需使用COM,DCOM,COM+MTS等技術??(編號：7287)
我看過幾家自行使用VB開發ERP系統的公司,幾乎都處在DOS轉WIN系統的階段而已,程式頂多是用用ADO而已,似乎都沒有用COM,DCOM,COM+,MTS等技術!
請教各位先進:
什麼樣的專案才需使用COM,DCOM,COM+,MTS等技術??
什麼樣的專案一定要用MTS???
請教各位先進:
什麼樣的專案才需使用COM,DCOM,COM+,MTS等技術??
什麼樣的專案一定要用MTS???
如何比對兩個RECORDSET??(編號：7286)
如何比對兩個RECORDSET,然後將有不同值的那一個ROW傳回
A:(原始)
1 陳昇 1000
2 王傑 2500
B:(變更)
1 陳昇 1500
2 王傑 2500
3 王菲 1200
比對結果傳回
C:
1 陳昇 1500
3 王菲 1200
請教各位高手如何作!!
A:(原始)
1 陳昇 1000
2 王傑 2500
B:(變更)
1 陳昇 1500
2 王傑 2500
3 王菲 1200
比對結果傳回
C:
1 陳昇 1500
3 王菲 1200
請教各位高手如何作!!
遇到棘手的問題(編號：7285)
我想請問大家一個問題：就是最近我裝了vb6.0專業版後，我電腦中所有的圖檔皆變成了副檔名為vbs的vb script檔案，為什麼會這樣？
有沒有方法可以救回已變成vb script的檔案，至少教教我如何讓我最抓的圖檔不要一直變成vb script。
ps.改副檔名，我試過了，但不能開。
有沒有方法可以救回已變成vb script的檔案，至少教教我如何讓我最抓的圖檔不要一直變成vb script。
ps.改副檔名，我試過了，但不能開。
VB與RS232連結(編號：7282)
請問一下，VB如何與RS232做連結，
我現在要連接一隻RS232的Barcode Reader
並且將掃出來的結果帶至自己開發的系統中，
有哪些方法可解決，又如何解決，謝謝!!
我現在要連接一隻RS232的Barcode Reader
並且將掃出來的結果帶至自己開發的系統中，
有哪些方法可解決，又如何解決，謝謝!!
textbox ??(編號：7281)
如何取得textbox內輸入的字串,
然後把那些字串轉成數值自動加
以計算.如:使用者在textbox內輸
入5+4-3,然後我們取得5+4-3的字
串後,是否有辦法直接把它轉換成
數值,讓電腦自動運算輸出呢?
然後把那些字串轉成數值自動加
以計算.如:使用者在textbox內輸
入5+4-3,然後我們取得5+4-3的字
串後,是否有辦法直接把它轉換成
數值,讓電腦自動運算輸出呢?
救我(編號：7279)
Hi大家你好:
我有一個問題，請幫我檢查下面這個程式可能有誤，
因為我每次變更a、b、c數質後，會有些數質不能顯
示出來，請大家幫我檢查一下。VB6.0----製作
Private Sub 練習_Click()
a = 5
b = 2
c = 6
If a ＞ b Then
If b ＞ c Then
Print a, b, c
Else
End If
Else
If a ＞ c Then
Print a, b, c
Else
End If
If b ＞ a Then
Print b, a, c
Else
End If
If b ＞ c Then
Print b, c, a
Else
End If
If c ＞ a Then
Print c, a, b
Else
End If
If c ＞ b Then
Print c, b, a
Else
End If
End If
End Sub
我有一個問題，請幫我檢查下面這個程式可能有誤，
因為我每次變更a、b、c數質後，會有些數質不能顯
示出來，請大家幫我檢查一下。VB6.0----製作
Private Sub 練習_Click()
a = 5
b = 2
c = 6
If a ＞ b Then
If b ＞ c Then
Print a, b, c
Else
End If
Else
If a ＞ c Then
Print a, b, c
Else
End If
If b ＞ a Then
Print b, a, c
Else
End If
If b ＞ c Then
Print b, c, a
Else
End If
If c ＞ a Then
Print c, a, b
Else
End If
If c ＞ b Then
Print c, b, a
Else
End If
End If
End Sub
如何撥放DAT視訊檔(編號：7277)
在win95中可用一般撥放多媒體檔方式撥放,但是在win98之後的版本
windows的多媒體撥放程式改為Media Player似乎就不能用一般撥放
多媒體檔的方法去撥放,除非安裝Xing的軟體.....關於這個問題該如何解決呢??????
windows的多媒體撥放程式改為Media Player似乎就不能用一般撥放
多媒體檔的方法去撥放,除非安裝Xing的軟體.....關於這個問題該如何解決呢??????
如何可以只寫一個event 而給所有control 皆能trigger?(編號：7276)
各位先進, 請問如果我有一 form1
而form1 內有 20 個 textbox : text1, text2 ..... text20
而每個control 都會有一段相同的code 處理 change 的 event
但不想寫 20 個 Private sub text1_change ( ) , Private sub text2_change ......
請間有沒有辦法可以只寫一個change event 去處理全部textbox 所raise 的event?
而form1 內有 20 個 textbox : text1, text2 ..... text20
而每個control 都會有一段相同的code 處理 change 的 event
但不想寫 20 個 Private sub text1_change ( ) , Private sub text2_change ......
請間有沒有辦法可以只寫一個change event 去處理全部textbox 所raise 的event?
事件引發的問題...(編號：7273)
如果今天有個Function...如下 :
Function Nexta() As Boolean
Dim Tmr
Tmr = Timer
Do While Timer - Tmr ＜ 60
DoEvents
Loop
Nexta = True
End Function
當有一事件的述途如下 :
Private Sub Timer1_Timer()
If Nexta Then Exit Sub
End Sub
如果Timer1.Interval = 300
那會不會一直引發Nexta呢,且Nexta裡的東東會"同時"執行嗎 ?
by Peter ^_^
Function Nexta() As Boolean
Dim Tmr
Tmr = Timer
Do While Timer - Tmr ＜ 60
DoEvents
Loop
Nexta = True
End Function
當有一事件的述途如下 :
Private Sub Timer1_Timer()
If Nexta Then Exit Sub
End Sub
如果Timer1.Interval = 300
那會不會一直引發Nexta呢,且Nexta裡的東東會"同時"執行嗎 ?
by Peter ^_^
讓 UserControl 在 Design Mode 時不能移動(編號：7272)
如題.
原先是用 Subclassing 來做, 抓 WM_SIZE, WM_MOVE 這兩個訊息, 但總是有些破綻.
不知有沒有更好的做法?
原先是用 Subclassing 來做, 抓 WM_SIZE, WM_MOVE 這兩個訊息, 但總是有些破綻.
不知有沒有更好的做法?
如何將vb表單資料輸出至excel的工作表儲存格中.....急急(編號：7271)
如何將vb表單資料輸出至excel的工作表儲存格中,且依序逐筆逐欄逐列的輸出到工作表中(筆數是未知數喔...user輸入多少就輸出多少)
SQL語法請教(編號：7270)
我有兩個Table分別為Table1,Table2,互相為一對一的關聯.而今天想將每一筆資料錄的Table1.Field1中的值複製到Table2.Field1
想請問除了用迴圈外,可有方式可用SQL語法完成的.謝謝
想請問除了用迴圈外,可有方式可用SQL語法完成的.謝謝
如何在程式中設定DataGrid的每一columns的”格式”(編號：7269)
如何在程式中設定DataGrid的每一columns的”格式”
DataGrid1.columns(1).Dataformat=???
DataGrid1.columns(1).Dataformat=???
請問各位大大有沒有人使用FxTools Gold 5.0(編號：7268)
我有一個問題在使用FxImage 做透明及動態的動作時,圖案會閃動
請問如何避免這個問題
我是如此寫的可以幫我看看嗎??
我只要把圖片透明的功能打開就會開始閃動....請問有辦法解決嗎??
Private Sub Timer1_Timer()
imgCounter = imgCounter + 1
If imgCounter ＞ 5 Then imgCounter = 1
FName$ = MediaDir() & "PIC" & imgCounter & ".BMP"
FXImage1.Picture = LoadPicture(FName$)
End Sub
Private Sub Form_Load()
FXImage5.ZOrder 0
FXImage5.Visible = False
FXImage5.Picture = LoadPicture(MediaDir() & "PIC" & ".BMP")
End Sub
請問如何避免這個問題
我是如此寫的可以幫我看看嗎??
我只要把圖片透明的功能打開就會開始閃動....請問有辦法解決嗎??
Private Sub Timer1_Timer()
imgCounter = imgCounter + 1
If imgCounter ＞ 5 Then imgCounter = 1
FName$ = MediaDir() & "PIC" & imgCounter & ".BMP"
FXImage1.Picture = LoadPicture(FName$)
End Sub
Private Sub Form_Load()
FXImage5.ZOrder 0
FXImage5.Visible = False
FXImage5.Picture = LoadPicture(MediaDir() & "PIC" & ".BMP")
End Sub
CancelUpdate 之問題(編號：7262)
當我在textbox內更改資料,然後按CancelUpdate 鈕時,資料卻寫進資料庫內, 請問有何辦法當user 輸入 or 更改資料後,按 adodc1.recordset.cancelupdate 鈕會恢復原來之值.
Crystal Report在Initialize事件中,可否指定一字串給Formula Fie(編號：7259)
因為我有些Formula Fields的Suppress的屬性是需要用程式指定的..而指定的方法為筆對是否等於某一字串..
但在Formula Field中的Suppress屬性裡撰寫這個條件式的地方只能用DataBase.Field 來比對...沒有辦法用TextObject..
所以想請教各位要如何解決..謝謝
但在Formula Field中的Suppress屬性裡撰寫這個條件式的地方只能用DataBase.Field 來比對...沒有辦法用TextObject..
所以想請教各位要如何解決..謝謝
如何清空所有 TextBox?(編號：7257)
表單上有n個textbox，而且每個textbox命名不是使用陣列
請問如何得知表單上有幾個textbox?如何一次清空?
(textbox將當做control看待)
請問如何得知表單上有幾個textbox?如何一次清空?
(textbox將當做control看待)
可否有辦法得知一個變數其某些位元的數值(編號：7255)
小弟想請問一下，vb是否有類似如c可宣告一struct，來得知你所需得知其中某些位元的數值
這是c的寫法
struct bits{
unsigned fourbits :4
unsigned threebits :3
unsigned onebits :1
unsigned eightbits :8
}
這是c的寫法
struct bits{
unsigned fourbits :4
unsigned threebits :3
unsigned onebits :1
unsigned eightbits :8
}
update的問題(編號：7254)
請問一下，我是初學者，我的程式在同一form上開啟５個檔案同時存取資料，但其中有兩個檔案，新增時可寫進資料，但更新時textbox上的資料卻寫不進檔案中，為什麼？我用access97,vb6.0....
當透過data控制項存取access資料庫(編號：7253)
一.是否可以透過commondialog開啟資料庫,再把databasename設為filename 二.如果有更改資料庫的資料,應如何做才能儲存更改過的資料庫且保留住原先的資料庫,麻煩各位高手解答.
將sql command傳入Recordset.Open之後，出現型態不合訊息!!!(編號：7252)
當我將一個sql command傳入一個Recordset.open之後，發生型態不合的錯誤訊息，好像是Recordset物件無法辨別這個字串；之前在英文NT Station4.0發生，以為是中文NT製作的程式在英文NT無法正常操作，但是又在三台的中文NT也出現這個錯誤，這些NT只更新到Service Pack4.0
之前請微軟的人查過了，他們比對完版本後也查不出個所以然來，請各位指點迷津，謝謝
之前請微軟的人查過了，他們比對完版本後也查不出個所以然來，請各位指點迷津，謝謝
DataCombo 選取代碼的應用(編號：7250)
小弟我有一個問題想要請教各位先進：
我有一個代碼檔的欄位為 部門代碼 及 部門名稱，我想要的功
能是，當下拉選擇時，會出現部門名稱，而寫入資料庫的是部門代碼
，亦可以直接鍵入部門代碼，而不下拉選擇．．
我有佈置兩個 Adodc 的物件，一個是顯示代碼檔，一個是顯示
目前所用的基本檔．．
當我佈置完，屬性建立好時，功能是正常的，但是我如果用程式
碼來指定時，功能卻不正常了，下拉一樣會顯示，但是卻無法寫入代
碼檔至資料庫中，有誰能幫我解決此一問題的？
我有一個代碼檔的欄位為 部門代碼 及 部門名稱，我想要的功
能是，當下拉選擇時，會出現部門名稱，而寫入資料庫的是部門代碼
，亦可以直接鍵入部門代碼，而不下拉選擇．．
我有佈置兩個 Adodc 的物件，一個是顯示代碼檔，一個是顯示
目前所用的基本檔．．
當我佈置完，屬性建立好時，功能是正常的，但是我如果用程式
碼來指定時，功能卻不正常了，下拉一樣會顯示，但是卻無法寫入代
碼檔至資料庫中，有誰能幫我解決此一問題的？
關於WebBrowser(編號：7248)
有 Form1, Form2, Form1, 有 Labe11, Label2；
Form2, 有 WebBrower1
我想在 Form 1 上dblClick Label 1, Form 2 之WebBrower 1, 即顯示 Test1.Gif 動畫；在 Form 1 上dblClick Label 2, Form 2 之WebBrower 1, 即顯示 Test2.Gif 動畫, 可能嗎?
我在Form1中這樣寫：
Private Sub Label1_DblClick()
Unload Me
Load Form2
Form2.Show 1
Form2.WebBrowser1.Navigate "e:\Test1.gif"
End Sub
Private Sub Label2_DblClick()
Unload Me
Load Form2
Form2.Show 1
Form2.WebBrowser1.Navigate "e:\Test2.gif"
End Sub
可是不行。這是觀念上的錯誤，還是語法上的錯誤，還是…#@*狗屁不通，嘻嘻…
我在網上看到的gif動畫顯示方法後，才有此一想，可否請各位指教!
人家是這樣寫的：
Private Sub Form_Load()
webBrowser1.Navigate App.Path & "Test.gif"
End Sub
一定要在 Form_Load 中才行嗎?
Form2, 有 WebBrower1
我想在 Form 1 上dblClick Label 1, Form 2 之WebBrower 1, 即顯示 Test1.Gif 動畫；在 Form 1 上dblClick Label 2, Form 2 之WebBrower 1, 即顯示 Test2.Gif 動畫, 可能嗎?
我在Form1中這樣寫：
Private Sub Label1_DblClick()
Unload Me
Load Form2
Form2.Show 1
Form2.WebBrowser1.Navigate "e:\Test1.gif"
End Sub
Private Sub Label2_DblClick()
Unload Me
Load Form2
Form2.Show 1
Form2.WebBrowser1.Navigate "e:\Test2.gif"
End Sub
可是不行。這是觀念上的錯誤，還是語法上的錯誤，還是…#@*狗屁不通，嘻嘻…
我在網上看到的gif動畫顯示方法後，才有此一想，可否請各位指教!
人家是這樣寫的：
Private Sub Form_Load()
webBrowser1.Navigate App.Path & "Test.gif"
End Sub
一定要在 Form_Load 中才行嗎?
sql 中的子查詢問題(編號：7247)
為何我在select 中的欄位插入一個select的子查詢
會出現“這個子查詢最多只能傳回一個記錄“
事先我都有針對子查詢跑過一遍無誤
究竟在做子查詢時
大概是忽略了那些地方才會出現此錯誤訊息…
會出現“這個子查詢最多只能傳回一個記錄“
事先我都有針對子查詢跑過一遍無誤
究竟在做子查詢時
大概是忽略了那些地方才會出現此錯誤訊息…
Menu 中的 Icon (阿諦又來了^$#!)(編號：7246)
用 API 函數 "SetMenuItemBitmaps"
可以讓 Menu 的左方有一個小 Bitmap, 而右方仍是文字
而當滑鼠移進 Menu 的時候右方的文字會反白
可是那個小 Bitmap 卻也跟著變成反像了.......
我不期望它像 MS Word 中的 Menu 那樣圖示可以像 Toolbar 般浮起
可是至少能維持原來的色彩, 不要變成反像
要如何才能真正作到類似 MS Word 中的 Menu 那樣呢??
VB 到底作不作得到???
可以讓 Menu 的左方有一個小 Bitmap, 而右方仍是文字
而當滑鼠移進 Menu 的時候右方的文字會反白
可是那個小 Bitmap 卻也跟著變成反像了.......
我不期望它像 MS Word 中的 Menu 那樣圖示可以像 Toolbar 般浮起
可是至少能維持原來的色彩, 不要變成反像
要如何才能真正作到類似 MS Word 中的 Menu 那樣呢??
VB 到底作不作得到???
不好意思,剛剛要順便問的,忘了$%#^!(編號：7245)
有很多軟體都有這個對話方塊(請參考下列網址)
http://www.taconet.com.tw/judyhu/dialog.jpg
VB 有這樣的物件嗎?
若沒有,
有什麼辦法讓CommonDialog.ShowSave功能僅傳回使用者選的"目錄路徑",而不是"檔案路徑"
並且讓使用者在選擇的時候只能選"目錄",不能選"檔案"
http://www.taconet.com.tw/judyhu/dialog.jpg
VB 有這樣的物件嗎?
若沒有,
有什麼辦法讓CommonDialog.ShowSave功能僅傳回使用者選的"目錄路徑",而不是"檔案路徑"
並且讓使用者在選擇的時候只能選"目錄",不能選"檔案"
Object型態變數(編號：7244)
用 For Each .... 迴圈可以在 Form 中逐一判斷物件類別,如:
Dim oMO As Object
For Each oMO In Form1.Controls
If TypeOf oMO Is CommandButton Then
oMO.Enabled = ...
....
....
End If
Next
但是,我要在 MDIForm 中逐一判斷尋找 Form 要如何做呢?
以下是我想到的,可是不行
Dim oMO As Object
For Each oMO In MDIForm1.Controls
If TypeOf oMO Is Form Then
oMO.Enabled = ...
....
....
End If
Next
Dim oMO As Object
For Each oMO In Form1.Controls
If TypeOf oMO Is CommandButton Then
oMO.Enabled = ...
....
....
End If
Next
但是,我要在 MDIForm 中逐一判斷尋找 Form 要如何做呢?
以下是我想到的,可是不行
Dim oMO As Object
For Each oMO In MDIForm1.Controls
If TypeOf oMO Is Form Then
oMO.Enabled = ...
....
....
End If
Next
變數排印錯誤有方法解決嗎????(編號：7243)
假如我有一個程式是
Private Sub Form_click()
sum=0
a=5
b=3
sim=5+3
print sum
end sub
而這時候我去執行時答案是0，那我有辦法去更改什麼東西，使正確的答案出來嗎???
Private Sub Form_click()
sum=0
a=5
b=3
sim=5+3
print sum
end sub
而這時候我去執行時答案是0，那我有辦法去更改什麼東西，使正確的答案出來嗎???
遠端存取(編號：7242)
我想用vb寫一個前端程式,它能與後端Access的資料庫作連結.使用ADO物件.
那我的connectionstring該如何下指令呢??假設server的ip是192.168.0.1,資料庫檔為test.mdb.
搞不太清楚是否要先以winsock作連線,才能作連接資料庫.煩請回答...
那我的connectionstring該如何下指令呢??假設server的ip是192.168.0.1,資料庫檔為test.mdb.
搞不太清楚是否要先以winsock作連線,才能作連接資料庫.煩請回答...
何利用Winsock來監測某條線路上的流量(編號：7241)
請問一下如何利用Winsock來監測某條線路上的流量
他是用Hub或Switch來運作的
能擷取封包並分析各個Protocol的流量
希望高手多幫忙
謝謝!!!
他是用Hub或Switch來運作的
能擷取封包並分析各個Protocol的流量
希望高手多幫忙
謝謝!!!
我用vb寫的webserver不能秀出圖檔???(編號：7239)
我用vb寫了一個 Pesonal WebServer ,他能讓瀏覽器讀出HTML文件可是當HTML裡有連結到圖檔時卻秀不出來,我查過了,絕對不是路經問題而且圖檔在程式內也讀得完整,可是就是秀不出圖檔懇請各位幫忙..
Dim tempData as Byte
Open "檔案路徑" For Binary As #1
For i = 1 To LOF(1)
Get #1, , tempData
strData = strData + Chr(tempData)
Next i
Winsock1(Total).SendData strData & vbCrLf
Dim tempData as Byte
Open "檔案路徑" For Binary As #1
For i = 1 To LOF(1)
Get #1, , tempData
strData = strData + Chr(tempData)
Next i
Winsock1(Total).SendData strData & vbCrLf
去掉階層式grid及command間的關聯??????????(編號：7238)
請問一下
我用Ms的階層式grid連command
但我想在資料顯示後便把關聯去掉
我嘗試用
set Hgrid.datasource=nothing
但都無效
幫幫忙請指教
我用Ms的階層式grid連command
但我想在資料顯示後便把關聯去掉
我嘗試用
set Hgrid.datasource=nothing
但都無效
幫幫忙請指教
如何寫DHtml和ActiveX(編號：7237)
what is dhtml??
ocx file 和有何用, 如何用?
用vb compile 時會一個html file
不過我不知道怎樣apply到html上...
還有如果我想當我load一個 activex control 時,我想有一些input..
eg. 當我用同一個activex form時,不同窆input會有不同的output...
ocx file 和有何用, 如何用?
用vb compile 時會一個html file
不過我不知道怎樣apply到html上...
還有如果我想當我load一個 activex control 時,我想有一些input..
eg. 當我用同一個activex form時,不同窆input會有不同的output...
日期轉換....?(編號：7236)
請問各位先進:
可有遇過這樣問題..?
format(Date,"ee/MM/dd")
日期轉換成 2000/10/29 ,而不是 89/10/29
請告訢小弟如何解決.....!
ps.1.國別設定己改為中華民國曆
2.之前程式不會發生這樣問題..
謝謝..
可有遇過這樣問題..?
format(Date,"ee/MM/dd")
日期轉換成 2000/10/29 ,而不是 89/10/29
請告訢小弟如何解決.....!
ps.1.國別設定己改為中華民國曆
2.之前程式不會發生這樣問題..
謝謝..
Sql的問題(編號：7235)
請教各位高手:
我使用 select * from Stock WHERE 日期 Between #2000/09/29# And #2000/10/30#可以找出上述的日期
可是我想用二個Textbox來找出日期，可是卻錯誤，請高手指教錯在那裏?
我的語法:
select * from Stock WHERE 日期 Between = #" & Text1.Text & "#" and "#" & Text2.text & "#"
先在此謝謝!
我使用 select * from Stock WHERE 日期 Between #2000/09/29# And #2000/10/30#可以找出上述的日期
可是我想用二個Textbox來找出日期，可是卻錯誤，請高手指教錯在那裏?
我的語法:
select * from Stock WHERE 日期 Between = #" & Text1.Text & "#" and "#" & Text2.text & "#"
先在此謝謝!
如何用vb做game?(編號：7233)
我是個大學新生,我有一堂課是vb程式設計,但才教沒多久就要我們寫
出向雷電一樣的game,當作期中考成績,我根本是一頭霧水,希望各位前輩幫幫忙,教我如何做,或介紹相關書籍or網頁,十分感激 !!
出向雷電一樣的game,當作期中考成績,我根本是一頭霧水,希望各位前輩幫幫忙,教我如何做,或介紹相關書籍or網頁,十分感激 !!
format函數的運用及迴圈~~~(編號：7232)
我用format來定義~~月(1-12)和日(1-31)~~但輸入數字不諭入多少都不會出錯~~不知是不是我語法用錯了~還是~~
還有就是在判斷時我用if then不過會出錯~~我的程式如下~~可否幫我看看是否那出錯了~~tks~~各位麻煩囉~~幫幫我囉~~~
Format (txt_month = " m")
Format (txt_day = "d")
If txt_month = 1 And txt_day ＞= 19 Then
a = "魔羯座"
If txt_month = 1 And txt_day ＜ 19 Then
a = "水瓶座"
If txt_month = 2 And txt_day ＞= 20 Then
a = "水瓶座"
If txt_month = 2 And txt_day ＜ 20 Then
a = "雙魚座"
End If
End If
End If
End If
.
.
.
還有就是在判斷時我用if then不過會出錯~~我的程式如下~~可否幫我看看是否那出錯了~~tks~~各位麻煩囉~~幫幫我囉~~~
Format (txt_month = " m")
Format (txt_day = "d")
If txt_month = 1 And txt_day ＞= 19 Then
a = "魔羯座"
If txt_month = 1 And txt_day ＜ 19 Then
a = "水瓶座"
If txt_month = 2 And txt_day ＞= 20 Then
a = "水瓶座"
If txt_month = 2 And txt_day ＜ 20 Then
a = "雙魚座"
End If
End If
End If
End If
.
.
.
請問一下vb中的levels of variable 是什麼????(編號：7231)
請問一下，這在vb中的變數是什麼變數呀????而其實我要的原文是這樣，Describe and draw the four levels of variable coverage with examples.可是我不知道這在vb中，是屬於哪個範圍，所以想請問一下下，謝謝~~~
Win98SE+SQL Server7.0 S2+MDAC2.6 = 掛了????(編號：7230)
我用Win98SE+SQL Server7.0 S2 後來安裝MDAC2.6後SQL Server就掛了??
請教各位先進是否有解??
請教各位先進是否有解??
如何用API偵測某多媒體裝置被使用中....?(編號：7226)
我想在程式中加入播放CD音效及MIDI功能,
但不想引用mci32.ocx,
請問有沒有什麼方法可以用API知道CD或MIDI的裝置已被別的程式使用了?
謝謝.....
但不想引用mci32.ocx,
請問有沒有什麼方法可以用API知道CD或MIDI的裝置已被別的程式使用了?
謝謝.....
Windows98 Windows95(編號：7224)
請教各位高手,原本在Windows95+VB5.0開發的程式,安裝於95執行
皆沒問題,但安裝至98作業系統時,會出現user.exe錯誤,
是否使用了非32位元的控制項所造成?
皆沒問題,但安裝至98作業系統時,會出現user.exe錯誤,
是否使用了非32位元的控制項所造成?
如何利用winsock來監測流量?(編號：7222)
請問一下如何利用Winsock來監測某條線路上的流量
他是用Hub或Switch來運作的
能擷取封包並分析各個Protocol的流量
希望各位高手多幫忙
他是用Hub或Switch來運作的
能擷取封包並分析各個Protocol的流量
希望各位高手多幫忙
about scalemode(編號：7221)
Who can tell me the difference between width and scalewidth,height and scaleheight......,give me an example? thank you!
IIS Application(WebClass) 是不是不能用啊?(編號：7217)
寫了一大堆 IIS Application(WebClass) 程式於VB上Run 都沒問題, 根本無法用封裝部署,部署於Web站台,只能使用Setup後,於IIS 中也根本無法啟動,遍尋資料Microsoft資料,寫一大堆文件,照文件做,還是無法啟動,
IIS Application(WebClass) 是不是不能用啊?
IIS Application(WebClass) 是不是不能用啊?
嗚~我的資料被ADO吃掉了(編號：7216)
用Access 2000製作的資料庫
用ADO控制項直接設定連結，在Grid顯示是沒問題，
但如果改以程式碼的方式：
Adoc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\DB.mdb;"
& "Persist Security Info=False"
Adoc.CommandType = adCmdText
Adoc.RecordSource = "Select * From 服務員資料"
Adoc.Refresh
Grid的第一個欄位的資料就不見了!!(屢試不爽)
有辦法解決嗎？
PS.若資料庫改用Access 97的格式就沒問題。
用ADO控制項直接設定連結，在Grid顯示是沒問題，
但如果改以程式碼的方式：
Adoc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\DB.mdb;"
& "Persist Security Info=False"
Adoc.CommandType = adCmdText
Adoc.RecordSource = "Select * From 服務員資料"
Adoc.Refresh
Grid的第一個欄位的資料就不見了!!(屢試不爽)
有辦法解決嗎？
PS.若資料庫改用Access 97的格式就沒問題。
請問怎樣才可以由user pass value 入DataReport 出range report?(編號：7215)
請問怎樣才可以由user pass value 入 DataReport 來出range report?? (VB6)
Thx~!
Thx~!
請問:不用Timer 如何監看資料夾?(編號：7209)
已知相關API
FindFirstChangeNotification
WaitForSingleObject
FindNextChangeNotification
但不知如何用?
FindFirstChangeNotification
WaitForSingleObject
FindNextChangeNotification
但不知如何用?
3D 圖像Rotate 問題(編號：7208)
請問大家知不知道Visual Basic 6.0
有沒有3D 圖像Rotate的function 呢?
例子可到http://jas.eng.buffalo.edu/education/solid/unitCell/home.html 看看.
若有請告知...謝
若沒有...是否要自已寫一個sub function 呢?
有沒有3D 圖像Rotate的function 呢?
例子可到http://jas.eng.buffalo.edu/education/solid/unitCell/home.html 看看.
若有請告知...謝
若沒有...是否要自已寫一個sub function 呢?
Oracle Connect!(編號：7207)
Oracle Enterprise Manager Connect to Oracle Database
Oracle R8.1.5 & OEM v2.0.4
When Open the OEM Connect to Database....Have the Error Message.
"TNS Name Can't reslove"
Oracle R8.1.5 & OEM v2.0.4
When Open the OEM Connect to Database....Have the Error Message.
"TNS Name Can't reslove"
用SQL刪除資料時發生錯誤(編號：7206)
VB6 + SP4 + Access2000 使用ADO控制項
Dim MySQL As String
MySQL = "delete From TableA"
AdoFood.RecordSource = MySQL
AdoFood.Refresh
執行後，顯示"當物件關閉時，不允許操作。"
"執行階段錯誤'3704'，應用程式或物件定義上的錯誤"
可是打開資料表看，資料已刪除啦。
為何會這樣？？ 快昏頭了~~~~
Dim MySQL As String
MySQL = "delete From TableA"
AdoFood.RecordSource = MySQL
AdoFood.Refresh
執行後，顯示"當物件關閉時，不允許操作。"
"執行階段錯誤'3704'，應用程式或物件定義上的錯誤"
可是打開資料表看，資料已刪除啦。
為何會這樣？？ 快昏頭了~~~~
我有幾個問題想請教你們(急件), 謝謝(編號：7204)
1.我用一個form, 放置了textbox, 用了common dialog box的save as對話框把textbox文字儲存成*.TXT 檔案.請問可否用一個按鈕執行存檔, 但又不用顯示那個[儲存檔案]的對話框呢?(請列明vb碼)
2.請問可否在程式執行之後,windows自動把輸入法設成"倉頡", 即程式執行後只可用"倉頡"輸入法,在textbox上輸入文字呢?(請列明vb碼)
(我是用vb6.0, windows98)
謝謝各位幫忙! ^_^
2.請問可否在程式執行之後,windows自動把輸入法設成"倉頡", 即程式執行後只可用"倉頡"輸入法,在textbox上輸入文字呢?(請列明vb碼)
(我是用vb6.0, windows98)
謝謝各位幫忙! ^_^
小弟不才,問個ByRef的問題..(編號：7200)
Sub Swap(ByRef FirStr As String, ByRef SecStr As String)
TempStr = FirStr
FirStr = SecStr
SecStr = TempStr
End Sub
以上程式碼執行完竟然沒有做交換 ?
Call Swap(Me.Caption, Me.Tag)
by Peter ^_^
TempStr = FirStr
FirStr = SecStr
SecStr = TempStr
End Sub
以上程式碼執行完竟然沒有做交換 ?
Call Swap(Me.Caption, Me.Tag)
by Peter ^_^
有誰知道Microsoft的VB6.0線上說明網頁在哪？(編號：7198)
請問有人知道Microsoft的VB6.0線上說明網頁在哪裡嗎？要中文版的哦~~我只有找到英文版的希望有人能幫幫忙~~Thanks~~
關於 CRYSTAL REPORT...(編號：7197)
本人曾用其它 SQL 工具 SELECT 某 DATABASE 的一個 FIELD 時 (此 FIELDS 是 DATETIME FORMAT) 是完全沒有問題, 可以顯示到 1999-01-01-12:15:30.123456. 但當使用 CRYSTAL REPORT SELECT 時, 後面的 4 個位便被 TRUNCATE 了, 請問大家有方法可以解決到嗎????
本人使用的版本是 6.0, 我看過其它人所做出的 REPORT 是可以保留後面的 4 個位, 但是否使用這個版本便不知道了, 謝謝......
本人使用的版本是 6.0, 我看過其它人所做出的 REPORT 是可以保留後面的 4 個位, 但是否使用這個版本便不知道了, 謝謝......
請教SQL語法INSERT INTO(編號：7195)
今天我想將某個Table(TableA)的某些欄位加到另一個Table(TableB)
INSERT INTO TableB ( FieldA,FieldB )
SELECT TableA.FieldA,TableB.FieldB
FROM TableA
可是今天我想指定一個數值給TableB.FieldC.請問要怎麼下SQL語法
(這個數值是來自另一個TableC.FieldC,如果沒辦法的話那用變數也可以)請問該如何下SQL語法呢..!!
還是只能用迴圈加上
INSERT INTO table(field1,field2)
Value
或是上面那段多重記錄更新加上Update的語法,
可是這樣要分成兩次執行SQL,請問可否只下一段SQL就可以達到目的的呢.!?..謝謝
INSERT INTO TableB ( FieldA,FieldB )
SELECT TableA.FieldA,TableB.FieldB
FROM TableA
可是今天我想指定一個數值給TableB.FieldC.請問要怎麼下SQL語法
(這個數值是來自另一個TableC.FieldC,如果沒辦法的話那用變數也可以)請問該如何下SQL語法呢..!!
還是只能用迴圈加上
INSERT INTO table(field1,field2)
Value
或是上面那段多重記錄更新加上Update的語法,
可是這樣要分成兩次執行SQL,請問可否只下一段SQL就可以達到目的的呢.!?..謝謝
請問如何在DataGrid中的欄位顯示出checkbox??(編號：7192)
我想要從資料庫中取出資料後,由DataGrid的第一個欄位顯示出checkbox
以便我可以自由選擇想要的抹些筆資料...請問要如何做到????
以便我可以自由選擇想要的抹些筆資料...請問要如何做到????
如果處理大量資料.......如何出現等待時間！(編號：7189)
由於處理的時間過長.............
會讓使用者等很久的時！為了避免使用者會以為
當機.............
如何出現
loading.............
請稍後！
麻煩各位高手，若知道請告解！
會讓使用者等很久的時！為了避免使用者會以為
當機.............
如何出現
loading.............
請稍後！
麻煩各位高手，若知道請告解！
怎麼設定自訂紙張中的Length及Width(編號：7188)
有沒有辦法設定系統印表機
己試過的方法如下:
1.Printer.Width 及 Height 僅在vb中有效
2.DevMode.dmPaperWidth = NewPaperWidth
lpDevMode.dmFields = DM_PAPERWIDTH
僅會更動PaperSize=256但紙張大小還是沒變,
試了粉久..都試不出來..
拜託各位幫忙....謝謝
己試過的方法如下:
1.Printer.Width 及 Height 僅在vb中有效
2.DevMode.dmPaperWidth = NewPaperWidth
lpDevMode.dmFields = DM_PAPERWIDTH
僅會更動PaperSize=256但紙張大小還是沒變,
試了粉久..都試不出來..
拜託各位幫忙....謝謝
檔案存取(編號：7187)
請教 在Random模式裡 檔案存取是使用Get Put
如果 要刪除其中一筆資料錄該怎麼辦
是直接把空字元給它嗎..........如..... a.dat=""
"搞不清楚的人"求教
如果 要刪除其中一筆資料錄該怎麼辦
是直接把空字元給它嗎..........如..... a.dat=""
"搞不清楚的人"求教
製作 dll 動態連結的問題(編號：7186)
我有一程式是要寫成 dll 的方式供 vb 使用
在 vb5 環境下 compile 成 dll , 使用下沒問題
但在 vb6 環境下 compile 的, 程式去 call 的這個 dll
就會出現 MSVBVM60.DLL 的錯誤,請問這是怎樣的問題
要如何解決呢.
在 vb5 環境下 compile 成 dll , 使用下沒問題
但在 vb6 環境下 compile 的, 程式去 call 的這個 dll
就會出現 MSVBVM60.DLL 的錯誤,請問這是怎樣的問題
要如何解決呢.
用VB寫的Client/Server架構(VB連結SQL)如何使用SQL的系統時間?(編號：7184)
我用VB寫了一個打卡程式,但使用的時間卻是Client的時間,現在我想使用SQL SERVER的時間,請問應該如何寫?請各位高手幫忙!謝謝
為何安裝VB6.0一直無法成功(編號：7182)
電腦環境
windows 98 二版
IE 5.0
安裝vb 6.0換過很多台電腦且安裝無限次還是無法安裝成功,
完全沒有錯誤訊息,只出現vb6無法安裝成功的訊息
安裝logo 檔案追蹤最後幾行如下
返回
- RemoveAuxFile - 被呼叫
返回
- RemoveAuxFile - 被呼叫
返回
Microsoft 安裝程式記錄檔已關閉 10/27/00 12:21:52
windows 98 二版
IE 5.0
安裝vb 6.0換過很多台電腦且安裝無限次還是無法安裝成功,
完全沒有錯誤訊息,只出現vb6無法安裝成功的訊息
安裝logo 檔案追蹤最後幾行如下
返回
- RemoveAuxFile - 被呼叫
返回
- RemoveAuxFile - 被呼叫
返回
Microsoft 安裝程式記錄檔已關閉 10/27/00 12:21:52
請問各位高手，該如何作搜尋引擎???(編號：7180)
請問一下，我如何取得網路的搜詢引擎的位址。
例如:kimo 的搜尋引擎。
我想作的功能是，利用vb連上各大搜尋引擎，來查詢我想要的資料
如:同時連上kimo 和 yahoo 查到我想要的資料，現在我的困難是無法得到他們的位址，及語法。希望善心人士幫幫忙吧!!!
例如:kimo 的搜尋引擎。
我想作的功能是，利用vb連上各大搜尋引擎，來查詢我想要的資料
如:同時連上kimo 和 yahoo 查到我想要的資料，現在我的困難是無法得到他們的位址，及語法。希望善心人士幫幫忙吧!!!
VB初學者的問題(編號：7178)
在CLIPPER/VFP 下有巨集可用,VB如要達成如下效果,該如何作呢?
For i=1 To 10
j:= Trim(Str(i,2))
test&j:= Space(8)
Next
For i=1 To 10
j:= Trim(Str(i,2))
test&j:= Space(8)
Next
如何以預設的程式開啟檔案(編號：7175)
我想用預設的程式來開啟檔案，我用下面的指令
Shell("Start c:\ADDRESS.MDB")
可是卻出現 "執行階段錯誤53 找不到檔案"
要如何解決!! 請各位高手教教我吧!! 謝謝
Shell("Start c:\ADDRESS.MDB")
可是卻出現 "執行階段錯誤53 找不到檔案"
要如何解決!! 請各位高手教教我吧!! 謝謝
有關VB Excel cells一問.....(編號：7172)
請問在VB裡使用Excel物件時，使用Range(cells(1+n,2),cells(2+n,2))，當開啟表單第一次執行時沒有錯誤產生，但是關閉Excel以同一個表單再執行一次時，就會發生"＜'cells'方法＜'_Global'物件＞失敗"的訊習，為什麼？
有人知道嗎？Help Me!
有人知道嗎？Help Me!
在工作列右方的提示區中加入圖示,造成無法關機?(編號：7170)
請問在VBGuide紀兄處＜a href=http://www.vbguide.com.tw/qa.asp?vno=0249＞[個個擊破249]如何在工作列右方的提示區中加入圖示？＜/a＞Complier範例程式執行後,不結束該程式,在win9x中/開始/關機/關閉電腦or 重新啟動電腦--------＞結果螢幕閃了一下又回到"桌面"並不會關機
請教有方法可以解決嗎?
謝謝!
請教有方法可以解決嗎?
謝謝!
在 textbox 只能輸入數字，跟英文，加倒退鍵(編號：7169)
我是有找到輸入小寫變成大寫。
但想在加上數字，跟倒退鍵就有問題？
有人可以教我怎麼寫嗎？
在 textbox 只能輸入數字，跟英文，加倒退鍵
輸入英文，如果是小寫，還有轉成大寫。
但想在加上數字，跟倒退鍵就有問題？
有人可以教我怎麼寫嗎？
在 textbox 只能輸入數字，跟英文，加倒退鍵
輸入英文，如果是小寫，還有轉成大寫。
3D 圖像Rotate 問題(編號：7164)
請問大家知不知道Visual Basic 6.0
有沒有3D 圖像Rotate的function 呢?
例子可到http://jas.eng.buffalo.edu/education/solid/unitCell/home.html 看看.
若有請告知...謝
若沒有...是否要自已寫一個sub function 呢?
有沒有3D 圖像Rotate的function 呢?
例子可到http://jas.eng.buffalo.edu/education/solid/unitCell/home.html 看看.
若有請告知...謝
若沒有...是否要自已寫一個sub function 呢?
98/95下，控制列表機的開關(編號：7162)
在98/95下，我發現每當印表機動作時
是透過"main.cpl 列表機"這個指令來執行的..
我想做的東西是，類似開關的程式
每當有人在PC上要列印時，會跳出我的程式來
請他輸入姓名和密碼
列印完畢後，會在電腦中記錄他列印的張數
原先想法，是利用EXE合併軟體，將程式與MAIN.cpl合併
可是這個方法不能夠求出列印頁數..
是透過"main.cpl 列表機"這個指令來執行的..
我想做的東西是，類似開關的程式
每當有人在PC上要列印時，會跳出我的程式來
請他輸入姓名和密碼
列印完畢後，會在電腦中記錄他列印的張數
原先想法，是利用EXE合併軟體，將程式與MAIN.cpl合併
可是這個方法不能夠求出列印頁數..
這個程式執行無效, 即將關閉.(編號：7161)
大家好!
本人用VB6.0寫程式,使用MDI form及CoolBar, 開啟5或6個子form後,再逐一關閉, 即出現(這個程式執行無效, 即將關閉.)的訊息.請問是什麼原因造成的?
frank
本人用VB6.0寫程式,使用MDI form及CoolBar, 開啟5或6個子form後,再逐一關閉, 即出現(這個程式執行無效, 即將關閉.)的訊息.請問是什麼原因造成的?
frank
請問如何在IIS中,設定執行VB IIS 之active dll.(編號：7160)
vb之iis,經編譯後產生active dll,經封裝並安裝於NT中,於NT IIS 應如何設定,才可以執行asp,我試了很久還是不行,請問如何解決,謝謝!
Microsoft Proxy Server(編號：7159)
我在安裝了Microsoft Proxy Server後遇到以下問題,希望你能指教.
我在Client端已安裝了Proxy Client, 但Outlook 及Outlook express 始終未能收發Email. IE可正常上網.
Web Proxy 之 WWW Permissons 已設定為 Everyone Full Control
WinSock Proxy 之 Pop3, SMTP Permissons 己設定為 Everyone Access.
我在Client端已安裝了Proxy Client, 但Outlook 及Outlook express 始終未能收發Email. IE可正常上網.
Web Proxy 之 WWW Permissons 已設定為 Everyone Full Control
WinSock Proxy 之 Pop3, SMTP Permissons 己設定為 Everyone Access.
請教一問題(編號：7158)
Hi!! 各位先進,請問一下 , VISUAL BASIC 6.0 之開發環境
經由 MTS 中間層抓到之 recordset 如欲再 find 時 ,
如須用 二個欄位以上(複合鍵) , 應如何作
例 : rs.find "COMP_NO = '" & STR1 & "' and SHIP_NO = '" &
STR2 & "'" (無法如此作)
, 請不吝賜教 , Thanks!!
經由 MTS 中間層抓到之 recordset 如欲再 find 時 ,
如須用 二個欄位以上(複合鍵) , 應如何作
例 : rs.find "COMP_NO = '" & STR1 & "' and SHIP_NO = '" &
STR2 & "'" (無法如此作)
, 請不吝賜教 , Thanks!!
datareport 中的匯出可否移除(編號：7157)
datareport1.show
後會出現預覽的畫面，在左上角有一個印表機及一個匯出及一個顯示百分比，其中的匯出此icon 可否從程式中或設定中移除？
謝謝你的指教！
後會出現預覽的畫面，在左上角有一個印表機及一個匯出及一個顯示百分比，其中的匯出此icon 可否從程式中或設定中移除？
謝謝你的指教！
該如何把DATAGRID上直行顯示的資料在列印報表時用橫式列印(編號：7154)
例如:某某人在補習班的缺曠資料在datagrid上是
姓名 缺曠日期
a1 1/1
a1 2/1
a1 3/1
那麼要如何控制a1這個人的三筆缺曠日期在列印報表上的時候
可以變成:
姓名 缺曠日期 缺曠日期 缺曠日期
a1 1/1 2/1 3/1
姓名 缺曠日期
a1 1/1
a1 2/1
a1 3/1
那麼要如何控制a1這個人的三筆缺曠日期在列印報表上的時候
可以變成:
姓名 缺曠日期 缺曠日期 缺曠日期
a1 1/1 2/1 3/1
vb6.0及excel(編號：7153)
MyExcel.ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="折線圖加直條圖"
怎麼這行在VB上編譯是錯的..
在EXCEL是可以的..?
請各位高手幫小弟解答一下..
萬分感謝!!
怎麼這行在VB上編譯是錯的..
在EXCEL是可以的..?
請各位高手幫小弟解答一下..
萬分感謝!!
問一個c的問題(編號：7151)
請問一下...我要用C寫一個程式可以把目錄rename成mm-dd-yy(mm:月,dd:日,yy:年)
的格式(由系統取得時間),須要用那個function??
誰可以幫忙一下,因為很久沒碰C了...
的格式(由系統取得時間),須要用那個function??
誰可以幫忙一下,因為很久沒碰C了...
給..想作多國語系的人~~(編號：7144)
http://www.microsoft.com/taiwan/products/develop/vbasic/IPDK.htm
以前就知道了..但沒用過..
上次有人問怎麼作..
一時也沒想起來..
^^!!
以前就知道了..但沒用過..
上次有人問怎麼作..
一時也沒想起來..
^^!!
要如何一次清空Table的資料(編號：7142)
我有一個暫存的Table,當成是每次執行前要先將資料清空,在填入資料,有沒有其他方法一個指令就能達成,而不要用以下的方法(萬一資料一多速度就太慢了)
do while table.recordset.eof
table.recordset.delete
table.recordset.movenext
loop
do while table.recordset.eof
table.recordset.delete
table.recordset.movenext
loop
關於列印報表時是否可以自動產生物件??(編號：7138)
我們用的是vb6.0,win98和access2000製作補習班班務系統,其中有一項關於到列印座位表的,因為教室的大小並不一致且也沒辦法去預測與固定,而在coding的時候可以用load的方式載入text與label,但在目前的情況之下我們用Data Report列印時text無法用陣列的方式自動產生,所以,請問有什麼辦法可以解決報表中text的個數不定可以自動產生,或其他可行之辦法!!
Data Report 存成文字檔或html格式的問題,Help!!!(編號：7135)
請教各位先進:
小弟使用Data Report製作報表時,在列印時有一功能可以儲存報表
內容為文字檔或是html格式,但存成後的格式都會有"跑掉"的問題,
也就是說一些字元不會對齊,變的歪七扭八的,請各位高手幫幫忙,
謝謝!!!
ps:我是要將報表存成文字檔或html檔當備份,有時也需用FAX傳遞
各位有比較好的想好或做法嗎??
小弟使用Data Report製作報表時,在列印時有一功能可以儲存報表
內容為文字檔或是html格式,但存成後的格式都會有"跑掉"的問題,
也就是說一些字元不會對齊,變的歪七扭八的,請各位高手幫幫忙,
謝謝!!!
ps:我是要將報表存成文字檔或html檔當備份,有時也需用FAX傳遞
各位有比較好的想好或做法嗎??
如何取得ProgID(編號：7133)
請問各位高手
當我取的一個Active X control時我想要取得
這個control的ProgID要如何取得..
這個control是別人製作的
我使用CreateOleObject()開啟
當我取的一個Active X control時我想要取得
這個control的ProgID要如何取得..
這個control是別人製作的
我使用CreateOleObject()開啟
付費..徵高手幫忙..急件!!(編號：7131)
誠徵高手幫我解決控制區域網路上,多台電腦Mouse/KB/音效卡之 Enable/Disable,意者請以E-mail 聯絡 crab@ms43.url.com.tw
不解!!謝謝!!(編號：7130)
VB高手的前輩：
小弟!!有一惑、希請不吝指導，如下：
1.在Form 裡有Data1、Command1、DBGrid1、 Label1 、Label2
Text1、Text2物件。
2.在vb5 - 增益集 - 資料庫管理員 – 開啟資料庫 - B3.mdb
- FROM 成績單(欄位全是TEXT文字屬性)。
3.在SQL陳述式寫入，以下SQL的程式,在此執行正常，並也儲存
為”查詢”之名稱：
SELECT *
FROM b01
WHERE [俄語] Between [Low] AND [High]
ORDER BY [俄語];
5. Form 程式之撰寫內容：
Private Sub Command1_Click()
Dim qd As QueryDef
Set qd = Data1.Database.QueryDefs("查詢")
qd.Parameters("Low") = Val(Text1.Text)
qd.Parameters("High") = Val(Text2.Text)
Set Data1.Recordset = qd.OpenRecordset
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\b3.mdb"
Data1.Refresh
End Sub
4.可是到VB5執行，卻無顯示資料，但有欄位名稱
敬請高手指導！！
謝謝！！
一位很想學好VB的人
小弟!!有一惑、希請不吝指導，如下：
1.在Form 裡有Data1、Command1、DBGrid1、 Label1 、Label2
Text1、Text2物件。
2.在vb5 - 增益集 - 資料庫管理員 – 開啟資料庫 - B3.mdb
- FROM 成績單(欄位全是TEXT文字屬性)。
3.在SQL陳述式寫入，以下SQL的程式,在此執行正常，並也儲存
為”查詢”之名稱：
SELECT *
FROM b01
WHERE [俄語] Between [Low] AND [High]
ORDER BY [俄語];
5. Form 程式之撰寫內容：
Private Sub Command1_Click()
Dim qd As QueryDef
Set qd = Data1.Database.QueryDefs("查詢")
qd.Parameters("Low") = Val(Text1.Text)
qd.Parameters("High") = Val(Text2.Text)
Set Data1.Recordset = qd.OpenRecordset
End Sub
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\b3.mdb"
Data1.Refresh
End Sub
4.可是到VB5執行，卻無顯示資料，但有欄位名稱
敬請高手指導！！
謝謝！！
一位很想學好VB的人
請教Master-Detail資料庫觀念.!(編號：7128)
請問已在Base Table建了Primary Key和在Related Table中建了Foreign Key請問..如何在Ado與使用SQL語法為他們建立關聯性..1!
另外請問..在Base table中刪除了資料..請問要如何維護資料的一致性呢.1?..謝謝.
另外請問..在Base table中刪除了資料..請問要如何維護資料的一致性呢.1?..謝謝.
★徵求【以繪圖方式在無內建中文字型的條碼印表機列印中文字】的(編號：7126)
★徵求【以繪圖方式在無內建中文字型的條碼印表機列印中文字】的方法★
等待救援中...
或者您還有其他辦法可在【印表機無內建中文】以及【無法使用 Printer.Print 指令】的情況下，使印表機輸出中文字的方法，期待您的幫助。謝謝您。
等待救援中...
或者您還有其他辦法可在【印表機無內建中文】以及【無法使用 Printer.Print 指令】的情況下，使印表機輸出中文字的方法，期待您的幫助。謝謝您。
ComboBox的Change事件(編號：7122)
請問 ComboBox 的 Change 事件會在什麼狀況下發生？
在MSDN中，其說明如下：
ComboBox - 改變控制項的文字方塊部分的文字。該事件僅在 Style 屬性設定為 0 (Dropdown Combo)或 1 (Simple Combo) 以及當文字被改變，或者藉程式碼改變了 Text 屬性設定時才會發生。
但我在依規定設定 style 後，還是碰不到 Change 事件。
另外問一個問題，
如何在 ComboBox 下拉選了一個值後，立刻有反應？
在MSDN中，其說明如下：
ComboBox - 改變控制項的文字方塊部分的文字。該事件僅在 Style 屬性設定為 0 (Dropdown Combo)或 1 (Simple Combo) 以及當文字被改變，或者藉程式碼改變了 Text 屬性設定時才會發生。
但我在依規定設定 style 後，還是碰不到 Change 事件。
另外問一個問題，
如何在 ComboBox 下拉選了一個值後，立刻有反應？
超級急....把安裝減到最少 ~*.@~ ,會付費的喔!(編號：7119)
*我試過網主的免安裝程式...但有些電腦可以執行有些不可以執行
*還試過fusion 但不能
*請大家可憐我....(我好可憐的),請介紹您週圍有興趣的人或想
賺錢的, 再次懇求大家
我要求不高,只要把安裝減到只有一兩個介面,不要像微軟的封裝那
多,最好是南部的各路高手.........請您跟我聯絡吧!
*還試過fusion 但不能
*請大家可憐我....(我好可憐的),請介紹您週圍有興趣的人或想
賺錢的, 再次懇求大家
我要求不高,只要把安裝減到只有一兩個介面,不要像微軟的封裝那
多,最好是南部的各路高手.........請您跟我聯絡吧!
vb6.0 and Crystal Report8.0 Email 輸出 9 （急）(編號：7117)
請問在vb 中 利用crystal report 的 email 輸出
可不可以改變email 出去的檔案名稱....
我知道如果輸出方式是檔案的話可以做...(crystalreport1.Destination=crptToFile )
但是不知道有沒有人試過如果輸出方式是 email
(crystalreport1.destination=crptMapi ) 的話
有沒有辦法輸出到對方的檔案,名稱不要是報表名稱
可不可以改變email 出去的檔案名稱....
我知道如果輸出方式是檔案的話可以做...(crystalreport1.Destination=crptToFile )
但是不知道有沒有人試過如果輸出方式是 email
(crystalreport1.destination=crptMapi ) 的話
有沒有辦法輸出到對方的檔案,名稱不要是報表名稱
封裝的問題.......（急）(編號：7116)
請問各位前輩：
想請問幾個問題，因為我想讓使用者在安裝程式前先查詢網卡序號，然後與文字檔內容比對，所以我利用封裝精靈將我的程式封裝之後，產生setup.exe setup.lst mac.cab以及support的子目錄，我應該比文字檔放在那一個目錄底下。
另外假如我想將文字檔放磁片內，然後封裝精靈產生的安裝程式到A磁碟去讀取，可是卻沒有讀取的動作，以下是我的程式片段，請幫我看看，該如何修改。
Dim TmpStr As String
Dim ckpass As String
Dim getpass As String
Dim ret As String
If Dir("sn.txt") = "" Then
ret = MsgBox("缺少序號檔案,請向本公司詢問", vbExclamation, "錯誤訊息")
End
End If
Open "sn.txt" For Input As #1
Line Input #1, TmpStr
getpass = TmpStr
Close #1
ckpass = GetMACAddress()
If ckpass ＜＞ getpass Then
ret = MsgBox("網卡序號錯誤,請向本公司詢問", vbExclamation, "密碼檢查")
End
End If
非常感謝您的幫忙！謝謝！！
想請問幾個問題，因為我想讓使用者在安裝程式前先查詢網卡序號，然後與文字檔內容比對，所以我利用封裝精靈將我的程式封裝之後，產生setup.exe setup.lst mac.cab以及support的子目錄，我應該比文字檔放在那一個目錄底下。
另外假如我想將文字檔放磁片內，然後封裝精靈產生的安裝程式到A磁碟去讀取，可是卻沒有讀取的動作，以下是我的程式片段，請幫我看看，該如何修改。
Dim TmpStr As String
Dim ckpass As String
Dim getpass As String
Dim ret As String
If Dir("sn.txt") = "" Then
ret = MsgBox("缺少序號檔案,請向本公司詢問", vbExclamation, "錯誤訊息")
End
End If
Open "sn.txt" For Input As #1
Line Input #1, TmpStr
getpass = TmpStr
Close #1
ckpass = GetMACAddress()
If ckpass ＜＞ getpass Then
ret = MsgBox("網卡序號錯誤,請向本公司詢問", vbExclamation, "密碼檢查")
End
End If
非常感謝您的幫忙！謝謝！！
DAO連結Text外部資料檔, 煩請測試!(編號：7114)
使用DAO 3.5, VB5+SP3 在.MDB內做[連接資料表]
Set td = db.CreateTableDef("LINKTEXT")
td.Connect "Text;HDR=no;Database=c:\temp" td.SourceTableName = "TEST.TXT"
db.TableDefs.Append td
'
SCHEMA.INI內容如下:
[TEST.TXT]
Format=Delimited(,)
Col1=F1 Char Width 6
Col1=F2 Char Width 12
Col1=F3 Char Width 3
'
以上程式可以連結, 一切處理都沒有問題, 只是文字檔內的第一列永遠都不會被連接進來, 不管我設
td.Connect "Text;HDR=no;Database=c:\temp"
或者
td.Connect "Text;Database=c:\temp"
第一列都不會被連結進來, 不知那位朋友能夠幫忙試試看!
Set td = db.CreateTableDef("LINKTEXT")
td.Connect "Text;HDR=no;Database=c:\temp" td.SourceTableName = "TEST.TXT"
db.TableDefs.Append td
'
SCHEMA.INI內容如下:
[TEST.TXT]
Format=Delimited(,)
Col1=F1 Char Width 6
Col1=F2 Char Width 12
Col1=F3 Char Width 3
'
以上程式可以連結, 一切處理都沒有問題, 只是文字檔內的第一列永遠都不會被連接進來, 不管我設
td.Connect "Text;HDR=no;Database=c:\temp"
或者
td.Connect "Text;Database=c:\temp"
第一列都不會被連結進來, 不知那位朋友能夠幫忙試試看!
如何跳過選擇 DSN 的畫面?(編號：7109)
我在Excel 中有下列的程式,但執行時它都會出現要我選擇dsn的畫面,要如何才能跳過此畫面呢?我在程式中不是已經告知dsn是那一個了嗎?請各位高手幫忙!謝了!
Sub UserQueryTable()
sqlstring = "select * from TableA "
connstring = _
"ODBC;DSN=DSNfile;UID=AAA;PWD=BBB;Database=DatabaseA"
With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("A1"), Sql:=sqlstring)
.Refresh
End With
End Sub
Sub UserQueryTable()
sqlstring = "select * from TableA "
connstring = _
"ODBC;DSN=DSNfile;UID=AAA;PWD=BBB;Database=DatabaseA"
With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("A1"), Sql:=sqlstring)
.Refresh
End With
End Sub
有關crystal report---(編號：7108)
my crystal report :4.6
VB 6.0
database : oracle
我如何把vb & crystal report串起來....
VB 6.0
database : oracle
我如何把vb & crystal report串起來....
Quoted_Printable的處理(編號：7107)
請教一下
在電子郵件內文的編碼中
有一的Quoted_printable
的編碼
常常會遇到這樣的東東
=A2=A3f............=AS=
z=D4......
我想請問
1.第一行=後面是指 = + 13 + 10 嗎??
需不須要處理13 及 10
2.第二行的z 是幹麼用的，常常會冒出來
該怎麼弄掉??
謝謝
在電子郵件內文的編碼中
有一的Quoted_printable
的編碼
常常會遇到這樣的東東
=A2=A3f............=AS=
z=D4......
我想請問
1.第一行=後面是指 = + 13 + 10 嗎??
需不須要處理13 及 10
2.第二行的z 是幹麼用的，常常會冒出來
該怎麼弄掉??
謝謝
急!-如何 e-mail 所查尋之結果(資料)(編號：7106)
我是用access and vb 6.0,來設計資料庫
用 rs.open "select * from table where 條件"
所查詢之結果(資料),如何e-mail 出去
本人用有用printer物件 和 datareport
懇請高手賜教
用 rs.open "select * from table where 條件"
所查詢之結果(資料),如何e-mail 出去
本人用有用printer物件 和 datareport
懇請高手賜教
如何以ADO連結ACCESS2000(編號：7104)
我目前引用ADO 2.5 Library，connetion string="PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:\db1.mdb;Jet OLEDB:Database Password=test;"，db1.mdb是access2000，但這樣設並不能開啟db1.mdb，我以為是provider必須修改，但又不知道該使用那一個OLE DB PROVIDER，若不是PROVIDER設錯，那是那裡不對了呢??丫~~~~~好煩喔，請那位好心人教教我該怎麼辦，謝謝!!
PS.問我為什麼要用ADO開啟access2000?因為我同時有SQL SERVER和ACCESS兩個DATABASE,在切換DATABASE時統一用ADO（捨DAO是因為考量SQL SERVER），這樣程式就不用因DATABASE改變而改來改去的了
PS.問我為什麼要用ADO開啟access2000?因為我同時有SQL SERVER和ACCESS兩個DATABASE,在切換DATABASE時統一用ADO（捨DAO是因為考量SQL SERVER），這樣程式就不用因DATABASE改變而改來改去的了
如何可以將一幅經自己編碼的 TIF 圖檔不經過解碼後存為另一圖檔,(編號：7103)
簡單來說, 即是將原始圖檔 abc.tif 經過本人編寫的程式 generate 了另一圖檔 abc.enc 但怎樣才可以直接將 abc.enc 經 vb 顯示出來, 而不需再將 abc.enc 轉為 abc.tif 再顯示出來???
THX...........................................
THX...........................................
DataEnvironment的Update(編號：7102)
請教一下
DataEnvironment的Update要如何作用??
我查MSDN 說的是
DataEnvironment filds,values
旦是我只定了Filds確出現找不到的訊息，
真怪
我做錯了嗎???
DataEnvironment的Update要如何作用??
我查MSDN 說的是
DataEnvironment filds,values
旦是我只定了Filds確出現找不到的訊息，
真怪
我做錯了嗎???
如何讀取字串中的 一行(編號：7101)
我宣告一字串變數,並寫入某些資料,資料中包含了換行字元 (Chr(13) + Chr(10))
現在,我想將這個字串利用迴圈逐行寫入陣列中,,要怎麼做呢?
For i = 0 to UBound(sArray())
Redim Preserve sArray(i)
sArray(i) = ......然後呢?? 要如何讀進 "一行" 字???
...
...
Next i
現在,我想將這個字串利用迴圈逐行寫入陣列中,,要怎麼做呢?
For i = 0 to UBound(sArray())
Redim Preserve sArray(i)
sArray(i) = ......然後呢?? 要如何讀進 "一行" 字???
...
...
Next i
封裝好的Setup.exe在安裝的畫面上如何能變成英文介面?(編號：7100)
如何能使封裝完成後的setup.exe, 在別台機器上run的時候, 出現的安裝畫面是英文的?? 是否得用英文版的VB來封裝呢?
如何使用send keys(編號：7099)
我想在Text1輸入完後按下enter,就如同按下tab一樣跳到Text2要如何寫?其中text1和text2的index分別是0和1
Private Sub Text1_KeyPress(KeyAscii As Integer)
if keyAscii=13 then
send keys "{TAB}"(這一行如何寫呢?)
end if
End Sub
麻煩各位高手幫忙!
Private Sub Text1_KeyPress(KeyAscii As Integer)
if keyAscii=13 then
send keys "{TAB}"(這一行如何寫呢?)
end if
End Sub
麻煩各位高手幫忙!
真要命！ActiveX Control有些機器可下載，有些機器卻不行(編號：7096)
唉，看書上寫的都很簡單，在自己機器上測試也都沒問題，
可是用VB6.0寫的ActiveX Control(自己的user control)在有些機器上下載就好好的，
有些連Error Massage都沒有，就只有一個圖片找不到的icon在那邊，
下載用的電腦可能是IE4.0或5.0,我都已經把安全性設到"低"了，
怎麼還這樣，真是要命，
這樣，ActiveX Control根本沒有能力作商業化的應用嗎....
環境是NT Workstation,
我發現WINNT\Downloaded Program Files\底下會找不到這些ocx,
表示根本就被Browser檔掉了，(還是跟Browser版本、設定有關？)
另外，如果這個ocx以經先在目標電腦上用regsvr32註冊了，
(一般目錄，非\WINNT\Downloaded Program Files\)
那麼下載時，系統會直接使用此ocx嗎？
究竟下載過程是怎樣的？
請高手幫幫忙吧，謝謝先~~~~
可是用VB6.0寫的ActiveX Control(自己的user control)在有些機器上下載就好好的，
有些連Error Massage都沒有，就只有一個圖片找不到的icon在那邊，
下載用的電腦可能是IE4.0或5.0,我都已經把安全性設到"低"了，
怎麼還這樣，真是要命，
這樣，ActiveX Control根本沒有能力作商業化的應用嗎....
環境是NT Workstation,
我發現WINNT\Downloaded Program Files\底下會找不到這些ocx,
表示根本就被Browser檔掉了，(還是跟Browser版本、設定有關？)
另外，如果這個ocx以經先在目標電腦上用regsvr32註冊了，
(一般目錄，非\WINNT\Downloaded Program Files\)
那麼下載時，系統會直接使用此ocx嗎？
究竟下載過程是怎樣的？
請高手幫幫忙吧，謝謝先~~~~
如何使string判斷word是中文(2byte)或英文(1byte)?(編號：7095)
我要一變數是個變數相加取12位,但中英文參雜
若硬要取12位則,中文可能切一半,請問要如何解決?
ex:
a1="北縣"
a2="中山路1號"
a3 = StrConv(LeftB(StrConv(Trim(a1), vbFromUnicode) & StrConv(Trim(a2), vbFromUnicode), 12), vbUnicode)
以上的例子:我想要的結果是:只要取11位就好,不要把中文字切斷
所以為:a3="北縣中山路1"
Thanks!
若硬要取12位則,中文可能切一半,請問要如何解決?
ex:
a1="北縣"
a2="中山路1號"
a3 = StrConv(LeftB(StrConv(Trim(a1), vbFromUnicode) & StrConv(Trim(a2), vbFromUnicode), 12), vbUnicode)
以上的例子:我想要的結果是:只要取11位就好,不要把中文字切斷
所以為:a3="北縣中山路1"
Thanks!
Access 資料庫內連結資料表路徑如何在程設定(編號：7094)
HELLO:各位先進, 小弟在MDB資料庫內使用連結資料表, 但當移植到其他電腦時, 程式會出現找不到資料表的問題, 請問在VB執行階段是否可設定資料庫內連結資料表的路徑, 謝謝!!
請問要知道下列程式資料表格的紀錄筆數要如何作?(編號：7093)
請問要知道資料表格的紀錄筆數要如何作?
Private objConn As ADODB.Connection '
Private objRec As ADODB.Recordset '
Private Sub Command4_Click() '
gstrConn_Test = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\A.mdb"
Set objConn = New ADODB.Connection
objConn.Open gstrConn_Test
Dim strSQL As String
strSQL = "SELECT [訂單編號], 訂貨日, 品名, 數量, 交貨日 FROM 訂單 "
Set objRec = objConn.Execute(strSQL)
MsgBox objRec.Fields(0) ＜====可正確顯示
MsgBox objRec.RecordCount ＜===顯示結果為 -1,但應該有4筆記錄才對
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^?????
End Sub
Private objConn As ADODB.Connection '
Private objRec As ADODB.Recordset '
Private Sub Command4_Click() '
gstrConn_Test = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\A.mdb"
Set objConn = New ADODB.Connection
objConn.Open gstrConn_Test
Dim strSQL As String
strSQL = "SELECT [訂單編號], 訂貨日, 品名, 數量, 交貨日 FROM 訂單 "
Set objRec = objConn.Execute(strSQL)
MsgBox objRec.Fields(0) ＜====可正確顯示
MsgBox objRec.RecordCount ＜===顯示結果為 -1,但應該有4筆記錄才對
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^?????
End Sub
有沒有關於使用者登入的user name password的程式呢??(編號：7092)
就好像撥接上網時,我們會輸入的'使用者名稱'與'密碼'一樣,但是多了'錯誤三次便強制不允許再登入'的限制....
有沒有大哥大姊有類似的程式咧???小妹感激不盡
有沒有大哥大姊有類似的程式咧???小妹感激不盡
如何將程式縮小到 Tray System(編號：7091)
我已經使用搜尋功能過了！找不到我想要的資料...
-----------------------------------------------------------
要怎麼將 程式可以縮到 Tray System 呢？我有下載
TRAYNOT.OCX 這個元件！是不錯啦！但不是註冊版耶！
程式每次執行，每幾分鐘就會跳出版本的宣告出來！
我也有下載 DevPower 出的 DevPower TrayIcon ActiveX Control
功能沒有 TrayNot.ocx 強！DevPower 只能把程式縮到
右下角沒錯！但我想在圖示上！按 Mouse 右鍵！這個功能
使用 DevPower 就做不到！
又有關王國榮的 API XXXX 這本書！也只有寫到！把程式
縮到右下角！不知道怎麼改才可以對縮到右下角的圖示按
Mouse 右鍵！跳出 PopMenu 出來呢？
我想問的是！
(1) TRAYNOT.OCX 註冊版嗎？可以好心的E-mail 給我嗎？
(2) 或是有不錯的 元件可以使用？也請 E-mail 給我！
(3) 或有人會寫改王國榮那本書裡頭的程式，改成可以對
ICO 按mouse 右鍵跳出 PopMenu 可以教我修改！或是
把你修改好的 E-mail 給我呢？
我的E-mail上面有
-----------------------------------------------------------
要怎麼將 程式可以縮到 Tray System 呢？我有下載
TRAYNOT.OCX 這個元件！是不錯啦！但不是註冊版耶！
程式每次執行，每幾分鐘就會跳出版本的宣告出來！
我也有下載 DevPower 出的 DevPower TrayIcon ActiveX Control
功能沒有 TrayNot.ocx 強！DevPower 只能把程式縮到
右下角沒錯！但我想在圖示上！按 Mouse 右鍵！這個功能
使用 DevPower 就做不到！
又有關王國榮的 API XXXX 這本書！也只有寫到！把程式
縮到右下角！不知道怎麼改才可以對縮到右下角的圖示按
Mouse 右鍵！跳出 PopMenu 出來呢？
我想問的是！
(1) TRAYNOT.OCX 註冊版嗎？可以好心的E-mail 給我嗎？
(2) 或是有不錯的 元件可以使用？也請 E-mail 給我！
(3) 或有人會寫改王國榮那本書裡頭的程式，改成可以對
ICO 按mouse 右鍵跳出 PopMenu 可以教我修改！或是
把你修改好的 E-mail 給我呢？
我的E-mail上面有
我有3個問題想請問你!!!!(編號：7090)
1.在DataGrid中顯示了多筆資料,要怎樣用滑鼠的指標去點一下其中某個欄位(例如:"中"這個字的欄位)就能把"中"顯示在TextBox中?謝謝
2.如果我有text1和text2怎麼讓text1選完字後自動跳到text2繼續選下一個字?
3.vb6.0 要怎樣才能找出textbox裡中文字的筆劃?
4.動態聯結要怎麼寫?(我的物件:adodc1資料庫:aa.mdb)?
謝謝你~~~~
2.如果我有text1和text2怎麼讓text1選完字後自動跳到text2繼續選下一個字?
3.vb6.0 要怎樣才能找出textbox裡中文字的筆劃?
4.動態聯結要怎麼寫?(我的物件:adodc1資料庫:aa.mdb)?
謝謝你~~~~
子表單(編號：7089)
大家好。我想請教一些簡單的問題。如果我有一個程式,需要子表單的幫助,從一個視窗切換到另一個,那麼我可以怎樣做呢?假如我用Form2.show,我再想關閉form2,用form2.hide ?可是問題就是當我再想打開form2的時候,form2沒有refresh,輸入了的東西依然存在。怎樣才能解決這個問題呢?
如何更動 Printer 內 PaperSize 中 VbPRPSUser 的長與高 值??(編號：7088)
Printer.PaperSize = vbPRPSA4
Printer.PaperSize = vbPRPSLetter
Printer.PaperSize = vbPRPSUser
以上可更動印表機紙張之設定,請問如果我要在程式中,更動
Uesr 這一項中,長與高的值,應如何寫 ????????
Printer.PaperSize = vbPRPSLetter
Printer.PaperSize = vbPRPSUser
以上可更動印表機紙張之設定,請問如果我要在程式中,更動
Uesr 這一項中,長與高的值,應如何寫 ????????
如何用一個command就將form1+form2+form3的資料作儲存???(編號：7085)
是這樣的:一個project下有form1,form2,form3,我如何僅在form3佈置一個command就將三張form的資料一並儲存呢????
先謝謝大家囉!!!
先謝謝大家囉!!!
請問SQL Date 問題....(編號：7084)
請問各位高手，在SQL語法中要篩選出日期欄位沒有值的資料應如何做，因為如果沒有資料都是Null,可是試過許多的語法都無法篩出來，請問問題出在哪？
......Where tblDate=null
......Where tblDate=null
如何將外部程式中ListView裡頭的資料轉出來!?(編號：7083)
桌面上有一個應用程式正在RUN，這個程式使用ListView元件
我想用VB寫一支程式，將這支程式中ListView裡頭的資料轉出來。
首先使用 WindowFromPoint 這個API 取得ListView的hWnd
然後用 SendMessage(hWnd, LVM_GETITEMCOUNT, 0, 0) 可
取得ListView裡頭的ITEM總數。
理論上使用LVM_GETITEMTEXT應該就可以將資料讀出，但我怎麼試
都失敗，重點是 SendMessage 的第四個參數，需傳入一個struct
查MSDN的資料為：
typedef struct _LVITEM {
UINT mask as long
int iItem as long
int iSubItem as long
UINT state as long
UINT stateMask as long
LPTSTR pszText as string
int cchTextMax as long
int iImage as long
LPARAM lParam as long
#if (_WIN32_IE ＞= 0x0300)
int iIndent as long
#End If
} LVITEM, FAR *LPLVITEM;
我使用VB的語法將之改成
Private Type LVITEM
mask As Long
iItem As Long
iSubItem As Long
state As Long
stateMask As Long
LPTSTR As String
cchTextMax As Long
iImage As Long
lParam As Long
'iIndent As Long
End Type
不知各位熟WINAPI的高手能否指點一二，謝謝。
我想用VB寫一支程式，將這支程式中ListView裡頭的資料轉出來。
首先使用 WindowFromPoint 這個API 取得ListView的hWnd
然後用 SendMessage(hWnd, LVM_GETITEMCOUNT, 0, 0) 可
取得ListView裡頭的ITEM總數。
理論上使用LVM_GETITEMTEXT應該就可以將資料讀出，但我怎麼試
都失敗，重點是 SendMessage 的第四個參數，需傳入一個struct
查MSDN的資料為：
typedef struct _LVITEM {
UINT mask as long
int iItem as long
int iSubItem as long
UINT state as long
UINT stateMask as long
LPTSTR pszText as string
int cchTextMax as long
int iImage as long
LPARAM lParam as long
#if (_WIN32_IE ＞= 0x0300)
int iIndent as long
#End If
} LVITEM, FAR *LPLVITEM;
我使用VB的語法將之改成
Private Type LVITEM
mask As Long
iItem As Long
iSubItem As Long
state As Long
stateMask As Long
LPTSTR As String
cchTextMax As Long
iImage As Long
lParam As Long
'iIndent As Long
End Type
不知各位熟WINAPI的高手能否指點一二，謝謝。
請問crystal reports加入一個OLEObject要如何才可列印OLEObject(編號：7082)
起因是因為要列印一個word文件,但文件內容用VBA的方式動態產生,即有可能3頁,也可能10頁.請問如何才可完整預覽且列印.THKS!
如何把 rds 的 Recordset 設定給 DataEnvironment ?(編號：7081)
ADODC 有 Recordset 屬性, 所以可以
把 RDS 取出的 Recordset set給它,
但 DataEnvironment 沒有此屬性下,
應如何達到相同效果? 請指教.
把 RDS 取出的 Recordset set給它,
但 DataEnvironment 沒有此屬性下,
應如何達到相同效果? 請指教.
一個有關listbox 之問題(編號：7079)
當Listbox內有二個columns時, 如何在點選Listbox 時, 把columns one 之text給label one 而colums two 之 text 給 label two
動態元件陣列(編號：7070)
請問...
我使用動態陣列載入了很多個元件
如:
1.load winsock1(0)~10
2.unload winsock1(2)
3.我該如何知道,winsock1(2)已被我unload
for x=0 to 10
if isnull(winsock1(x)) then
.....
end if
next
我測過了,不能用isnull,請問該用什麼方法才知道.....
謝謝
我使用動態陣列載入了很多個元件
如:
1.load winsock1(0)~10
2.unload winsock1(2)
3.我該如何知道,winsock1(2)已被我unload
for x=0 to 10
if isnull(winsock1(x)) then
.....
end if
next
我測過了,不能用isnull,請問該用什麼方法才知道.....
謝謝
請問如何在 SQL7.0 裡面，輸入中文Unicode 如#22531;(編號：7069)
我在WinNT4.0(sp6) Access2000中可輸入"堃"字，但是在SQL7.0(sp1)中輸入"堃"字，卻出現"?"問號！我是設950 Chinese(traditional)其他選預設值理應沒錯啊！可否請用高手解答謝謝！
如何補捉使用DOS文字指令後,文字指令所產生的訊息(編號：7066)
例如
我在VB程式裡執行了copy的指令
可是我卻沒有辦法知道這個指令運作的結果
要如何使VB程式能補捉到文字命令字元所產生的訊息呢??
請不吝賜教
謝謝
我在VB程式裡執行了copy的指令
可是我卻沒有辦法知道這個指令運作的結果
要如何使VB程式能補捉到文字命令字元所產生的訊息呢??
請不吝賜教
謝謝
如何壓縮已刪除的欄位(編號：7064)
我用DAO中的DELETE方法刪除 欄位且資料筆為0筆但是看檔案大小卻沒改變不知如何下壓縮指令
在dos 的 dbase中好像是zap 但在DAO中不知如何用
煩請各位高手相告感激不盡
在dos 的 dbase中好像是zap 但在DAO中不知如何用
煩請各位高手相告感激不盡
SetFocus錯誤(編號：7063)
我有個MaskEdBox的陣列,分別放在Frame1,Frame2中
Frame1中有Msktxt(0),MskTxt(1),MskTxt(2)
Frame2中有MskTxt(3),MskTxt(4),MskTxt(5)
當我做
MskTxt(0).SetFocus時,會出現程式呼叫或引數不正確的Error Message ?
Frame1中有Msktxt(0),MskTxt(1),MskTxt(2)
Frame2中有MskTxt(3),MskTxt(4),MskTxt(5)
當我做
MskTxt(0).SetFocus時,會出現程式呼叫或引數不正確的Error Message ?
列印條碼字型使用CODE128和雷射印表機(編號：7061)
公司裡使用CODE128字型，而我引用了ACESS2000的BARCODE物件，使用雷射印表機並將其列印出來，但是條碼機讀原本的CODE128字型
標籤是可以的；讀我印出來的卻一點反應也沒有。
請問ACESS的BARCODE物件有需要特別設定的地方嗎？又，還是像是
CODE39一樣要加上起始與結束字元呢？
標籤是可以的；讀我印出來的卻一點反應也沒有。
請問ACESS的BARCODE物件有需要特別設定的地方嗎？又，還是像是
CODE39一樣要加上起始與結束字元呢？
做完filter 後bookmark錯誤(編號：7060)
我有一段程式
Dim FindBk As Integer
fanbk = AdoFan.Recordset.Bookmark
v_filter = "WS_ID='" & Left(Trim(ComWSID), 6) & "' AND FanYear='" & Trim(TxtYear) & "' AND FanMonth='" & Trim(ComMonth) & "'"
AdoFan.Recordset.Filter = v_filter
If AdoFan.Recordset.EOF Then
AdoFan.Recordset.Filter = ""
AdoFan.Recordset.Bookmark = fanbk
If MsgBox("查無" & ComWSID & TxtYear & "年" & _ ComMonth & "月的發票起訖資料,是否新增 ?", vbYesNo, "發票 & _
資料訊息") = vbYes Then
Call CmdAdd_Click
End If
Else
FindBk = AdoFan.Recordset.Bookmark
AdoFan.Recordset.Filter = ""
AdoFan.Recordset.Bookmark = FindBk ＜---執行到此出錯
End If
error message
執行階段錯誤3001:
應用程式所使用的引數可能有類型錯誤,或超過可接受的定義範圍,
或與其他引數衝突
Dim FindBk As Integer
fanbk = AdoFan.Recordset.Bookmark
v_filter = "WS_ID='" & Left(Trim(ComWSID), 6) & "' AND FanYear='" & Trim(TxtYear) & "' AND FanMonth='" & Trim(ComMonth) & "'"
AdoFan.Recordset.Filter = v_filter
If AdoFan.Recordset.EOF Then
AdoFan.Recordset.Filter = ""
AdoFan.Recordset.Bookmark = fanbk
If MsgBox("查無" & ComWSID & TxtYear & "年" & _ ComMonth & "月的發票起訖資料,是否新增 ?", vbYesNo, "發票 & _
資料訊息") = vbYes Then
Call CmdAdd_Click
End If
Else
FindBk = AdoFan.Recordset.Bookmark
AdoFan.Recordset.Filter = ""
AdoFan.Recordset.Bookmark = FindBk ＜---執行到此出錯
End If
error message
執行階段錯誤3001:
應用程式所使用的引數可能有類型錯誤,或超過可接受的定義範圍,
或與其他引數衝突
再請教UUEncode的編碼問題--C.C.(編號：7058)
請教高手
我按照一個方法將
begin ***.***
~~~~~~~
~
end
的檔案還原，旦一遇到 〈、〉,就會產生益位的問題
請教我的問題出在哪
bIn(0)=Asc("、")
bIn(1)=Asc("、")
就是說我用 bIn(0) * 4 + bIn(1) \ 16
則這一行就會超過Byte的限制，似乎解法不對
]
可否有人教導一下，從UUEncode 反解回來的idea
謝謝
我按照一個方法將
begin ***.***
~~~~~~~
~
end
的檔案還原，旦一遇到 〈、〉,就會產生益位的問題
請教我的問題出在哪
bIn(0)=Asc("、")
bIn(1)=Asc("、")
就是說我用 bIn(0) * 4 + bIn(1) \ 16
則這一行就會超過Byte的限制，似乎解法不對
]
可否有人教導一下，從UUEncode 反解回來的idea
謝謝
WithEvents用法(編號：7053)
請問一下我如果這樣宣告
DIM WithEvents ctlMyControl As CommandButton
Private Sub Form_Load()
Set ctlMyControl = Control.Add,_
"VB.CommandButton", "cmdNew")
ctlMyControl.Left = 240
ctlMyControl.Top = 240
ctlMyControl.Caption = "離開(&X)"
ctlMyControl.Visible = True
End Sub
我的目的是要在動態新增物件後, 啟動事件,
ex:
Private Sub ctlMyControl_Click()
'執行程序
End Sub
但是我測試失敗, 請問大家知道我哪裡錯了?
DIM WithEvents ctlMyControl As CommandButton
Private Sub Form_Load()
Set ctlMyControl = Control.Add,_
"VB.CommandButton", "cmdNew")
ctlMyControl.Left = 240
ctlMyControl.Top = 240
ctlMyControl.Caption = "離開(&X)"
ctlMyControl.Visible = True
End Sub
我的目的是要在動態新增物件後, 啟動事件,
ex:
Private Sub ctlMyControl_Click()
'執行程序
End Sub
但是我測試失敗, 請問大家知道我哪裡錯了?
請問一下(JournalPlayBack Hook)(編號：7052)
想請問一下如何使鍵盤、Mouse失效(JournalPlayBack Hook)中
我想利用Client 和 Server來控制它
不過它連 Port 也 Hook 住
造成Server無法將Client FREE HOOK
請問一下我該如何透過Client 與Server的方式來所住鍵盤和滑鼠
謝謝賜教 謝謝!!
我想利用Client 和 Server來控制它
不過它連 Port 也 Hook 住
造成Server無法將Client FREE HOOK
請問一下我該如何透過Client 與Server的方式來所住鍵盤和滑鼠
謝謝賜教 謝謝!!
如何在TextBox 或 RichTextBox 顯示粗體文字(編號：7051)
請問一下~~
如何做到
"在TextBox or RichTextBox中尋找特定的字串 並且把找到的字串變換成粗體文字 而其它的文字則照舊" Thanks
如何做到
"在TextBox or RichTextBox中尋找特定的字串 並且把找到的字串變換成粗體文字 而其它的文字則照舊" Thanks
command的查詢條件........????(編號：7050)
我用階層式grid 連command
但我想動態更新command查詢條件
有種方式是用parameter
但有點麻煩 有沒有更好的辦法
如用commandText將查詢條件重換.......
請幫幫忙
但我想動態更新command查詢條件
有種方式是用parameter
但有點麻煩 有沒有更好的辦法
如用commandText將查詢條件重換.......
請幫幫忙
關於registry(編號：7049)
我使用RegSetValueEx新增一字串到Key 中,
where type is REG_SZ
然後使用RegQueryValueEx將值取出,
我發現原本填入的字串為 "4" Len(4)應等於1 LenB(4)=2
抓到的值為 "4" Len(4) 卻為2 LenB(4)=4
我如何將抓到的值還原與原本相同 ??
where type is REG_SZ
然後使用RegQueryValueEx將值取出,
我發現原本填入的字串為 "4" Len(4)應等於1 LenB(4)=2
抓到的值為 "4" Len(4) 卻為2 LenB(4)=4
我如何將抓到的值還原與原本相同 ??
我資料庫(.mdb)是用Access97但轉成2000後程式就不能跑了!!(編號：7047)
我資料庫(.mdb)是用Access97但轉成2000後程式就不能跑了!!
請問我要如何改程式(最方便的方法)
原用 data1; 可否不用 adodc1
請問我要如何改程式(最方便的方法)
原用 data1; 可否不用 adodc1
mschart 的x 座標 的 R1 R2 R3..... 要怎麼更改(編號：7046)
利用陣列將資料轉入mschart 中，也設定好y軸max、min 與自動調整大小，但是x軸部分不知該如何處理。首先是 x軸標示(R1、R2 ..)不知該如何修改以及刻度的設定的問題，請前輩們教教小弟吧，謝謝。
如何設定ADO控制項的資料庫路徑(編號：7044)
可以用程式碼的方式，來設定ado控制項的資料庫相對路徑嗎？
因為不知道要如何讓控制項裡的絕對路徑，變成相對路徑，
還是說只能用程式碼來編寫，不能使用ado控制項？請指教，謝謝。
因為不知道要如何讓控制項裡的絕對路徑，變成相對路徑，
還是說只能用程式碼來編寫，不能使用ado控制項？請指教，謝謝。
關於條碼印表機如何列印中文(編號：7043)
印表機廠牌:RING
型號:沒記起來
據我所知它只附了說明書
其內容有關於列印的方法
但是並沒有提及如何列印中文
曾向廠商索取列印程式原始碼 但要付費4~5萬...
所以想在這問問看有沒有哪些先進高手知道方法的。
型號:沒記起來
據我所知它只附了說明書
其內容有關於列印的方法
但是並沒有提及如何列印中文
曾向廠商索取列印程式原始碼 但要付費4~5萬...
所以想在這問問看有沒有哪些先進高手知道方法的。
關於datagrid and text control(編號：7042)
大家好小弟使用vb6+sp4 在寫資料庫程式是在同一個Form中用DataGrid 作為顯示資料 而用 text control 做為輸入用 DataGrid的allowAddNew和allowUpdate都設成 False 在新增一筆資料時，我都沒有輸入資料，然後用 CancelUpdate 做取消新增的動作會引發DataGrid不能新增一筆空記錄的錯誤,不知要如何解決。對了在新增資料時小弟不要把DataGrid.DataSource 設成 nothing，因為小弟要把DataGrid的資料讓輸入的使用者參考，不知這是什麼原因只要addnew指令一下DataGrid就會產生一產新的紀錄不能 CancelUpdate敬請各位賜教，謝謝。
如何封裝子目錄 ??(編號：7041)
各位先進大家好，請問vb的封裝程式
有沒有比較好的方法封裝子目內的檔案，此子目錄中約有1000個檔案
，要安裝幾個我會，但問題是檔案有1000多個，還是說有什麼書對這方面有寫的比較清楚的，可否告知，謝謝!!
有沒有比較好的方法封裝子目內的檔案，此子目錄中約有1000個檔案
，要安裝幾個我會，但問題是檔案有1000多個，還是說有什麼書對這方面有寫的比較清楚的，可否告知，謝謝!!
關於 Menu 中 Bitmap 的問題(編號：7040)
我知道用 SetMenuItemBitmaps 的 API 函數
可以讓 Menu 的左方有一個小 Bitmap, 而右方仍是文字
而當滑鼠移進 Menu 的時候右方的文字會反白
可是那個小 Bitmap 卻也跟著變成反像了.......
要如何才能真正作到項 MS Word 中的 Menu 那樣呢??
VB 到底作不作得到???
另問: 用 For Each .... 迴圈可以在 Form 中逐一判斷物件類別,如
Dim MO As Object
For Each MO In Form1.Controls
If TypeOf MO Is CommandButton Then
MO.Enabled = True
End If
Next
但是,我要在 MDIForm 中逐一判斷尋找 Form 要如何做呢?
以下是我想到的,可是不行
Dim MO As Object
For Each MO In MDIForm1.Controls
If TypeOf MO Is Form Then
MO.Enabled = True
End If
Next
可以讓 Menu 的左方有一個小 Bitmap, 而右方仍是文字
而當滑鼠移進 Menu 的時候右方的文字會反白
可是那個小 Bitmap 卻也跟著變成反像了.......
要如何才能真正作到項 MS Word 中的 Menu 那樣呢??
VB 到底作不作得到???
另問: 用 For Each .... 迴圈可以在 Form 中逐一判斷物件類別,如
Dim MO As Object
For Each MO In Form1.Controls
If TypeOf MO Is CommandButton Then
MO.Enabled = True
End If
Next
但是,我要在 MDIForm 中逐一判斷尋找 Form 要如何做呢?
以下是我想到的,可是不行
Dim MO As Object
For Each MO In MDIForm1.Controls
If TypeOf MO Is Form Then
MO.Enabled = True
End If
Next
如何在Ado搜尋單筆記錄(編號：7038)
我有一個Adodc,database 是Sql Server中的一個Table屬單筆資料型的(如客戶資料),PRIMARY key=WS_ID+YEAR+MONTH,我設計了一個Form
來增修查刪這單筆記錄,如用adodc.recordset.find 只能查道單一欄位的資料無法用and查到同時符合WS_ID="A",YEAR="B",MONTH="C"這三個條件,加上Adodc沒提供Seek這個方法,不知要用什麼方法才能
快速找到資料(find要一筆一筆比對,速度不夠快)?
來增修查刪這單筆記錄,如用adodc.recordset.find 只能查道單一欄位的資料無法用and查到同時符合WS_ID="A",YEAR="B",MONTH="C"這三個條件,加上Adodc沒提供Seek這個方法,不知要用什麼方法才能
快速找到資料(find要一筆一筆比對,速度不夠快)?
如何在Form中傳遞參數？(編號：7034)
我想請問一下，在VB中，不知道可不可以將某個變數由一個Form傳到另一個Form上，如果可以，不知道指令應該如何使用，如果不行，那有沒有什麼變通的方式？煩請不吝賜教....
如何將MouseDown事件更改成Ctrl+MouseDown?(編號：7033)
之前曾看過有人問起模擬按下滑鼠按鍵, 不知是否可以將MouseDown事件更改成Ctrl+MouseDown(即攔截掉原來之MouseDown)
Thanks!
Thanks!
crystal report 8.0(編號：7032)
crystal report 8.0 怎麼引用crystal report1 controler
7.0版本有這個元件 8.0怎麼沒有呢
請幫忙 8.0版怎麼利用vb call crp
7.0版本有這個元件 8.0怎麼沒有呢
請幫忙 8.0版怎麼利用vb call crp
如何在移動A DataGrid的指標時B DataGrid也同時移動(編號：7031)
如何在移動A DataGrid的指標時B DataGrid也同時移動,而A 捲動捲軸時B也跟著捲動呢.!?...就像是DataGrid的分割群組一樣
如何在web上產生3D統計圖(編號：7027)
目前看到的web即時統計圖, 大多都是2D bar chart
請問誰能在web上即時產生3D bar/pie...立體統計圖?
市面上有哪些網站有提供??
感謝您!
請問誰能在web上即時產生3D bar/pie...立體統計圖?
市面上有哪些網站有提供??
感謝您!
vb6.0 and Excel 的問題請教...(編號：7025)
請問各位先進....
我在vb6.0跑出的資料丟到excel上..
1.有些資料太長,資料被隱藏,看不到完整的資料,要如何將儲存格的長度隨資料長度而放大或縮小..不需用手動的方式去調寬度....
2.如何讓所有儲存格的資料不管是數字或文字都向左邊靠...
如果先將丟出來的數字轉成文字在放上儲存格..我認為
可能行不通...excel 可能會預設為數字..
我在vb6.0跑出的資料丟到excel上..
1.有些資料太長,資料被隱藏,看不到完整的資料,要如何將儲存格的長度隨資料長度而放大或縮小..不需用手動的方式去調寬度....
2.如何讓所有儲存格的資料不管是數字或文字都向左邊靠...
如果先將丟出來的數字轉成文字在放上儲存格..我認為
可能行不通...excel 可能會預設為數字..
之前好像都沒有人提到！(編號：7024)
看了前一篇，有一個人提到了，在vb中用程式取用stroed procedure 的問題!查了一下之前與全文簡索，好像也沒有人提！是不是用程式來存取很難？或在vb中不用 DATA OR ADODC控制項沒有辨法做呢？我試了一下，真的代參數代不進去說！
Crystal Report Page Footer內的欄位只在有Group Footer的那一頁(編號：7023)
請問..要如何才能夠達到標題所示的問題呢.!?..因總計必須要在Group Footer...而小計在Page Footer...但是如果將總計欄位放在Group Footer時...那總計會顯示在小計的上面...(因為Crystal Report 是先Group Footer然後之下才是Page Footer)..那這樣不就和一般的報表不一樣了嗎.!!..所以現在總計改放在Page Footer可是這樣一來又會每一頁都印出總計,請問有何方法可解決.謝謝
錯誤訊息(編號：7022)
執行階段錯誤'429'
ActiveX元件無法產生物件
上面兩行是程式寫好封裝好後到某台電腦（98）去安裝執行
安裝好後執行exe檔出現的錯誤訊息
請問大家看的懂是什麼意思嗎???
ActiveX元件無法產生物件
上面兩行是程式寫好封裝好後到某台電腦（98）去安裝執行
安裝好後執行exe檔出現的錯誤訊息
請問大家看的懂是什麼意思嗎???
Round 函數(編號：7018)
使用 Round 函數取值時，發現似乎有時候取出來的值，並不是真正四捨五入後的數值，例如：450.45，取一位小數，按理應該是：450.5，但是 Round 函數取出來卻變成 450.4 ，請問有人遇過這種情形嗎？
為什麼這裡會出錯??(編號：7016)
Private Sub Timer2_Timer()
Text1.Text = Hour '為什麼這裡會出錯
Text2.Text = Minute '為什麼這裡會出錯
Text3.Text = Second '為什麼這裡會出錯
End Sub
Text1.Text = Hour '為什麼這裡會出錯
Text2.Text = Minute '為什麼這裡會出錯
Text3.Text = Second '為什麼這裡會出錯
End Sub
VB6.0 有些字無法顯示？(編號：7012)
請問一下大家為什麼在VB6.0底下有些字沒辦法顯示呢？像"邹"這個字，用輸入法可以打的出來，但是在VB底下出現的卻是一個"?"符號！請各位先進不吝指教....謝謝~~
如何做每十秒更新一次但不會回到第一筆資料(編號：7011)
我用ADO寫的client端資料庫查詢/修改程式
同時會有很多client連進去修改 所以必須常常更新
假設每10秒更新一次
所以我就把.refresh放在timer事件中
但由於我那時可能正在使用中間某一筆資料
被refresh後就會被跳到第一筆資料
我查書上似乎用.bookmark
但寫的不清楚 請問各位知道.bookmark的寫法嗎?
同時會有很多client連進去修改 所以必須常常更新
假設每10秒更新一次
所以我就把.refresh放在timer事件中
但由於我那時可能正在使用中間某一筆資料
被refresh後就會被跳到第一筆資料
我查書上似乎用.bookmark
但寫的不清楚 請問各位知道.bookmark的寫法嗎?
請教教我！(編號：7009)
舉一個例：
CREATE PROCEDURE ORDERbyPNNO
@pnno char (8) ='%'
AS
set nocount on
SELECT XXXXXXXXXXXXXXX
FROM ORDERA INNER JOIN
CUST_A ON ORDERA.O_C_id = CUST_A.C_ID
WHERE (ORDERA.O_PNNO LIKE @pnno )
set cn =new adodb.connection
cn.open "XXXXXXXXXXXXXXXXXxx"
Set rspnno = New adodb.Recordset
rspnno.CursorLocation = adUseClient
rspnno.Open "orderbypnno %", cn, adOpenDynamic, adLockOptimistic, adCmdStoredProc
為什麼這樣查不到東西呢？ 這樣查，出現語法錯誤，把 % 拿掉，又會出現 @PNNO 這個變數是空的！
請教高手，怎麼樣才可以出把參數帶進@pnno中呢？謝謝
CREATE PROCEDURE ORDERbyPNNO
@pnno char (8) ='%'
AS
set nocount on
SELECT XXXXXXXXXXXXXXX
FROM ORDERA INNER JOIN
CUST_A ON ORDERA.O_C_id = CUST_A.C_ID
WHERE (ORDERA.O_PNNO LIKE @pnno )
set cn =new adodb.connection
cn.open "XXXXXXXXXXXXXXXXXxx"
Set rspnno = New adodb.Recordset
rspnno.CursorLocation = adUseClient
rspnno.Open "orderbypnno %", cn, adOpenDynamic, adLockOptimistic, adCmdStoredProc
為什麼這樣查不到東西呢？ 這樣查，出現語法錯誤，把 % 拿掉，又會出現 @PNNO 這個變數是空的！
請教高手，怎麼樣才可以出把參數帶進@pnno中呢？謝謝
PowerPoint file 加使用期限,會自動刪除,By VB(編號：7007)
想寫一個對PowerPoint file加使用期限,且會自動刪除,但Power point 加高安全等級就不會執行巨集了,且如何讓Pwoer Point 開檔時先執行巨集,
如有VB前輩能解決小弟我多日以來的困惑,在此感激步盡
如有VB前輩能解決小弟我多日以來的困惑,在此感激步盡
求教，一個試很久都不行的 store proc 的問題！(編號：7003)
舉一個例：
CREATE PROCEDURE ORDERbyPNNO
@pnno char (8) ='%'
AS
set nocount on
SELECT XXXXXXXXXXXXXXX
FROM ORDERA INNER JOIN
CUST_A ON ORDERA.O_C_id = CUST_A.C_ID
WHERE (ORDERA.O_PNNO LIKE @pnno )
set cn =new adodb.connection
cn.open "XXXXXXXXXXXXXXXXXxx"
Set rspnno = New adodb.Recordset
rspnno.CursorLocation = adUseClient
rspnno.Open "orderbypnno %", cn, adOpenDynamic, adLockOptimistic, adCmdStoredProc
為什麼這樣查不到東西呢？ 這樣查，出現語法錯誤，把 % 拿掉，又會出現 @PNNO 這個變數是空的！
請教高手，怎麼樣才可以出把參數帶進@pnno中呢？謝謝
CREATE PROCEDURE ORDERbyPNNO
@pnno char (8) ='%'
AS
set nocount on
SELECT XXXXXXXXXXXXXXX
FROM ORDERA INNER JOIN
CUST_A ON ORDERA.O_C_id = CUST_A.C_ID
WHERE (ORDERA.O_PNNO LIKE @pnno )
set cn =new adodb.connection
cn.open "XXXXXXXXXXXXXXXXXxx"
Set rspnno = New adodb.Recordset
rspnno.CursorLocation = adUseClient
rspnno.Open "orderbypnno %", cn, adOpenDynamic, adLockOptimistic, adCmdStoredProc
為什麼這樣查不到東西呢？ 這樣查，出現語法錯誤，把 % 拿掉，又會出現 @PNNO 這個變數是空的！
請教高手，怎麼樣才可以出把參數帶進@pnno中呢？謝謝
請問一個stroe proce 的問題！(編號：7002)
請問一下，用程式法連資料庫，rs.open "預儲程序名稱 '參數' ",
XXX,XXX,adcmdstrdproc 這樣，給一個參數的預儲，他給我一個錯誤的消息！
XXX,XXX,adcmdstrdproc 這樣，給一個參數的預儲，他給我一個錯誤的消息！
ado refresh的問題(編號：7001)
我用的是ADO
用Label來一次顯示一筆資料
然後做兩個MovePrevious跟MoveNext的按鍵來更換Label所顯示的資料
由於資料常常會被更新
所以必須常常Refresh
我想到的辦法是把Refresh寫在Previous跟Next兩個按鈕裡
這樣每按一次就Refresh一次
但是問題是每Refresh一次Label就自動回到第一筆資料
所以行不通
請問有什麼方法可以常常Refresh 然後Previous跟Next也可以正常運作呢?
用Label來一次顯示一筆資料
然後做兩個MovePrevious跟MoveNext的按鍵來更換Label所顯示的資料
由於資料常常會被更新
所以必須常常Refresh
我想到的辦法是把Refresh寫在Previous跟Next兩個按鈕裡
這樣每按一次就Refresh一次
但是問題是每Refresh一次Label就自動回到第一筆資料
所以行不通
請問有什麼方法可以常常Refresh 然後Previous跟Next也可以正常運作呢?
label可以顯示adodc的資料...那form可以嗎???(編號：6991)
因為我要用ADODC連到資料庫...可是我要顯示好幾個field的資料
我若是用label那就要用粉多個了...而且我還要把一個fields裡的資料用split分成好幾個(而且不知道會分成幾個)個別顯示在label裡(
那又要動態地產生label.)so...我才問form可以用來顯示
adodc的資料嗎???
我若是用label那就要用粉多個了...而且我還要把一個fields裡的資料用split分成好幾個(而且不知道會分成幾個)個別顯示在label裡(
那又要動態地產生label.)so...我才問form可以用來顯示
adodc的資料嗎???
VB做好的db應用程式安裝到別台電腦的問題(編號：6990)
有一個問不知怎麼解決
我寫的是遠端登入mysql的程式
在程式裡用到了Adodc
寫好時 將它做成安裝檔
然後給別台電腦(無VB) 安裝好然後執行
安裝好的程式就顯示下面的錯誤訊息
"[ADODC]:未知的錯誤。[ADO]:"
按確定後又顯示這樣的錯誤訊息
"執行階段錯誤'430'"
"物件類別不支援Automation或預期介面"
然後根本就無法執行程式
請問這是什麼問題呢?
該怎麼解決?
我寫的是遠端登入mysql的程式
在程式裡用到了Adodc
寫好時 將它做成安裝檔
然後給別台電腦(無VB) 安裝好然後執行
安裝好的程式就顯示下面的錯誤訊息
"[ADODC]:未知的錯誤。[ADO]:"
按確定後又顯示這樣的錯誤訊息
"執行階段錯誤'430'"
"物件類別不支援Automation或預期介面"
然後根本就無法執行程式
請問這是什麼問題呢?
該怎麼解決?
datareport無法更新的問題最新解決方案.........(編號：6988)
我前次所問的datareport無法更新的問題........
我試過大家所提的寶貴意見...
但是都必須離開form1才能refresh......
so......
我用excel的解決方式
如下
Dim aa As Excel.Application
Dim bb As Excel.Workbook
Dim cc As Excel.Worksheet
Set aa = CreateObject("Excel.Application")
'先取得路徑名稱
Set bb = aa.Workbooks.Open("d:\資料庫\books1.xls")
aa.Visible = True
Set cc = bb.Worksheets(1)
cc.Cells(1, 2) = "試試看"
Debug.Print cc.PrintOut
bb.Close (0)
aa.quit
我試過大家所提的寶貴意見...
但是都必須離開form1才能refresh......
so......
我用excel的解決方式
如下
Dim aa As Excel.Application
Dim bb As Excel.Workbook
Dim cc As Excel.Worksheet
Set aa = CreateObject("Excel.Application")
'先取得路徑名稱
Set bb = aa.Workbooks.Open("d:\資料庫\books1.xls")
aa.Visible = True
Set cc = bb.Worksheets(1)
cc.Cells(1, 2) = "試試看"
Debug.Print cc.PrintOut
bb.Close (0)
aa.quit
請指點一下?(編號：6985)
Sq1= "Select * from db where user='chan a*' "
data1.recordSource=sq1
如果資料庫有大量的資料,那麼往往要等幾分鐘.
1. 請問有沒有方法解決呢?
2. 查詢時按Stop 後就停止查詢可以做到嗎?
請指點一下?
data1.recordSource=sq1
如果資料庫有大量的資料,那麼往往要等幾分鐘.
1. 請問有沒有方法解決呢?
2. 查詢時按Stop 後就停止查詢可以做到嗎?
請指點一下?
VB的Round函數可以作到四捨五入嗎?!(編號：6984)
請教各位前輩..VB的Round似乎一定得要大於0.5才會進位...例如
Round(2.5) = 2 而 Round(2.50000001)等於三...
可是我今天的須求是Round(2.5)要等於三...請問有何方法可以辦得到嗎.!?...還是有什麼函數是可以無條件進位的..!?
因為我在Crystal Report 8中..使用Round(2.5) = 3..這樣一來我的資料就沒有一致性...
Round(2.5) = 2 而 Round(2.50000001)等於三...
可是我今天的須求是Round(2.5)要等於三...請問有何方法可以辦得到嗎.!?...還是有什麼函數是可以無條件進位的..!?
因為我在Crystal Report 8中..使用Round(2.5) = 3..這樣一來我的資料就沒有一致性...
Does VB form has width limit?(編號：6981)
I want to use VB printform method to print a A3 papersize datagrid table. But I can not set form and datagrid large than screen? Anyone can help?
Best regards,
Stephen
Best regards,
Stephen
請問DirectX ......(編號：6979)
因為我最近對3D動面和畫面設計有了興趣，但是我又只會VB，所以我聽說VB可以用DirectX來製作3D的圖形和3D動畫，請問DirectX 是VB中的一個物件??嗎或者是.........??
請問DirectX ......(編號：6978)
因為我最近對3D動面和畫面設計有了興趣，但是我又只會VB，所以我聽說VB可以用DirectX來製作3D的圖形和3D動畫，請問DirectX 是VB中的一個物件??嗎或者是.........??
vb6.0 and Excel 的問題請教...(編號：6975)
請問各位先進....
我在vb6.0跑出的資料丟到excel上..
1.有些資料太長,資料被隱藏,看不到完整的資料,要如何將儲存格的長度隨資料長度而放大或縮小..不需用手動的方式去調寬度....
2.如何讓所有儲存格的資料不管是數字或文字都向左邊靠...
如果先將丟出來的數字轉成文字在放上儲存格..我認為
可能行不通...excel 可能會預設為數字...
我在vb6.0跑出的資料丟到excel上..
1.有些資料太長,資料被隱藏,看不到完整的資料,要如何將儲存格的長度隨資料長度而放大或縮小..不需用手動的方式去調寬度....
2.如何讓所有儲存格的資料不管是數字或文字都向左邊靠...
如果先將丟出來的數字轉成文字在放上儲存格..我認為
可能行不通...excel 可能會預設為數字...
vb6.0 and Excel 的問題請教...(編號：6974)
請問各位先進....
我在vb6.0跑出的資料丟到excel上..
1.有些資料太長,資料被隱藏,看不到完整的資料,要如何將儲存格的長度隨資料長度而放大或縮小..不需用手動的方式去調寬度....
2.如何讓所有儲存格的資料不管是數字或文字都向左邊靠...
如果先將丟出來的數字轉成文字在放上儲存格..我認為
可能行不通...excel 可能會預設為數字...
我在vb6.0跑出的資料丟到excel上..
1.有些資料太長,資料被隱藏,看不到完整的資料,要如何將儲存格的長度隨資料長度而放大或縮小..不需用手動的方式去調寬度....
2.如何讓所有儲存格的資料不管是數字或文字都向左邊靠...
如果先將丟出來的數字轉成文字在放上儲存格..我認為
可能行不通...excel 可能會預設為數字...
請問有關封裝的問題....(編號：6973)
我開啟 C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1\setup1.vbp 的檔案修改,做完再將其編譯成setup.exe要放到一的 .CAB 的封包中，可是我利用WINZIP 7.0做加入的動作卻放不進去，有那一種程式可以開啟來加入呢？
Crystal Report 的SQL expression Editor....(編號：6972)
請問Crystal Report 7.0 中SQL expression Editor有何功用及其用法如何???
那兒可找到Crystal Report 的書啊???
那兒可找到Crystal Report 的書啊???
剛看到好的討論~~分享一下~~(編號：6971)
雖說是討論 C# ~~
但VB也將是Visual Studio .Net的一部份~~
http://bbs.openfind.com.tw/cgi-bin/x_read?NO=69.1&BOARD=tw.bbs.comp.oop&DISPLEN=10&SORTBY=0
但VB也將是Visual Studio .Net的一部份~~
http://bbs.openfind.com.tw/cgi-bin/x_read?NO=69.1&BOARD=tw.bbs.comp.oop&DISPLEN=10&SORTBY=0
呆呆的問題(編號：6963)
在我的程式中，我想讓一個textbox中的文字可以隨字體變化！換成粗體、斜體、底線！我的程式碼中是如下：
我不知道要加什麼指令！還是我設錯了！請各位教教我吧！
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Label1.Font.Bold = True
Else
Label1.Font.Bold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = vbChecked Then
Label1.Font.Italic = True
Else
Label1.Font.Italic = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = vbChecked Then
Label1.Font.Underline = True
Else
Label1.Font.Underline = False
End If
End Sub
Private Sub Command1_Click()
Text2.Text = Text1.Text
End Sub
Private Sub Command2_Click()
Text1.Text = Text2.Text
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
POEM = ""
Label1 = Caption = POEM
End Sub
我不知道要加什麼指令！還是我設錯了！請各位教教我吧！
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Label1.Font.Bold = True
Else
Label1.Font.Bold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = vbChecked Then
Label1.Font.Italic = True
Else
Label1.Font.Italic = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = vbChecked Then
Label1.Font.Underline = True
Else
Label1.Font.Underline = False
End If
End Sub
Private Sub Command1_Click()
Text2.Text = Text1.Text
End Sub
Private Sub Command2_Click()
Text1.Text = Text2.Text
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
POEM = ""
Label1 = Caption = POEM
End Sub
資料感知物件 的 Datafields屬性 無法動態指定 ?(編號：6962)
在資料感知物件的 DataSource= DataEnvironment 的前提下.
動態指定資料感知物件 的 Datafields屬性 ,然後出現:
1.錯誤訊息 Binding Collection ErrorL:
Field not updatable,bound property Name: ,field Name:
2.將動態指定的 "欄位名稱" ,當成資料, 存回原 Datafield 指定的
欄位.
這是微軟的bug嗎?
動態指定資料感知物件 的 Datafields屬性 ,然後出現:
1.錯誤訊息 Binding Collection ErrorL:
Field not updatable,bound property Name: ,field Name:
2.將動態指定的 "欄位名稱" ,當成資料, 存回原 Datafield 指定的
欄位.
這是微軟的bug嗎?
HFileOperation 傳回值都是一樣，請問哪裡錯了(編號：6960)
With SHFileOp
.wFunc = FO_DELETE
.pFrom = sFiles
.pTo = sDestination
.fFlags = FOF_FLAGS
End With
lngRetVal = SHFileOperation(SHFileOp)
不管是否刪除成功傳回值都是一樣，所以無法用來判斷，請問哪裡錯了
.wFunc = FO_DELETE
.pFrom = sFiles
.pTo = sDestination
.fFlags = FOF_FLAGS
End With
lngRetVal = SHFileOperation(SHFileOp)
不管是否刪除成功傳回值都是一樣，所以無法用來判斷，請問哪裡錯了
簡易計算機(編號：6959)
各位高手
我是vb初學者--大山, 目前要寫一個vb計算機的作業,但有了問題 :
我如何把"小數點"的程式部分寫出呢???
我現在只能執行到二個整數的+-*/,但如何把"小數點"的
指令給加進去???
我是vb初學者--大山, 目前要寫一個vb計算機的作業,但有了問題 :
我如何把"小數點"的程式部分寫出呢???
我現在只能執行到二個整數的+-*/,但如何把"小數點"的
指令給加進去???
奇怪的刪除指令結果 請指點一下(編號：6957)
錯誤訊息:鍵欄位資訊不足或不正確;太多列被更新所影響.
目的:把 table aaa 所有資料刪除 結果出現如上之錯誤訊息
奇怪的是:::::::::程式不變 但資料筆數不同時
重複多次 有時會成功 有時則出現錯誤 真是粉奇怪!!!!!
(使用vb6.0企業版 access97 jet4.0)
Adodc1.CommandType = adCmdText
Adodc1.CursorLocation = adUseClient
Adodc1.RecordSource = "Select * from aaa"
Adodc1.Refresh
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Wend
目的:把 table aaa 所有資料刪除 結果出現如上之錯誤訊息
奇怪的是:::::::::程式不變 但資料筆數不同時
重複多次 有時會成功 有時則出現錯誤 真是粉奇怪!!!!!
(使用vb6.0企業版 access97 jet4.0)
Adodc1.CommandType = adCmdText
Adodc1.CursorLocation = adUseClient
Adodc1.RecordSource = "Select * from aaa"
Adodc1.Refresh
While Not Adodc1.Recordset.EOF
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Wend
如何利用updown控制textbox中的日期數字(就是日期的增減)(編號：6955)
如何利用updown控制textbox中的日期數字(就是日期的增減),當Mouse一直按著時,會一直加1(或減1),當只按一下時,只會加1(或減1),謝謝.
請教連結資料表的效率(編號：6954)
由於資料來自不同mdb
所以我在其中一個MDB設定了外部連結的table
但是發覺這麼做,效率會down的蠻多的
有其他方法解決嗎?
今天有人用vfp來做,它Select語法後面的table可以指定檔案路徑
為什麼它不用先建立一個Connection ??
所以我在其中一個MDB設定了外部連結的table
但是發覺這麼做,效率會down的蠻多的
有其他方法解決嗎?
今天有人用vfp來做,它Select語法後面的table可以指定檔案路徑
為什麼它不用先建立一個Connection ??
Webclass.asp vs AsyncRead = crash(編號：6953)
為何server端的Webclass.asp 碰到client 的
UserDocument.AsyncRead 查詢時就無法運作?
請教如何解決? 有沒有替代方案 ?
感謝.
UserDocument.AsyncRead 查詢時就無法運作?
請教如何解決? 有沒有替代方案 ?
感謝.
我用vb的datareport去製作報表,,列印資料,,,但資料更新了,,,再重(編號：6940)
假設你的report叫作 Report1
所使用的DataEnviroment為 DE1, 下面用的Command叫作 SQL1
範例如下
sub xxx()
Report1.show vbModal
DE1.rsSQL1.close '這一行加上去後,每次就會是最新的了
end sub
所使用的DataEnviroment為 DE1, 下面用的Command叫作 SQL1
範例如下
sub xxx()
Report1.show vbModal
DE1.rsSQL1.close '這一行加上去後,每次就會是最新的了
end sub
shell呼叫外部程式出現錯誤訊息(編號：6944)
我的系統是win98se,vb6.0,我在vb裡用shell呼叫即時戰略遊戲AOK時確出現"無法啟動圖形介面,請確認你的視訊卡是否支援DirectDraw",但我離開vb直接去執行,卻可以玩,有人能幫忙嗎?
如何將TIME插入SQL內(編號：6943)
我想將Date&Time更新到sql的table中寫法如下:
d=cstr(now)
sql="update sign_in_out set sign_in='"+d"' where emp_no='"+x+"' and sign_date='"+date+"'"
執行後會出現型態不符的錯誤訊息,請各位高手我該如何將日期時間
塞到sign_in(型態為datetime)這個欄位中?
d=cstr(now)
sql="update sign_in_out set sign_in='"+d"' where emp_no='"+x+"' and sign_date='"+date+"'"
執行後會出現型態不符的錯誤訊息,請各位高手我該如何將日期時間
塞到sign_in(型態為datetime)這個欄位中?
如何秀出檔案內容....(編號：6941)
我是一個初學VB的新手，有一個問題想請教各位
我想在程式一開始執行就秀出文字檔的內容要如何做
且需把該內容存入一的自訂的變數中
下面是部分程式碼：
Private Sub MAC_DragDrop(Source As Control, X As Single, Y As Single)
List1.Clear
If Dir("sn.txt") = "" Then Exit Sub
Open "sn.txt" For Input As #1
Do
Line Input #1, TmpStr
List1.AddItem TmpStr
Loop Until EOF(1)
Close #1
End Sub
我該如何修改呢？
我想在程式一開始執行就秀出文字檔的內容要如何做
且需把該內容存入一的自訂的變數中
下面是部分程式碼：
Private Sub MAC_DragDrop(Source As Control, X As Single, Y As Single)
List1.Clear
If Dir("sn.txt") = "" Then Exit Sub
Open "sn.txt" For Input As #1
Do
Line Input #1, TmpStr
List1.AddItem TmpStr
Loop Until EOF(1)
Close #1
End Sub
我該如何修改呢？
datagrid的update問題(編號：6937)
我想用datagrid直接對data作修改
我有5個field,但只show 4個給user改
第5個filed我要在改時順便record modify time
可以作嗎?我試不出來,不知道要用何種方式
可以指點一下嗎?Thanks!
我有5個field,但只show 4個給user改
第5個filed我要在改時順便record modify time
可以作嗎?我試不出來,不知道要用何種方式
可以指點一下嗎?Thanks!
如何將檔案隱藏?(編號：6936)
請問各位高手:
如何將檔案隱藏?我公司的客戶要求將一些文字檔隱藏,不要讓操作者隨意更改,若用檔案屬性修成隱藏屬性但是在勾選顯示所有檔案的狀態下就無效了.VB 或 API 可以做到嗎?
如何將檔案隱藏?我公司的客戶要求將一些文字檔隱藏,不要讓操作者隨意更改,若用檔案屬性修成隱藏屬性但是在勾選顯示所有檔案的狀態下就無效了.VB 或 API 可以做到嗎?
使用者控制項與api(編號：6935)
請問在使用者控制項內是否無法使用api呢...不然怎麼老是出現
物件模組中的public成員不可以是常數,固定長度的字串,陣列,使
用者自訂型態及declare的陳述式,那麼我該如何在控制項中,加入
呼叫api的功能呢???
以下為該寫入檔案之api
Declare Function WriteFile Lib "kernel32.dll" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
物件模組中的public成員不可以是常數,固定長度的字串,陣列,使
用者自訂型態及declare的陳述式,那麼我該如何在控制項中,加入
呼叫api的功能呢???
以下為該寫入檔案之api
Declare Function WriteFile Lib "kernel32.dll" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, lpOverlapped As Any) As Long
Crystal Report 8 與 RecordSet 的連結問題(編號：6934)
我想利用Crystal Report 8整合在VB6中的Active Designer來設計報表，但不知道如何將VB所建立的RecordSet當作Crystal Report的Data Source。希望有這方面經驗的能手給予指導，謝謝。
誰會改成 Quick sort 的方式呢???(編號：6931)
以下是 使用泡沬排序法,由小至大排列 的程式
如何改成快速排序法呢???????
Dim Num(8) As Integer
Private Sub Ascend_cmd_Click()
n = 0
For i = 1 To 8
a = Rnd * 10
n = n + 1 '亂數取八個數值 放入陣列中'
Num(n) = CInt(a)
Next i
For i = 7 To 1 Step -1
For j = 1 To i
If Num(j) ＞ Num(j + 1) Then
temp_val = Num(j)
Num(j) = Num(j + 1)
Num(j + 1) = temp_val
End If
Next j
Next i
End Sub
如何改成快速排序法呢???????
Dim Num(8) As Integer
Private Sub Ascend_cmd_Click()
n = 0
For i = 1 To 8
a = Rnd * 10
n = n + 1 '亂數取八個數值 放入陣列中'
Num(n) = CInt(a)
Next i
For i = 7 To 1 Step -1
For j = 1 To i
If Num(j) ＞ Num(j + 1) Then
temp_val = Num(j)
Num(j) = Num(j + 1)
Num(j + 1) = temp_val
End If
Next j
Next i
End Sub
請問如何使用多工???(編號：6927)
請問如何使用多工???
首先謝謝站長能回我的信^_^
我想問的是我要如何規劃我的程式才能多工(意思是說一個程式裏它可一邊輪詢
,且執行輪詢的程式,此時假設我按下command,程式它不會中斷輪詢且執行輪詢的程式,
而它也能處理我按下command要處理的程式)????????
首先謝謝站長能回我的信^_^
我想問的是我要如何規劃我的程式才能多工(意思是說一個程式裏它可一邊輪詢
,且執行輪詢的程式,此時假設我按下command,程式它不會中斷輪詢且執行輪詢的程式,
而它也能處理我按下command要處理的程式)????????
如何在其他事件中呼叫ToolBar的Click事件呢?(編號：6926)
我在其他事件中...
Call ToolBar1("ADD")..可是這樣卻會發生錯誤..
請問...我應該傳入何種的參數才能正確執行呢?謝謝
Call ToolBar1("ADD")..可是這樣卻會發生錯誤..
請問...我應該傳入何種的參數才能正確執行呢?謝謝
如何用VB寫出發電子報的功能呢?(編號：6925)
Dear All:
我想請問大家~~~我不知如何用Visual Basic寫出像gigigaga或kimo或pchome那樣的發報功能...能把網頁包在email裡?我一點頭緒都沒有...可否請大家指點一下呢?感激不盡.....
我想請問大家~~~我不知如何用Visual Basic寫出像gigigaga或kimo或pchome那樣的發報功能...能把網頁包在email裡?我一點頭緒都沒有...可否請大家指點一下呢?感激不盡.....
crystal report 一問(編號：6924)
CryRpt01.SQLQuery = "select cuid,trcn,prno,uprc,tqty,tdat from r_jlfc where tdat ＞= #2000/10/1#"
then....result is .
Error detected by database DLL.
what's wrong?
請問如何解決...thanx..
then....result is .
Error detected by database DLL.
what's wrong?
請問如何解決...thanx..
MsgBox的按鍵Default是否可更改?(編號：6923)
MsgBox 的 VbMsgBoxStyle設為vbYesNo但是MsgBox出現時都是以vbYes為Default..請問是否可改成vbNo呢.?謝謝
二進位寫檔問題(編號：6921)
請問
小弟目前正在寫一程式,透過winsock傳送檔案至另一pc
a電腦將檔案以二進制方式開啟,並存放在一byte陣列中
並透過winsock傳送至另一b電腦
b電腦接收後,將字串寫入二進制檔,但為何寫入之後會在原資料前
多寫入一堆ff,而且很多...
為啥米...
小弟目前正在寫一程式,透過winsock傳送檔案至另一pc
a電腦將檔案以二進制方式開啟,並存放在一byte陣列中
並透過winsock傳送至另一b電腦
b電腦接收後,將字串寫入二進制檔,但為何寫入之後會在原資料前
多寫入一堆ff,而且很多...
為啥米...
有關 OCX 小小小問題(編號：6920)
請問一下各位大哥，我用 VB5 寫了一個 OCX 檔案，但插入到我的主程式時只要一執行完程式，其插入的 OCX 物件就會出現#且佈滿到整個物件中不知是否用VB5寫的才會如此?????
Crystal Report 一問(編號：6919)
我想要在VB內下個sql去select 我的DATABASE
CryRpt01.Connect ="DSN=;UID=;PWD=;DSQ="
CryRpt01.SQLQuery = "select * from ...where"
CryRpt01.Action = 1
結果是SQL server error ....
my crystal report :4.6
VB 6.0
database : oracle
the version is too old or something wrong?!
thanx
CryRpt01.Connect ="DSN=;UID=;PWD=;DSQ="
CryRpt01.SQLQuery = "select * from ...where"
CryRpt01.Action = 1
結果是SQL server error ....
my crystal report :4.6
VB 6.0
database : oracle
the version is too old or something wrong?!
thanx
如何將A陣列與B陣列相加到C陣列(都是一維陣列)(編號：6916)
dim A() AS byte, B() AS byte, C() as byte
C = A + B
如何做到以上功能, 一定要用迴圈做?還有其他方法?
C = A + B
如何做到以上功能, 一定要用迴圈做?還有其他方法?
zip的元件(編號：6915)
大家好，小弟曾看過一zip 的ocx ，但一時間也找不到，如有人知道請告知，謝謝!!
三優的那一個，無法下傳!
或是有什麼法子可以用vb解zip 的，因為不想用shell 的法子去call
pkunzip 。
再次謝謝!!
三優的那一個，無法下傳!
或是有什麼法子可以用vb解zip 的，因為不想用shell 的法子去call
pkunzip 。
再次謝謝!!
有事請問(編號：6914)
Private Sub Form_Activate()
Print "按Y鍵結束程式：";
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Inkey = UCase(Chr(KeyAscii)
Print Inkey
If Inkey = "Y" Then
End
End If
我跑不出來，不知道可不可以教教我
Print "按Y鍵結束程式：";
End Sub
Print "按Y鍵結束程式：";
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Inkey = UCase(Chr(KeyAscii)
Print Inkey
If Inkey = "Y" Then
End
End If
我跑不出來，不知道可不可以教教我
Print "按Y鍵結束程式：";
End Sub
Crystal Structure(編號：6909)
How to write Crystal Structure by Visual Basic
pls go to see the example to this web site http://jas.eng.buffalo.edu/education/solid/unitCell/home.html
pls go to see the example to this web site http://jas.eng.buffalo.edu/education/solid/unitCell/home.html
Crystal Report 製作報表(編號：6907)
目前正在做一份庫存報表
報表架構如下
********************************
產品A 出貨狀況 進貨狀況
********************************
實例如下
產品 上月庫存 出貨日期及量 進貨日期及量
鉛筆 10000 89/10/03 2000 89/10/1 3000
89/10/05 1000 89/10/5 5000
89/10/10 500
89/10/15 200
PS 此三種資料分別來自三個不同的Tables
利用Crystal Report是否有辦法能做出此功能
因為我目前碰到的狀況是
若出貨有4筆資料
則進貨資料將會重複出現4次
無法向上所列
出貨4筆 進貨2筆
能否教教我?
報表架構如下
********************************
產品A 出貨狀況 進貨狀況
********************************
實例如下
產品 上月庫存 出貨日期及量 進貨日期及量
鉛筆 10000 89/10/03 2000 89/10/1 3000
89/10/05 1000 89/10/5 5000
89/10/10 500
89/10/15 200
PS 此三種資料分別來自三個不同的Tables
利用Crystal Report是否有辦法能做出此功能
因為我目前碰到的狀況是
若出貨有4筆資料
則進貨資料將會重複出現4次
無法向上所列
出貨4筆 進貨2筆
能否教教我?
transaction(編號：6906)
請問當recordset已針對table樂觀鎖定時, 而在transaction中己完成
record的 update時, 是否會在 transaction commit 時失敗,如有失敗會是那方面的問題,
姑且不論硬體設施的問題, 純就軟體ap面討論,
record的 update時, 是否會在 transaction commit 時失敗,如有失敗會是那方面的問題,
姑且不論硬體設施的問題, 純就軟體ap面討論,
如何有效管理日漸澎脹的方案(續),太多文章在那個了...(編號：6905)
回應ChrisTorng所說的.我之前想表達的分工分細些有點這種意思
不過我想問一下...在Change事件中怎麼判斷 ?
by Peter ^_^
P.s:這個標題真是讓小弟受益多多^^
P.s2:小弟現在畫百分比也都會先檢查再決定要不要重繪^^
by Peter ^_^
不過我想問一下...在Change事件中怎麼判斷 ?
by Peter ^_^
P.s:這個標題真是讓小弟受益多多^^
P.s2:小弟現在畫百分比也都會先檢查再決定要不要重繪^^
by Peter ^_^
如何利用 ado 抓 sql server data(編號：6902)
我已經會捉資料庫的資料
不過想在我的text box show的資料是變動的(ex:每半小時捉取資料庫 flow field的資料是變動的)
如何利用 ado 抓 sql server data show text box 資料是變動
不過想在我的text box show的資料是變動的(ex:每半小時捉取資料庫 flow field的資料是變動的)
如何利用 ado 抓 sql server data show text box 資料是變動
VB + SQL 的 Table Lock(編號：6900)
本人在寫 VB 程式中遇到一些問題, 一起想想好嗎???
多人選取同一 Table 時,
(用 COM & Dll), 沒有長時間連箸 SQL.
是否可以把某一個 Record 鎖箸?
使其他人只可 Select, 不可 Update & Delete....
我不想在 Table 中加一個 Bit Field 來控制.....
亦不想在 SQL 中行 sp 的語句.....
是否有其他好的方法, 我沒有注意到呢????
可否給我指點一下嗎???
多人選取同一 Table 時,
(用 COM & Dll), 沒有長時間連箸 SQL.
是否可以把某一個 Record 鎖箸?
使其他人只可 Select, 不可 Update & Delete....
我不想在 Table 中加一個 Bit Field 來控制.....
亦不想在 SQL 中行 sp 的語句.....
是否有其他好的方法, 我沒有注意到呢????
可否給我指點一下嗎???
給你5000元,,,,,,,,,,,,建立好一個電話號碼的資料庫,,,,要如何將(編號：6898)
我有一個資料庫檔案,,,是電話號碼,,如何在vb的作業下,定時將抹一個文字檔傳真出去,,,如果你能幫我解決問題,,,給你5000元....
請call 0926299829 林先生
請call 0926299829 林先生
about crystal report(編號：6895)
想請問一下crystal report
我的DATABASE資料一直在變
我如何在VB中如何傳一個參數or SQL使的REPORT產生
ex.我要選擇產生七月或八月...or 哪個客戶資料 報表
有點急！ 感謝不盡
我的DATABASE資料一直在變
我如何在VB中如何傳一個參數or SQL使的REPORT產生
ex.我要選擇產生七月或八月...or 哪個客戶資料 報表
有點急！ 感謝不盡
如何在VB上寫一轉後序的動作(編號：6891)
Dear All
請問各大高手，若我有一數學式，我想將這個數學式
"5*(3+4/5*(6+(7*8)/9)/10*11+12)/13"轉成後序式
我該如何下手呢....
freeing 2000.10.17
請問各大高手，若我有一數學式，我想將這個數學式
"5*(3+4/5*(6+(7*8)/9)/10*11+12)/13"轉成後序式
我該如何下手呢....
freeing 2000.10.17
怎麼阻止計算?(編號：6890)
1)有沒有什麼方法可以一定要使用者先輸入數字之後.... 那麼計算才會開始?!否則就一直出現msgbox!
如
text3.text =val(text1.text)+val(text2.text)
if text1.text= "" then
msgbox="PLease input number in text1"
' Block the calculation
??? 要怎麼寫?
2) 如果text1.text 沒有輸入任何東西.... 在msgBox 出現告知使用者後.... 那麼一閃一閃的forcus 還是什麼 " I "( 我不知道這叫什麼) 會出現在 text1 的框框裡使使用者知道哪裡忘記填寫?!
謝謝~~
謝謝~~
如
text3.text =val(text1.text)+val(text2.text)
if text1.text= "" then
msgbox="PLease input number in text1"
' Block the calculation
??? 要怎麼寫?
2) 如果text1.text 沒有輸入任何東西.... 在msgBox 出現告知使用者後.... 那麼一閃一閃的forcus 還是什麼 " I "( 我不知道這叫什麼) 會出現在 text1 的框框裡使使用者知道哪裡忘記填寫?!
謝謝~~
謝謝~~
yj353(編號：6889)
1)有沒有什麼方法可以一定要使用者先輸入數字之後.... 那麼計算才會開始?!否則就一直出現msgbox!
如
text3.text =val(text1.text)+val(text2.text)
if text1.text= "" then
msgbox="PLease input number in text1"
' Block the calculation
??? 要怎麼寫?
2) 如果text1.text 沒有輸入任何東西.... 在msgBox 出現告知使用者後.... 那麼一閃一閃的forcus 還是什麼 " I "( 我不知道這叫什麼) 會出現在 text1 的框框裡使使用者知道哪裡忘記填寫?!
謝謝~~
謝謝~~
如
text3.text =val(text1.text)+val(text2.text)
if text1.text= "" then
msgbox="PLease input number in text1"
' Block the calculation
??? 要怎麼寫?
2) 如果text1.text 沒有輸入任何東西.... 在msgBox 出現告知使用者後.... 那麼一閃一閃的forcus 還是什麼 " I "( 我不知道這叫什麼) 會出現在 text1 的框框裡使使用者知道哪裡忘記填寫?!
謝謝~~
謝謝~~
先不要讓form2 跳出來?!how~(編號：6888)
要怎樣防止form2 跳出來?!
我現在說如果在form1的 text1 是空白的..那麼msgbox 會跳出來叫你輸入數字進去! 但是問題是..我要怎麼讓使用者確實輸入數字後..歐form2才會跳出來呢?!
我的問題就是雖然msgbox 跳出來跟使用者說要輸入..歐但是同時form2 也出現! 因為我按的鈕是要讓form1 都計算好後,按下去form2就會出現剛剛的一些數字~~~
請幫幫我吧~~ 謝謝~~
我現在說如果在form1的 text1 是空白的..那麼msgbox 會跳出來叫你輸入數字進去! 但是問題是..我要怎麼讓使用者確實輸入數字後..歐form2才會跳出來呢?!
我的問題就是雖然msgbox 跳出來跟使用者說要輸入..歐但是同時form2 也出現! 因為我按的鈕是要讓form1 都計算好後,按下去form2就會出現剛剛的一些數字~~~
請幫幫我吧~~ 謝謝~~
print format 怪怪的(編號：6887)
~我要怎麼把print format 放進text3.text 呢?!
我再text1 = 2 寫 text2=3
text3.text= val(text1.text)/ val(text2.text)
print format (val(text1.text)/ val(text2.text),"###.##")
我這樣寫..結果卻答案0.66666 在text3 的box 裡
而0.67 卻在form 裡面?!
我現在要怎樣把0.67 可以在text3 裡面顯示呢?
謝謝~~
我再text1 = 2 寫 text2=3
text3.text= val(text1.text)/ val(text2.text)
print format (val(text1.text)/ val(text2.text),"###.##")
我這樣寫..結果卻答案0.66666 在text3 的box 裡
而0.67 卻在form 裡面?!
我現在要怎樣把0.67 可以在text3 裡面顯示呢?
謝謝~~
如何做matrix配對?!(編號：6885)
我現在要做的事有關數學的matrix table~
就是 x= 25, 50, 75, 100 , 125 , 175 , 200 .....
Y= 25 2 9 15 30 52 30
50 10 55 100 30 22 90
75......
100
125
175
200
這樣你應該知道我的意思了吧?! 我是想把combo1= x- axis ; combo2 = y-axis
當然裡面的matrix 沒有一定的公式是我自己輸入的數字~~
你有任何更快更好的方式可以寫成這樣的程式嗎?!
就是當我隨意輸入x=200 y = 50 那麼答案就馬上顯示為 90
就是 x= 25, 50, 75, 100 , 125 , 175 , 200 .....
Y= 25 2 9 15 30 52 30
50 10 55 100 30 22 90
75......
100
125
175
200
這樣你應該知道我的意思了吧?! 我是想把combo1= x- axis ; combo2 = y-axis
當然裡面的matrix 沒有一定的公式是我自己輸入的數字~~
你有任何更快更好的方式可以寫成這樣的程式嗎?!
就是當我隨意輸入x=200 y = 50 那麼答案就馬上顯示為 90
關於label box(編號：6883)
請問如何才可以把label box內的文字逐句分開?
e.g. 將 "It is an apple. It is red in colour."
---＞ "It is an apple.
It is red in colour."
Thanks
e.g. 將 "It is an apple. It is red in colour."
---＞ "It is an apple.
It is red in colour."
Thanks
VB 宣告 integer 及 long 的問題(編號：6881)
請教各位高手,因為 VB 的 integer 是從 -30000多
到 30000多,但我須要類似 C 語言 unsign 的功能
因為我剛好只須要 0-50000 的範圍,故是否有辦法
將 integer 調整為 0-65535,
我無法宣告成 long,因為long 是4byte,而我的資料
太多,約佔計億體 10M ,故再設為 long 記憶體受不了
是否有其他的辦法,若確定沒有,請回答沒有,請不要不理我
謝謝
到 30000多,但我須要類似 C 語言 unsign 的功能
因為我剛好只須要 0-50000 的範圍,故是否有辦法
將 integer 調整為 0-65535,
我無法宣告成 long,因為long 是4byte,而我的資料
太多,約佔計億體 10M ,故再設為 long 記憶體受不了
是否有其他的辦法,若確定沒有,請回答沒有,請不要不理我
謝謝
無法讀檔....(編號：6879)
你好啊，我本來寫了一個程式，後來想用VB中的封包功能做成網頁，所以我開了另一個視窗加入Active X Document執行檔，然後再將原本的表單複製過來，結果執行時無法將檔案讀入，可是在原本的程式裡都OK啊！！那些元件也都有載入啊！！那一段錯誤的程式碼如下：
Private Sub mOpen_Click() ' 『檔案/開啟舊檔』命令
Dim S As String, f As Integer
If Changed = True Then
If QuerySaveFile = False Then Exit Sub
End If
On Error Resume Next
With CommonDialog1
.CancelError = True
If Len(.InitDir) = 0 Then .InitDir = App.Path
.DialogTitle = "開啟文字檔"
.Filter = "(*.nc)!*.nc!所有檔案(*.*)!*.*"
.ShowOpen
If Err.Number ＜＞ cdlCancel Then
fs = CreateObject("FileSystemObject")
txtf = CreateObject("TextStream")
Set txtf = fs.OpenTextFile(.filename, ForReading)
Text1.Text = txtf.ReadAll
txtf.Close
Changed = False
End If
End With
End Sub
Private Sub mOpen_Click() ' 『檔案/開啟舊檔』命令
Dim S As String, f As Integer
If Changed = True Then
If QuerySaveFile = False Then Exit Sub
End If
On Error Resume Next
With CommonDialog1
.CancelError = True
If Len(.InitDir) = 0 Then .InitDir = App.Path
.DialogTitle = "開啟文字檔"
.Filter = "(*.nc)!*.nc!所有檔案(*.*)!*.*"
.ShowOpen
If Err.Number ＜＞ cdlCancel Then
fs = CreateObject("FileSystemObject")
txtf = CreateObject("TextStream")
Set txtf = fs.OpenTextFile(.filename, ForReading)
Text1.Text = txtf.ReadAll
txtf.Close
Changed = False
End If
End With
End Sub
找個表單的圖片!!!!(編號：6878)
我想找個漂亮的圖片類似播放圖片的介面,用來覆蓋在表單上,若有人知道哪個網站上有提供類似的圖片能告訴我嗎?謝謝!
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
四捨五入(編號：6877)
我現在的計算都會出現大概有十位數的小數點
如 : 10/3 = 3.3333333333333....
就是如何做兩位小數點的四捨五入法呢??
10/ 7 = 1.42857... -----＞ 1.43
謝謝指導~
如 : 10/3 = 3.3333333333333....
就是如何做兩位小數點的四捨五入法呢??
10/ 7 = 1.42857... -----＞ 1.43
謝謝指導~
先讓 msgbox 只是在計算(編號：6876)
有沒有辦法先不要讓計算程式計算?!等到全部的資料都輸進時才執行?!
如馬的腳 + 人的腳 + 青蛙的腿
我現在程式的問題是當我輸入 : 馬 = 4 + "忘記寫人的腳" + 4 = 8 這時後跳出msgbox告知使用者 忘記輸入人的腳......
我現在是構想要怎樣先讓msgbox 跑出來,如果我忘記輸入 馬或人或青蛙的腳 時.... 但是卻不會先計算出來~~ 也就是說如果依照上面的問題我忘記輸入人的腳的話..那麼就不會計算也不會出現"8" 的答案?!
謝謝~~
如馬的腳 + 人的腳 + 青蛙的腿
我現在程式的問題是當我輸入 : 馬 = 4 + "忘記寫人的腳" + 4 = 8 這時後跳出msgbox告知使用者 忘記輸入人的腳......
我現在是構想要怎樣先讓msgbox 跑出來,如果我忘記輸入 馬或人或青蛙的腳 時.... 但是卻不會先計算出來~~ 也就是說如果依照上面的問題我忘記輸入人的腳的話..那麼就不會計算也不會出現"8" 的答案?!
謝謝~~
crystal reports可以預覽且印出word檔嗎,或是只可用於txt,rft?(編號：6872)
您好:
請問crystal reports可以預覽且印出word檔嗎?
因為我想將文件附在程式外,以後文件異動就不需要進程式修改.
若可行,請問如何搭配check box同時選多個檔案依序預覽且印出.例如有三個文件w1,w2,w3若全都選可否預覽成
-----------
! w1的內容!
! w2的內容!
! w3的內容!
----------- 且可印出...
多謝!
請問crystal reports可以預覽且印出word檔嗎?
因為我想將文件附在程式外,以後文件異動就不需要進程式修改.
若可行,請問如何搭配check box同時選多個檔案依序預覽且印出.例如有三個文件w1,w2,w3若全都選可否預覽成
-----------
! w1的內容!
! w2的內容!
! w3的內容!
----------- 且可印出...
多謝!
請問如何使textbox在內容為空白時,出現對話框(編號：6871)
Private Sub Command1_Click()
If Text1.Text ＞ -1 And Text1.Text ＜ 64 Then
MSComm1.Output = Chr(Text1.Text)
Else
MsgBox "請輸入正確的數字", 48, "注意"
End If
End Sub
上面是我想要功能的的程式碼
如果我想要在沒輸入數字的情況下,按下輸入數字的按鈕,就會出現程式碼中所描述的對話框,請問是將程式碼的第二行寫成
If Text1.text ＞ -1 And Text1.Text ＜ 64 And Text1.text ＜＞ "" Then
這樣可行嗎？
If Text1.Text ＞ -1 And Text1.Text ＜ 64 Then
MSComm1.Output = Chr(Text1.Text)
Else
MsgBox "請輸入正確的數字", 48, "注意"
End If
End Sub
上面是我想要功能的的程式碼
如果我想要在沒輸入數字的情況下,按下輸入數字的按鈕,就會出現程式碼中所描述的對話框,請問是將程式碼的第二行寫成
If Text1.text ＞ -1 And Text1.Text ＜ 64 And Text1.text ＜＞ "" Then
這樣可行嗎？
如何有效管理日漸澎脹的方案(編號：6870)
一開始在vb建立方案(project), 表單只有少少幾個, 程式功能也不多, 日後客戶逐漸要求更多功能, 程式的外觀要更美觀, 程式要更自動化, 結果加來加去, 現在已經有十幾個表單, 每個表單的上有許多的控制項, 程式碼全部印出來要二百多頁, 有時自己都搞不清那個功能是寫在那個module還是form,
不知先進們有什麼建議, 或是知道vb專案管理的書籍可以閱讀, 中英皆可,
謝謝
不知先進們有什麼建議, 或是知道vb專案管理的書籍可以閱讀, 中英皆可,
謝謝
vb來頡取的四支ccd影像的軟體部份(編號：6869)
不好意思 請問您vb來頡取的ccd影像的軟體部份
我現在有一個問題就是如果要同時頡取四支的ccd傳來的影像要如何做?
我現在買的這一張卡有四個port 可同時接上四支但我只知道如何頡取第一個port
傳來的影像 而不知要如何頡取第2第3第4port的影像頡取至畫面上
是否能請各位高手指導一二?
謝謝!!!
我現在有一個問題就是如果要同時頡取四支的ccd傳來的影像要如何做?
我現在買的這一張卡有四個port 可同時接上四支但我只知道如何頡取第一個port
傳來的影像 而不知要如何頡取第2第3第4port的影像頡取至畫面上
是否能請各位高手指導一二?
謝謝!!!
WHERE條件(編號：6867)
請問各位高手, 在VB中想要在select的where語句中加入幾個條件, 但是那幾個條件不是在每次查select的時候都會用到? 還有在where條件時, 要抓出A欄位中包含某個字串的資料要怎么寫? tks!
求救-限制textbox之輸入行數(編號：6866)
1. text1 之multline 為true 時如何限制textbox之輸入行數
2. 在print 時, 如何印出multline 之內容
懇請賜教
2. 在print 時, 如何印出multline 之內容
懇請賜教
6535 小吳大大 Bug 乎?(編號：6864)
在 6535 篇所說的 Bug 好像是全文搜索才有的...
剛剛試了一下...
下一篇指到自己了? 請注意文章編號與下一篇編號!
------------------------------------------------
文章編號：6784 璉璉請進~~
上一篇：＜無＞
下一篇：6784 璉璉請進~~ 重新整理 回討論區目錄
------------------------------------------------
測試時間: 89/10/16 14:40
剛剛試了一下...
下一篇指到自己了? 請注意文章編號與下一篇編號!
------------------------------------------------
文章編號：6784 璉璉請進~~
上一篇：＜無＞
下一篇：6784 璉璉請進~~ 重新整理 回討論區目錄
------------------------------------------------
測試時間: 89/10/16 14:40
有關四則運算的問題(編號：6863)
有關四則運算的問題
我做了一個四則運算的程式，先輸入A和B兩個數值，只要按＋、－、＊、／，就會出現結果！
如:A:100
B:200
按"＋"鈕後，則在Label4顯示"100+200=300"
但必須在Label4中一起顯示。
以下我的做法：
Label4.Caption=Val(Text1.text)+Val(Text2.text)
我的做法只能夠直接顯示300這個結果，卻不能顯示為100+200=300，請各位愛好VB、懂得VB的網友為我解答。
我做了一個四則運算的程式，先輸入A和B兩個數值，只要按＋、－、＊、／，就會出現結果！
如:A:100
B:200
按"＋"鈕後，則在Label4顯示"100+200=300"
但必須在Label4中一起顯示。
以下我的做法：
Label4.Caption=Val(Text1.text)+Val(Text2.text)
我的做法只能夠直接顯示300這個結果，卻不能顯示為100+200=300，請各位愛好VB、懂得VB的網友為我解答。
純文字檔如何讓列印時強制分頁?(有無特殊控制符號)(編號：6859)
Hi 大家好:
小弟記得在以前Dos mode的He5,pe2等要讓印表機印分頁時有特殊的控制符號或字串如 ~ip10Z;等..
不知有沒有人用vb做過在純文字中有如word可插入分隔線的方法 for print用.
謝謝!
小弟記得在以前Dos mode的He5,pe2等要讓印表機印分頁時有特殊的控制符號或字串如 ~ip10Z;等..
不知有沒有人用vb做過在純文字中有如word可插入分隔線的方法 for print用.
謝謝!
請問關於多個 ListBox 的問題～～(編號：6854)
我的表單上有3個ListBox，這3個ListBox裡面資料數目都一致，
當我選了List1當中的一項時，
如何使List2和List3都自動跳到同一位置呢？
例如我選擇了List1的第5項，
則List2和List3的反白也會跳到第5項。
謝謝賜教～～～感激不盡～～～～～
當我選了List1當中的一項時，
如何使List2和List3都自動跳到同一位置呢？
例如我選擇了List1的第5項，
則List2和List3的反白也會跳到第5項。
謝謝賜教～～～感激不盡～～～～～
請問如何用vb得知 區域網路共有幾台電腦(編號：6851)
最近想用vb做一個讓區網的電腦可以聊天的程式 可使遇到了一個難題 就是不知道如何抓到整個區域網路上的電腦 只能寫死在程式中 不知有否方法可以抓到 非常謝謝
計算圓面積的小問題?(編號：6848)
我是VB6的初學者，我設計了一個程式是算圓面積的，必須先輸入半徑並按確定才會顯示在Label2，但我遇到了一些錯誤，請各位網友解答！
我在”確定”鈕設定如下：
Label2.Caption="圓面積為："+ Val(Text1.Text) * 3.14
請問錯在那裡呢?請指教,謝謝
我在”確定”鈕設定如下：
Label2.Caption="圓面積為："+ Val(Text1.Text) * 3.14
請問錯在那裡呢?請指教,謝謝
未完成的專案如何處理(編號：6847)
我有未完成的VB資料庫專案,當系統要重灌或硬碟重新分割時,將此專案備份出來,系統灌好後再複製回原來位址去,結果開啟時老是有路徑錯誤和載入錯誤的問題,甚至造成專案毀損,請問像我這種情形是否有方法可以解決?
How to create mdb file by using VB code?(編號：6846)
請教高手:
請問如何利用VB寫出建立新的ACCESS 200 MDB檔,
並如何在MDB檔中create 新的table layout, 謝謝!
請問如何利用VB寫出建立新的ACCESS 200 MDB檔,
並如何在MDB檔中create 新的table layout, 謝謝!
訂閱：
文章 (Atom)