我想寫一個textbox但它只限輸入數字
ex:
程式設定只能在textbox中輸入四個數字，若少餘or多餘會自動有個msg提醒...
另外教我一下文字的限制方法...謝謝
提供小吳 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 .
有關於msgbox的問題(編號：6513)
請問一下.....
平常msgbox的程式
ex:
a= msgbox("內容",0,"標題內容")
但是我想在一個msgbox中顯示多行的"內容"
ex:
標題內容
座號：123
性名：kook
生日：991122
請大家教我一下....
平常msgbox的程式
ex:
a= msgbox("內容",0,"標題內容")
但是我想在一個msgbox中顯示多行的"內容"
ex:
標題內容
座號：123
性名：kook
生日：991122
請大家教我一下....
Data Environment 可否與 RDS 共用?(編號：6506)
請問我們可否用VB6 SP4 Data Environment 以RDS的方式連結到遠端的SQL Server?
如果可以,請問該怎麼做?
如果可以,請問該怎麼做?
我真的不會排拉!(編號：6505)
有誰可以指導我怎麼排數字大小拉?!
就是在三個text box 裡隨便寫上任何數字! 然後按一下扭就可以馬上把大小列在另三個textbox 裡面?!
就可以窩點提示好了..歐要怎麼讓大小的排列跑到另三個裡文字框裡面呢?!
多謝~~~
就是在三個text box 裡隨便寫上任何數字! 然後按一下扭就可以馬上把大小列在另三個textbox 裡面?!
就可以窩點提示好了..歐要怎麼讓大小的排列跑到另三個裡文字框裡面呢?!
多謝~~~
Linux上的Basic開發系統(Visual Basic for Linux)(編號：6502)
終於看到有關在Linux上開發Basic系統的資料了
一個完全可以讓你快速開發Basic的工具
有興趣的可以去參考看看:
http://www.janus-software.com/
系統可以免費下載使用
一個完全可以讓你快速開發Basic的工具
有興趣的可以去參考看看:
http://www.janus-software.com/
系統可以免費下載使用
請問誰可提供VB相關題目(編號：6500)
我要寫一個軟體程式..不可以寫遊戲..我不知要寫什麼才好.....
誰可以提供我好的題目ㄋ..也請順便告訴我軟體的內容..如有什
麼功能..程式行數大約145行左右..謝謝
誰可以提供我好的題目ㄋ..也請順便告訴我軟體的內容..如有什
麼功能..程式行數大約145行左右..謝謝
網路安全(編號：6499)
★★★★琪琪的家★★★★
請注意
只要你上琪琪的家，你的電腦隨時多會遭駭客侵入
因為他的討論板與留言板，都設有侵入訪客電腦的
javascript語法，當你瀏覽他的討論板與留言板時
1.如果是奉承者:侵入盜取Outlook郵件帳號、密碼
與Cutftp的上傳資料，包括免費空間的帳號、密碼
待奉承者若有不服，亦侵入奉承者網站，信箱破壞
2.如果是不恭維者:侵入盜取Outlook郵件帳號、密碼
與Cutftp的上傳資料，包括免費空間的帳號、密碼
然後Format清空你的電腦，再破壞你的網站和信箱
以下是入侵者的Ip與入侵時間
[11:20:18 AM] h251.s144.ts30.hinet.net(163.30.144.251) disconnected.
[11:20:16 AM] h251.s144.ts30.hinet.net(163.30.144.251) connected.
只要進入討論板與留言板，就有可能遭它入侵
我與向刑事警察局網路司報備
我們不允許此種防害網路發展與安全的行為
請有遭破壞或類似情形者出面指証
請大家轉貼各站，避免網友殘遭侵害
請注意
只要你上琪琪的家，你的電腦隨時多會遭駭客侵入
因為他的討論板與留言板，都設有侵入訪客電腦的
javascript語法，當你瀏覽他的討論板與留言板時
1.如果是奉承者:侵入盜取Outlook郵件帳號、密碼
與Cutftp的上傳資料，包括免費空間的帳號、密碼
待奉承者若有不服，亦侵入奉承者網站，信箱破壞
2.如果是不恭維者:侵入盜取Outlook郵件帳號、密碼
與Cutftp的上傳資料，包括免費空間的帳號、密碼
然後Format清空你的電腦，再破壞你的網站和信箱
以下是入侵者的Ip與入侵時間
[11:20:18 AM] h251.s144.ts30.hinet.net(163.30.144.251) disconnected.
[11:20:16 AM] h251.s144.ts30.hinet.net(163.30.144.251) connected.
只要進入討論板與留言板，就有可能遭它入侵
我與向刑事警察局網路司報備
我們不允許此種防害網路發展與安全的行為
請有遭破壞或類似情形者出面指証
請大家轉貼各站，避免網友殘遭侵害
請問為何無法Createobject(編號：6498)
程式碼如下:
Private Sub Command1_Click()
Dim IE As Object
Set IE = CreatObject("InternetExplorer.Application")
^^^^^^^^^^^
IE.Netvigate YOYR_URL
IE.Visible = True
End Sub
請問為何無法 CreateObject ??
謝謝 !
Private Sub Command1_Click()
Dim IE As Object
Set IE = CreatObject("InternetExplorer.Application")
^^^^^^^^^^^
IE.Netvigate YOYR_URL
IE.Visible = True
End Sub
請問為何無法 CreateObject ??
謝謝 !
我想用vb寫一個碼錶程式......How to program it ?(編號：6490)
我想用vb寫一個碼錶的程式,但我不知道如何從timer下手,有誰有相關的程式,麻煩記來給我參考........感激不盡!
如何讓程式執行開啟新資料夾(編號：6489)
如何讓程式自動檢查新資料夾是否存在
如果存在 則離開
如果不存在 則新增一資料夾
又 在MSDN裡敘述 object.AddFolders folderName 如果 folderName 已經存在，則產生一個錯誤
有看沒有懂 ＞_＜
如果錯誤產生 要怎麼避免
t = label
f3 = App.Path + "\" +RTrim( t) + "\" + "cx.dat"
Open f3 For Random As #3
............
我在上述中加入了 RTrim(t) + "\" 結果出現找不到路徑的訊息
是否要先開啟一資料夾程式才找的到
可是我想動態的開啟新資料夾 而且資料夾名稱須由 " t " 來決定
求救
如果存在 則離開
如果不存在 則新增一資料夾
又 在MSDN裡敘述 object.AddFolders folderName 如果 folderName 已經存在，則產生一個錯誤
有看沒有懂 ＞_＜
如果錯誤產生 要怎麼避免
t = label
f3 = App.Path + "\" +RTrim( t) + "\" + "cx.dat"
Open f3 For Random As #3
............
我在上述中加入了 RTrim(t) + "\" 結果出現找不到路徑的訊息
是否要先開啟一資料夾程式才找的到
可是我想動態的開啟新資料夾 而且資料夾名稱須由 " t " 來決定
求救
三層式架構 (續)(編號：6486)
感謝各位之前的回答...
那個方法用在 NT 讀取 98 可以...
但是用在 NT 讀取 NT 的 資料庫就會發生錯誤...
錯誤訊息如下...
.mdb == ＞ 檔案已被獨佔的問啟，是否有檢視資料庫的權限，無
法開啟(未知的)檔案
.dbf ==＞ 路徑錯誤
但被資料庫所在的資料夾已開放完全的權限...
而且己將NT的網域管理員中的 IUSER_電腦名 設成 Administrator
這樣還是不行....請問是否有人知道為什麼...
那個方法用在 NT 讀取 98 可以...
但是用在 NT 讀取 NT 的 資料庫就會發生錯誤...
錯誤訊息如下...
.mdb == ＞ 檔案已被獨佔的問啟，是否有檢視資料庫的權限，無
法開啟(未知的)檔案
.dbf ==＞ 路徑錯誤
但被資料庫所在的資料夾已開放完全的權限...
而且己將NT的網域管理員中的 IUSER_電腦名 設成 Administrator
這樣還是不行....請問是否有人知道為什麼...
關於Access裏的SQL語法(編號：6485)
假設有一表單(Table) 裏面有四個欄位分別為A B C D
A欄位為一單位代號
B欄位為一狀態狀態有'1' '2' '3' '4' 四種值
C欄位為一金額
D欄位為一名稱
若今天我要取得COUNT(*) BY A欄位
和一個金額 條件為D='VB' 的資料,
此金額=若B為1則C*2 若B為2則C*3 若B為3 則C*4 若B為4則C*1
分別乘以權數後同一單位的要加總...
請問一下我的SQL要如何下?
在ACCESS裏有沒有像SQL SERVER內那種CASE WHEN 的寫法?
或是ACCESS裏有沒有辦法做二個SUB QUERY的寫法
例: SELECT .....,(SELECT SUM(C) FROM TABLE....)*3 +(SELECT SUM(C) FROM TABLE) FROM TABLE.....
有人可以告訴我嗎?謝謝
A欄位為一單位代號
B欄位為一狀態狀態有'1' '2' '3' '4' 四種值
C欄位為一金額
D欄位為一名稱
若今天我要取得COUNT(*) BY A欄位
和一個金額 條件為D='VB' 的資料,
此金額=若B為1則C*2 若B為2則C*3 若B為3 則C*4 若B為4則C*1
分別乘以權數後同一單位的要加總...
請問一下我的SQL要如何下?
在ACCESS裏有沒有像SQL SERVER內那種CASE WHEN 的寫法?
或是ACCESS裏有沒有辦法做二個SUB QUERY的寫法
例: SELECT .....,(SELECT SUM(C) FROM TABLE....)*3 +(SELECT SUM(C) FROM TABLE) FROM TABLE.....
有人可以告訴我嗎?謝謝
如何在Excel中刪除Sheet時, 不會有dialog詢問回應...(編號：6481)
我在VB程式中想要刪除多餘的Sheet, 但執行過程中,
會出現訊息詢問是否確定要刪除,
要如何免去這詢問直接刪除呢...
我的程式碼如下:(是否要加些參數???)
Sheets("Sample").Select
ActiveWindow.SelectedSheets.delete
會出現訊息詢問是否確定要刪除,
要如何免去這詢問直接刪除呢...
我的程式碼如下:(是否要加些參數???)
Sheets("Sample").Select
ActiveWindow.SelectedSheets.delete
請問MDAC_TYPE 2.6多了什麼??(編號：6479)
MS最近發表了MDAC_TYPE 2.6版,不知它多了什麼功能???
是否只為了SUPPORT--＞ SQL2000和EXCHANGE2000的SERVER及CLIENT???
是否只為了SUPPORT--＞ SQL2000和EXCHANGE2000的SERVER及CLIENT???
如何讓TEXTBOX或RICHTEXTBOX的CURSOR停在末端?????????????(編號：6478)
各位網友好:
請問有沒有辦法可以讓TEXTBOX或RICHTEXTBOX的CURSOR內定停在末端?
我的目的是要讓最新的資料顯示在最後面.(如同在DOS中執行DIR指令一般,資料會自動向上捲動),但始終無達成!!
它每次均會內定停在開頭!!
請問有沒有辦法可以讓TEXTBOX或RICHTEXTBOX的CURSOR內定停在末端?
我的目的是要讓最新的資料顯示在最後面.(如同在DOS中執行DIR指令一般,資料會自動向上捲動),但始終無達成!!
它每次均會內定停在開頭!!
如何以SQL語法找出最新版記錄(編號：6477)
有一個 ACCESS TABLE 結構如下:
欄名 欄位一 欄位二 欄位三 版本
R 1 T1 Z
R 1 T2 Y
R 2 T3 Z
R 3 T4 Z
R 3 T5 Y
其中版本是由 Z 往 A 遞減排序,字母越小代表版本越新,請問如何以SQL語法找出 R 1 T2 Y / R 2 T3 Z .... 也就是最新版的資料.試了好久,有没有人能幫忙,謝謝!
欄名 欄位一 欄位二 欄位三 版本
R 1 T1 Z
R 1 T2 Y
R 2 T3 Z
R 3 T4 Z
R 3 T5 Y
其中版本是由 Z 往 A 遞減排序,字母越小代表版本越新,請問如何以SQL語法找出 R 1 T2 Y / R 2 T3 Z .... 也就是最新版的資料.試了好久,有没有人能幫忙,謝謝!
請問維持固定長寬(公分)的Picture Box?(編號：6474)
有一個Picture Box,不論解析度怎樣改變，都必須在螢幕上維持10x10公分，這要怎麼做啊！
我都搞不懂Picture Box設計時Width和Height的單位，和解析度之間的關係，換一台電腦，大小就跟著變了，客戶要求Display Realtime的資訊，可是他們電腦解析度都不一樣....嗚嗚....
很急，求救！！！！感激不盡....(VB6企業版)
我都搞不懂Picture Box設計時Width和Height的單位，和解析度之間的關係，換一台電腦，大小就跟著變了，客戶要求Display Realtime的資訊，可是他們電腦解析度都不一樣....嗚嗚....
很急，求救！！！！感激不盡....(VB6企業版)
HOW TO ???(編號：6473)
請問各位先進...
winsock 這個控制項是否不適合傳輸大型檔案(如超過100mb),
小弟現在遇到的問題是, 在local area Networking 中, 傳輸
一個150多MB的檔案就傳了將近半個小時, 我是用 winsock的
TCP/IP 模式, 將檔案分割成 8192 個 byte 才傳出去另一台電腦
結果傳了那麼久...是不是有什麼方法可以改進的ㄚ或是有其他
的元件或函數可以在LAN 傳輸大檔案的方法...
請各位先進不吝指教...thanks...
winsock 這個控制項是否不適合傳輸大型檔案(如超過100mb),
小弟現在遇到的問題是, 在local area Networking 中, 傳輸
一個150多MB的檔案就傳了將近半個小時, 我是用 winsock的
TCP/IP 模式, 將檔案分割成 8192 個 byte 才傳出去另一台電腦
結果傳了那麼久...是不是有什麼方法可以改進的ㄚ或是有其他
的元件或函數可以在LAN 傳輸大檔案的方法...
請各位先進不吝指教...thanks...
安裝暨部署精靈問題(編號：6470)
各位你好!
小弟有一問題....
我在setup到user的機器上時出現"因為某些系統並非最新版本...."
要求我重新開機..可是在重開機後,再安裝時便出現錯誤
** 註冊檔案 c:\windows\system\msado20.tlb 時, 發生錯誤 **
按略過後, 糸統安裝成功, 但執行時又出現錯誤
** 執行階段錯誤 "91" 沒有設定物件變數或with區域變數
請各位高手幫忙...
謝謝...
小弟有一問題....
我在setup到user的機器上時出現"因為某些系統並非最新版本...."
要求我重新開機..可是在重開機後,再安裝時便出現錯誤
** 註冊檔案 c:\windows\system\msado20.tlb 時, 發生錯誤 **
按略過後, 糸統安裝成功, 但執行時又出現錯誤
** 執行階段錯誤 "91" 沒有設定物件變數或with區域變數
請各位高手幫忙...
謝謝...
請問SQL高手......(編號：6469)
我的程式先前在執行Update時並沒有問題，可是最近卻發生錯誤，但又找不到原因，很是困擾，我想應是SQL的問題，如果有人知道請告訴我，謝謝！
錯誤訊息如下：
ProcessXmit_Err001 Error # -2147217885 was generated by SQL Server 的 Microsoft OLE DB 提供者
Cursor 操作衝突
錯誤訊息如下：
ProcessXmit_Err001 Error # -2147217885 was generated by SQL Server 的 Microsoft OLE DB 提供者
Cursor 操作衝突
我如果要用Visual Basic6.0做Sin或Cos圖形的繪製!(編號：6468)
我如果要用Visual Basic6.0做Sin或Cos圖形的繪製,並且要標出座標軸,請問如何寫呢?請指點迷津,謝謝!
在 DataGrid1 或 在 Combo1 中輸入一個字後自動顯示Combol1內有(編號：6467)
在 DataGrid1 或 在 Combo1 中輸入一個字後自動顯示Combol1內有的字, 要象 Excel 輸入一個字後自動出現其他字.
VB的問題(編號：6465)
我想請問一個問題...
要如何對其他的程式做動作...
利如一執行所寫的程式以後..
會打開你要對他作動作的程式..
之後再對其作動作..例如是按鍵盤或著是動滑鼠?
或著按快速鍵(ctrl+anykey)
自己做的程式.會作動作?
拜託..謝謝..
要如何對其他的程式做動作...
利如一執行所寫的程式以後..
會打開你要對他作動作的程式..
之後再對其作動作..例如是按鍵盤或著是動滑鼠?
或著按快速鍵(ctrl+anykey)
自己做的程式.會作動作?
拜託..謝謝..
抱歉..請看一下(編號：6464)
我之前問過這個問題..但是問的方法有錯..
似乎讓人誤解..＞＜
我再問一次...我把我想做的說出來好了..
我有在玩網路遊戲..
我用遊戲修改大師..找得到他的血的值..
但是..想也知道...
網路遊戲..別想去改...^^
所以..我突發其想...
我想要讓他..血減到一定的程度..
例如本來有200那麼..血減到40 or 60的時侯..
送出一個按鍵..
就是讓他按下喝藥水的快速鍵..讓他來補血..
不知道有沒有辦法做到..
(我想改的是.程式執行時的記憶體..之前誤會的.抱歉了)
似乎讓人誤解..＞＜
我再問一次...我把我想做的說出來好了..
我有在玩網路遊戲..
我用遊戲修改大師..找得到他的血的值..
但是..想也知道...
網路遊戲..別想去改...^^
所以..我突發其想...
我想要讓他..血減到一定的程度..
例如本來有200那麼..血減到40 or 60的時侯..
送出一個按鍵..
就是讓他按下喝藥水的快速鍵..讓他來補血..
不知道有沒有辦法做到..
(我想改的是.程式執行時的記憶體..之前誤會的.抱歉了)
請問: ACCESS 是否有檔案容量的限制 ?(編號：6461)
請問各路高手 :
1. ACCESS 有檔案容量的限制嗎? 若有的話 , 是多大呢 ?
2. ACCESS 資料庫中可允許建多少個資料表 ? 有上限值嗎?
謝謝您的解答!!
1. ACCESS 有檔案容量的限制嗎? 若有的話 , 是多大呢 ?
2. ACCESS 資料庫中可允許建多少個資料表 ? 有上限值嗎?
謝謝您的解答!!
多個MDB該怎麼辨(有點急)(編號：6460)
1.請教mdb用來發展5-10人用的系統,合適嗎?
若沒有不適的話,大家都把該資料庫放在何處來給大家用
NT Server,Novell Server,98,95..還是其他系統,還是無所謂.
那麼拿來當作FileServer的電腦是不是要share一個目錄,
而且是可寫的,否則user可以新增修改裏面的資料嗎?
那這樣子,user不就可以刪除這個mdb.
2.若工作需要,把一個大系統分成多個子系統,
同時將一個mdb分成多個mdb,所以裏面有一些table會是共用的,
那在做join時,會不會有困難點,這麼做好嗎?
還是全都放在同一個mdb好.
若沒有不適的話,大家都把該資料庫放在何處來給大家用
NT Server,Novell Server,98,95..還是其他系統,還是無所謂.
那麼拿來當作FileServer的電腦是不是要share一個目錄,
而且是可寫的,否則user可以新增修改裏面的資料嗎?
那這樣子,user不就可以刪除這個mdb.
2.若工作需要,把一個大系統分成多個子系統,
同時將一個mdb分成多個mdb,所以裏面有一些table會是共用的,
那在做join時,會不會有困難點,這麼做好嗎?
還是全都放在同一個mdb好.
如何在vb 中用excel?(編號：6459)
我的程式如下:
Dim MyExcel As Object
Dim MySheet As Object
Dim xlbook As Workbook
Dim xlSheet As Sheets
'開新sheet
Private Sub Command1_Click()
Set xlbook = GetObject("C:\My Documents\Book2.xls")
xlbook.Sheets.Add.Activate
xlbook.ActiveSheet.Name = Text1.Text
Print xlbook.ActiveSheet.Name
xlbook.Save
xlbook.Close
End Sub
'列出所以 sheets.name
Private Sub Command2_Click()
Cls
Set MyExcel = CreateObject("Excel.Application")
MyExcel.Workbooks.Open FileName:="C:\My Documents\Book2.xls"
For Each MySheet In MyExcel.ActiveWorkbook.Sheets
Print MySheet.Name
Next MySheet
End Sub
Private Sub Form_Unload(Cancel As Integer)
MyExcel.Quit
Set MyExcel = Nothing
End Sub
但當我click Command2 時,第一次可以如我所願，lsit all sheets' name
不過如果我先click Command1(開新sheet) ,再click Command2， 那它就有error (error 91: Object variable or With block variable not set) ,有時click Command1 -＞ click Command2 -＞ 再click Command2 才有問題....好奇怪
請問error 91 是什麼?
Dim MyExcel As Object
Dim MySheet As Object
Dim xlbook As Workbook
Dim xlSheet As Sheets
'開新sheet
Private Sub Command1_Click()
Set xlbook = GetObject("C:\My Documents\Book2.xls")
xlbook.Sheets.Add.Activate
xlbook.ActiveSheet.Name = Text1.Text
Print xlbook.ActiveSheet.Name
xlbook.Save
xlbook.Close
End Sub
'列出所以 sheets.name
Private Sub Command2_Click()
Cls
Set MyExcel = CreateObject("Excel.Application")
MyExcel.Workbooks.Open FileName:="C:\My Documents\Book2.xls"
For Each MySheet In MyExcel.ActiveWorkbook.Sheets
Print MySheet.Name
Next MySheet
End Sub
Private Sub Form_Unload(Cancel As Integer)
MyExcel.Quit
Set MyExcel = Nothing
End Sub
但當我click Command2 時,第一次可以如我所願，lsit all sheets' name
不過如果我先click Command1(開新sheet) ,再click Command2， 那它就有error (error 91: Object variable or With block variable not set) ,有時click Command1 -＞ click Command2 -＞ 再click Command2 才有問題....好奇怪
請問error 91 是什麼?
求救!!!關於CCD攝影機...(編號：6457)
因為學校專題的關係~~~
請問如何用VB寫一個程式???
能看到CCD攝影機的影像....(動態)
或是抓取CCD攝影機的影像....(圖片)
步驟如何???
市面上有沒有相關的書ㄚ???
能否介紹一下
CCD攝影機用的是低階的USB介面那種
煩請各VB高手幫我指點一條明路
提一些意見
感激不盡.....
在此先說聲謝啦..
請問如何用VB寫一個程式???
能看到CCD攝影機的影像....(動態)
或是抓取CCD攝影機的影像....(圖片)
步驟如何???
市面上有沒有相關的書ㄚ???
能否介紹一下
CCD攝影機用的是低階的USB介面那種
煩請各VB高手幫我指點一條明路
提一些意見
感激不盡.....
在此先說聲謝啦..
請問用SQL日期可否求平均值(編號：6456)
DateB 欄位是日期欄位
以下程式會出錯,請問該如何改?
Select FieldA, avg(DateB) as AvgDateB from TableC group by FieldA
以下程式則沒有Error
Select FieldA, Max(DateB) as MaxDateB, Min(DateB) as MinDateB from TableC group by FieldA
但是我想算平均值.(VB6.0SP4及SQL server 7.0)
以下程式會出錯,請問該如何改?
Select FieldA, avg(DateB) as AvgDateB from TableC group by FieldA
以下程式則沒有Error
Select FieldA, Max(DateB) as MaxDateB, Min(DateB) as MinDateB from TableC group by FieldA
但是我想算平均值.(VB6.0SP4及SQL server 7.0)
Visual Basic 多人開發計劃 ^_^(編號：6455)
我想找個有趣的題目, 用 Visual Basic 實作出來
目前題材還沒有個方向, 藉由大家資源共享, 而且所有 Source Code 全供加入的 VB人大家共同參考與討論, 我覺得蠻不錯的, 只是希望加入的人是真的有心想參加, 不見得一定要撥出很多時間, 但是希望能持之以恆(應該也不會太久啦 !), 希望大家不要有壓力的感覺, 就是自己覺得程度不是很好也沒關係, 懂得再多的人也有不會的地方, 大家互相切磋, 懂得少的人可以學到很多, 懂得多的人也可以更熟練 !!(笑), 希望大家踴躍參加
目前題材還沒有個方向, 藉由大家資源共享, 而且所有 Source Code 全供加入的 VB人大家共同參考與討論, 我覺得蠻不錯的, 只是希望加入的人是真的有心想參加, 不見得一定要撥出很多時間, 但是希望能持之以恆(應該也不會太久啦 !), 希望大家不要有壓力的感覺, 就是自己覺得程度不是很好也沒關係, 懂得再多的人也有不會的地方, 大家互相切磋, 懂得少的人可以學到很多, 懂得多的人也可以更熟練 !!(笑), 希望大家踴躍參加
vb and oracle database(編號：6454)
我想問一個問題
我用vb為前端 oracle為後端開發應用程式
若我要將應用程式安裝在user的電腦那麼還要裝
什麼才能讓我的vb ado連上oracle呢
而如何取得且費用如何算呢
幫幫忙我急切知道........^_^
我用vb為前端 oracle為後端開發應用程式
若我要將應用程式安裝在user的電腦那麼還要裝
什麼才能讓我的vb ado連上oracle呢
而如何取得且費用如何算呢
幫幫忙我急切知道........^_^
ASP呼叫SQL的日期要如何計算.??(編號：6453)
現在要計算SQL倒出來的日期,可是要怎麼做呢.??(目前顯示下午6:00)有辦法讓他顯示18:00嬤.??
還是SQL有可以像access的24小時表示方法呢.???
還是SQL有可以像access的24小時表示方法呢.???
要如何用vb寫一個簡單的FTP程式，請各位高手救命!!(編號：6452)
各位高手好：請問要如何用vb寫一個簡單的FTP程式，因為我在學校有兩台電腦，一台當Server，另一台當客戶端，然後我想要將在客戶端的地方所存成的記事本檔案(.txt)，利用vb將此.txt檔傳到Server的某個路徑底下，請問程式要怎麼寫ㄚ？還有各位高手如果知道市面上有沒有什麼相關的書或是範例可以參考的話，請告訴小妹我，謝謝，謝謝，感激不盡。
在Combol1 輸入一個字後自動顯示Combol1內有的字(編號：6451)
在 DataGrid1 或 在 Combo1 中輸入一個字後自動顯示Combol1內有的字, 要象 Excel 輸入一個字後自動出現其他字.
有關Data Environment的用法…(編號：6450)
小弟想用sql語法，如下：
select * from docbase where 日期 like 'text1.text'
text1.text是個時間參數
我如何將此參數運用在Data Environment之中的command的「參數」中？
相信應該有許多人遇過這類問題。
select * from docbase where 日期 like 'text1.text'
text1.text是個時間參數
我如何將此參數運用在Data Environment之中的command的「參數」中？
相信應該有許多人遇過這類問題。
SQL 中的語句(編號：6448)
請問如何可以在 SQL 中尋找一段數據?
如 REP 中有 0001a,0002b,0003,0004,0005,0006,........
我想找到 2-5 的, 請問該做??!!!
Select REP from Table1 where REP like ["0002%"-"0005%"]
這句錯了!!!!!
煩請各大高手指點!!!!
如 REP 中有 0001a,0002b,0003,0004,0005,0006,........
我想找到 2-5 的, 請問該做??!!!
Select REP from Table1 where REP like ["0002%"-"0005%"]
這句錯了!!!!!
煩請各大高手指點!!!!
BOOLEAN 應該用什麼代替呢?(編號：6447)
我的資料庫是用Access.我想在run-time時create table.可是怎也不能create BOOLEAN type的Variable.
Dim dbs As Database
Set dbs = OpenDatabase(TransacPath)
dbs.Execute "CREATE TABLE TempTable (id long , AccNo text, securities BOOLEAN); "
^^^^^^^
dbs.Close
BOOLEAN 應該用什麼代替呢?
Dim dbs As Database
Set dbs = OpenDatabase(TransacPath)
dbs.Execute "CREATE TABLE TempTable (id long , AccNo text, securities BOOLEAN); "
^^^^^^^
dbs.Close
BOOLEAN 應該用什麼代替呢?
如何在vb 中用excel?(編號：6446)
我的程式如下:
Dim MyExcel As Object
Dim MySheet As Object
Dim xlbook As Workbook
Dim xlSheet As Sheets
'開新sheet
Private Sub Command1_Click()
Set xlbook = GetObject("C:\My Documents\Book2.xls")
xlbook.Sheets.Add.Activate
xlbook.ActiveSheet.Name = Text1.Text
Print xlbook.ActiveSheet.Name
xlbook.Save
xlbook.Close
End Sub
'列出所以 sheets.name
Private Sub Command2_Click()
Cls
Set MyExcel = CreateObject("Excel.Application")
MyExcel.Workbooks.Open FileName:="C:\My Documents\Book2.xls"
For Each MySheet In MyExcel.ActiveWorkbook.Sheets
Print MySheet.Name
Next MySheet
End Sub
Private Sub Form_Unload(Cancel As Integer)
MyExcel.Quit
Set MyExcel = Nothing
End Sub
但當我click Command2 時,第一次可以如我所願，lsit all sheets' name
不過如果我先click Command1(開新sheet) ,再click Command2， 那它就有error (error 91: Object variable or With block variable not set) ,有時click Command1 -＞ click Command2 -＞ 再click Command2 才有問題....好奇怪
請問error 91 是什麼?
Dim MyExcel As Object
Dim MySheet As Object
Dim xlbook As Workbook
Dim xlSheet As Sheets
'開新sheet
Private Sub Command1_Click()
Set xlbook = GetObject("C:\My Documents\Book2.xls")
xlbook.Sheets.Add.Activate
xlbook.ActiveSheet.Name = Text1.Text
Print xlbook.ActiveSheet.Name
xlbook.Save
xlbook.Close
End Sub
'列出所以 sheets.name
Private Sub Command2_Click()
Cls
Set MyExcel = CreateObject("Excel.Application")
MyExcel.Workbooks.Open FileName:="C:\My Documents\Book2.xls"
For Each MySheet In MyExcel.ActiveWorkbook.Sheets
Print MySheet.Name
Next MySheet
End Sub
Private Sub Form_Unload(Cancel As Integer)
MyExcel.Quit
Set MyExcel = Nothing
End Sub
但當我click Command2 時,第一次可以如我所願，lsit all sheets' name
不過如果我先click Command1(開新sheet) ,再click Command2， 那它就有error (error 91: Object variable or With block variable not set) ,有時click Command1 -＞ click Command2 -＞ 再click Command2 才有問題....好奇怪
請問error 91 是什麼?
請問有何SQL語法可以更改欄位名稱的.!?(編號：6444)
請教各位前輩,因為正在做程式更版的動作但是新版的欄位名稱和舊版的不同(舊版的是VFP,新版的是MDB但是已經將VFP轉成MDB了)...而該程式有數人使用..但每一人使用的資料庫內容皆不同(資料庫的Table,Field定義皆相同,只不過內存的資料不同而已),因為須保留舊資料,因此,得常常更改欄位名稱,請問有何簡便的辦法呢.!?
Crystal Report8.0 Email 輸出(編號：6443)
請問各位
報表輸出如果設成 檔案輸出
CrystalReport1.Destination = crptToFile 則
CrystalReport1.PrintFileName 可以自行定義輸出名稱
但如果設成 CrystalReport1.Destination = crptMapi
則CrystalReport1.PrintFileName 將會失效
無法自訂輸出檔案名稱
只能在 email subject 去加說明不過這不是我要的...
有沒有其他方法勒.........
報表輸出如果設成 檔案輸出
CrystalReport1.Destination = crptToFile 則
CrystalReport1.PrintFileName 可以自行定義輸出名稱
但如果設成 CrystalReport1.Destination = crptMapi
則CrystalReport1.PrintFileName 將會失效
無法自訂輸出檔案名稱
只能在 email subject 去加說明不過這不是我要的...
有沒有其他方法勒.........
有一問題請教(編號：6437)
Hi , 各位前輩 , 大家好!! , 小弟叫 陳建棟 , 是 VB6 之初學者 ,再此有一問題
請教 , 希望各位前輩不吝賜教 , 謝謝 !!
問題 : 何謂 API 檢視員 ?? 如何呼叫它 ??
我的 e-mail : jadychen@etmc.com.tw
希望各位前輩不吝賜教 , 謝謝 !! 謝謝 !! 謝謝 !!
請教 , 希望各位前輩不吝賜教 , 謝謝 !!
問題 : 何謂 API 檢視員 ?? 如何呼叫它 ??
我的 e-mail : jadychen@etmc.com.tw
希望各位前輩不吝賜教 , 謝謝 !! 謝謝 !! 謝謝 !!
VB6的封裝暨部屬精靈是否可加入密碼？(編號：6436)
想請問各位先知；＜br＞
1.我利用封裝暨部屬精靈來封裝成.EXE檔，可否加入密碼確認，也就是說執行此.EXE檔時，必須鍵入密碼之後才能執行安裝。＜br＞
2.網卡本身都有一個單一的數值，如果利用此數值作密碼核對，
該如何下手。＜br＞
煩請各位先知告知在下，感激不盡。
1.我利用封裝暨部屬精靈來封裝成.EXE檔，可否加入密碼確認，也就是說執行此.EXE檔時，必須鍵入密碼之後才能執行安裝。＜br＞
2.網卡本身都有一個單一的數值，如果利用此數值作密碼核對，
該如何下手。＜br＞
煩請各位先知告知在下，感激不盡。
救命!! 救命!!(編號：6433)
Hi , 各位前輩 , 大家好!! , 小弟叫 陳建棟 , 是 VB6 之初學者 ,再此有一問題
請教 , 希望各位前輩不吝賜教 , 謝謝 !!
問題 : 不知有人用過 VB 聯 MTS 聯 ORACLE 嗎??, 我現服務之公司之前
用 VB 聯 MTS 聯 MS-SQL 7.0 沒問題 , 但現欲用VB 聯 MTS 聯
ORACLE 卻問題連連 , 希望各位前輩趕快救命!! 救命!!
我的 e-mail : jadychen@etmc.com.tw
希望各位前輩不吝賜教 , 謝謝 !! 謝謝 !! 謝謝 !!
請教 , 希望各位前輩不吝賜教 , 謝謝 !!
問題 : 不知有人用過 VB 聯 MTS 聯 ORACLE 嗎??, 我現服務之公司之前
用 VB 聯 MTS 聯 MS-SQL 7.0 沒問題 , 但現欲用VB 聯 MTS 聯
ORACLE 卻問題連連 , 希望各位前輩趕快救命!! 救命!!
我的 e-mail : jadychen@etmc.com.tw
希望各位前輩不吝賜教 , 謝謝 !! 謝謝 !! 謝謝 !!
請問Crystal Report 8的running total(編號：6432)
請問有人懂得running total嗎..?!..我曾上Seagate 的網站..下載了個文件..可是全都是英文的看不懂...!!請教一下基本的用法..!
WhilePrintingRecords;
NumberVar RunningTotal; 請問這行是宣告的意思嗎.!?..RunningTotal可以改成其他的名字嗎.?!
RunningTotal := 0;
請問以上三行為什麼意思ㄚ.!?..謝謝
WhilePrintingRecords;
NumberVar RunningTotal; 請問這行是宣告的意思嗎.!?..RunningTotal可以改成其他的名字嗎.?!
RunningTotal := 0;
請問以上三行為什麼意思ㄚ.!?..謝謝
請問有架設過indexServer的人?(編號：6431)
在indexServer中,搜查的字串,若為英文會以空白為一個word
但是中文搜查確都是以2byte為單位
如何設定以空白或其他字串為搜尋單位
ex:
查"電腦"連在一起的二個字,非有"電"及"腦"的所有文件
不好意思此問題與此討論區無關,但找不到地方問!
謝謝!!
但是中文搜查確都是以2byte為單位
如何設定以空白或其他字串為搜尋單位
ex:
查"電腦"連在一起的二個字,非有"電"及"腦"的所有文件
不好意思此問題與此討論區無關,但找不到地方問!
謝謝!!
請教一問題(編號：6430)
Hi , 各位前輩 , 大家好!! , 小弟叫 陳建棟 , 是 VB6 之初學者 ,再此有一問題
請教 , 希望各位前輩不吝賜教 , 謝謝 !!
問題 : Windows 之 API 例如 : kernel32 , user32 ,advapi32 , rasapi32, gdi32 …等
它之用法 , 用途?? 說明文件(有中文的嗎??)?? 由 VB6 來呼叫之方法??
我的 e-mail : jadychen@etmc.com.tw
希望各位前輩不吝賜教 , 謝謝 !! 謝謝 !! 謝謝 !!
請教 , 希望各位前輩不吝賜教 , 謝謝 !!
問題 : Windows 之 API 例如 : kernel32 , user32 ,advapi32 , rasapi32, gdi32 …等
它之用法 , 用途?? 說明文件(有中文的嗎??)?? 由 VB6 來呼叫之方法??
我的 e-mail : jadychen@etmc.com.tw
希望各位前輩不吝賜教 , 謝謝 !! 謝謝 !! 謝謝 !!
Bookmark and Insert record error(編號：6429)
以下是我在程式中去連結 Access file (*.mdb) :
situation 1:)
dim cn as adodb.connection
dim rs as adodb.recordset
set cn=new adodb.connection
set rs=new adodb.recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= " & ConnStr
rs.CursorLocation = adUseClient
rs.open "select * from CUSTOMER", cn, adOpenDynamic , adLockOptimistic
for i=0 to 2
if text1(i) ＜＞ "" then
rs!field(i)=text1(i) ===＞ 此時就出錯了,
end if
next
rs.update
......
如果 rs.CursorLocation 設為adUseClient就不會
======================================================
situation 2:)
dim cn as adodb.connection
dim rs as adodb.recordset
set cn=new adodb.connection
set rs=new adodb.recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= " & ConnStr
rs.CursorLocation = adUseserver
rs.open "select * from CUSTOMER", cn, adOpenDynamic , adLockOptimistic
pos=rs.bookmark
rs.find "custid=12"
rs.bookmark=pos
如果我使用bookmark時就會有問題但是rs.CursorLocation 設為adUseclient就不會
但是我有需求要同時使用上述兩情形時我該如何解決?
請各位大內高手幫忙小弟解一下, 謝謝!
situation 1:)
dim cn as adodb.connection
dim rs as adodb.recordset
set cn=new adodb.connection
set rs=new adodb.recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= " & ConnStr
rs.CursorLocation = adUseClient
rs.open "select * from CUSTOMER", cn, adOpenDynamic , adLockOptimistic
for i=0 to 2
if text1(i) ＜＞ "" then
rs!field(i)=text1(i) ===＞ 此時就出錯了,
end if
next
rs.update
......
如果 rs.CursorLocation 設為adUseClient就不會
======================================================
situation 2:)
dim cn as adodb.connection
dim rs as adodb.recordset
set cn=new adodb.connection
set rs=new adodb.recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= " & ConnStr
rs.CursorLocation = adUseserver
rs.open "select * from CUSTOMER", cn, adOpenDynamic , adLockOptimistic
pos=rs.bookmark
rs.find "custid=12"
rs.bookmark=pos
如果我使用bookmark時就會有問題但是rs.CursorLocation 設為adUseclient就不會
但是我有需求要同時使用上述兩情形時我該如何解決?
請各位大內高手幫忙小弟解一下, 謝謝!
請問有人試過win2000下使用 mp3play.ocx 的元件嗎?!(編號：6427)
Private Sub start_Click()
Dim ReturnValue As Long
ReturnValue = Mp3Play1.Open("c:\test.mp3", "")
Mp3Play1.Play
End Sub
以上的動作在小弟的機器上居然沒有任何動作(小弟確定有 test.mp3)...
Dim ReturnValue As Long
ReturnValue = Mp3Play1.Open("c:\test.mp3", "")
Mp3Play1.Play
End Sub
以上的動作在小弟的機器上居然沒有任何動作(小弟確定有 test.mp3)...
如何在run time指定一值給Crystal Report的Formula Field(編號：6426)
請問...我想在Crystal Report 8 裡的Report_BeforeFormatPage事件裡設定一值給某一Formula Field請問要如何去做呢..!?..謝謝
DLL檔如何於模組裡宣告?(編號：6423)
請問這是一個由VC++ LINK 出來的檔, 該如何於 VB6 的模組裡宣告
檔名: IOPORT.DLL 裡的一個 FUNCTION
//-------------------------------------------------------// FUNCTION:IOP_Read(int port, LPSTR buffer, int count)
//
// PORPOSE:Read characters from a specified serial port.
//--------------------------------------------------------
DWORD APIENTRY IOP_Read(int port, LPSTR buffer, int count)
{
BOOL fReadStat ;
DWORD dwError;
DWORD dwBytesRead ;
memset( buffer, 0x0, 256 ) ;
fReadStat = ReadFile( COMDEV[port], buffer, count,
&dwBytesRead, &READ_OS ) ;
if (!fReadStat)
{
if (GetLastError() == ERROR_IO_PENDING)
{
// We have to wait for read to complete
while(!GetOverlappedResult( COMDEV[port],
&READ_OS, &dwBytesRead, TRUE ))
{
dwError = GetLastError() ;
if (dwError == ERROR_IO_INCOMPLETE)
return (dwBytesRead) ;
else
return (FAIL) ;
}
}
else
return (FAIL) ;
}
return (dwBytesRead) ;
}
檔名: IOPORT.DLL 裡的一個 FUNCTION
//-------------------------------------------------------// FUNCTION:IOP_Read(int port, LPSTR buffer, int count)
//
// PORPOSE:Read characters from a specified serial port.
//--------------------------------------------------------
DWORD APIENTRY IOP_Read(int port, LPSTR buffer, int count)
{
BOOL fReadStat ;
DWORD dwError;
DWORD dwBytesRead ;
memset( buffer, 0x0, 256 ) ;
fReadStat = ReadFile( COMDEV[port], buffer, count,
&dwBytesRead, &READ_OS ) ;
if (!fReadStat)
{
if (GetLastError() == ERROR_IO_PENDING)
{
// We have to wait for read to complete
while(!GetOverlappedResult( COMDEV[port],
&READ_OS, &dwBytesRead, TRUE ))
{
dwError = GetLastError() ;
if (dwError == ERROR_IO_INCOMPLETE)
return (dwBytesRead) ;
else
return (FAIL) ;
}
}
else
return (FAIL) ;
}
return (dwBytesRead) ;
}
如何在vb用excel(編號：6421)
Thx.
不過如果我想知多些,除了help(太多，而且example不足)，可在那些找到?
1/ExcelObject是什麼? 是指Workbooks,Workbook or what else?
2/Sheets中沒有Name 這object
3/什麼是subscript out of range?我第一次run my programme 沒有問題，不過第二次就有這個error
如果我想知多些,除了help(太多，而且example不足)，可在那些找到?
不過如果我想知多些,除了help(太多，而且example不足)，可在那些找到?
1/ExcelObject是什麼? 是指Workbooks,Workbook or what else?
2/Sheets中沒有Name 這object
3/什麼是subscript out of range?我第一次run my programme 沒有問題，不過第二次就有這個error
如果我想知多些,除了help(太多，而且example不足)，可在那些找到?
不同的資料庫檔案怎合併...??(編號：6420)
我這有九月分的進貨表跟明細表.(明細以每一天成一個表單來存取),還有十月份的進貨表跟明細表 0009.mdb(2000年9月) 0010.mdb(2000年十月)
請問怎把9.10進貨表合併成一個資料表,9.10的明細備份到同一個資料庫??
請問怎把9.10進貨表合併成一個資料表,9.10的明細備份到同一個資料庫??
請問為何無法在 Win Me 下使用該如何是好?(編號：6419)
Declare Function SetKeyboardHook Lib "KeybHook" (ByVal hwndPost As Long, ByVal Msg As Long) As Long
Declare Function ReleaseKeyboardHook Lib "KeybHook" () As Long
以上無法在WinMe使用請教如何長能將程式縮到系統列並不用上述API謝謝
Declare Function ReleaseKeyboardHook Lib "KeybHook" () As Long
以上無法在WinMe使用請教如何長能將程式縮到系統列並不用上述API謝謝
可否幫忙檢視以下的錯誤, Tks~(編號：6415)
Private Sub Form_Load()
Dim conn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim cmd As New ADODB.Command
Me.Show
DoEvents
Dim strConnectionString As String
Dim mysql As String
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\test.mdb"
conn1.Open strConnectionString
mysql = "select * From prstyle"
rs1.Open mysql, conn1, adOpenKeyset, adLockPessimistic
Set Adodc1.Recordset = rs1
Set DataGrid1.DataSource = Adodc1
End Sub
如上的程式, 小弟的 datagrid 無法顯示出 text.mdb 的資料, Why?!請問哪裡出錯...
Dim conn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim cmd As New ADODB.Command
Me.Show
DoEvents
Dim strConnectionString As String
Dim mysql As String
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& App.Path & "\test.mdb"
conn1.Open strConnectionString
mysql = "select * From prstyle"
rs1.Open mysql, conn1, adOpenKeyset, adLockPessimistic
Set Adodc1.Recordset = rs1
Set DataGrid1.DataSource = Adodc1
End Sub
如上的程式, 小弟的 datagrid 無法顯示出 text.mdb 的資料, Why?!請問哪裡出錯...
關於crystal report的圖片列印功能??(編號：6414)
我想將圖片存到access中再透過crystal report將圖片列印出來,不知各位高手們有沒有好方法可告知,因為小弟在存圖片有點問題.....無法將圖片存入mdb2檔......
Crp1.SelectionFormula {xxx.日期} = '1999/10/01' and {xxx.日(編號：6411)
在Crystal Report 中要選 "1999/10/01" 到 "2000/11/03" 日期內的資料???
Crp1.SelectionFormula {xxx.日期} ＞= '1999/10/01' and {xxx.日期}＜= '2000/11/03' is error!!
Why ???????????????
Crp1.SelectionFormula {xxx.日期} ＞= '1999/10/01' and {xxx.日期}＜= '2000/11/03' is error!!
Why ???????????????
OLE DB provider 的問題(編號：6410)
我使用 vb6.0 企業版,我的電腦未安裝 access,也沒有裝 VBSP
當我要為 ADO 建立 Connection String 時,我的電腦只會出現
Microsoft Jet 3.51 OLE DB..., 而不會出現 4.0
請問要如何才會出現 Jet 4.0 OLE DB Provider
當我要為 ADO 建立 Connection String 時,我的電腦只會出現
Microsoft Jet 3.51 OLE DB..., 而不會出現 4.0
請問要如何才會出現 Jet 4.0 OLE DB Provider
如何以ADO的connection String開啟需要輸入密碼的Access資料庫(編號：6409)
在access97中的
工具/保全/資料庫密碼設定,
可以將資料庫進行密碼的保護,
但是在ADO的connection String
不知要如何設定才能開啟資料庫,
請各位大內高手能指點迷津......
ps.1.我試過加入password=XXXX,好像不行!!!
2.my email address同上
工具/保全/資料庫密碼設定,
可以將資料庫進行密碼的保護,
但是在ADO的connection String
不知要如何設定才能開啟資料庫,
請各位大內高手能指點迷津......
ps.1.我試過加入password=XXXX,好像不行!!!
2.my email address同上
無法 setup我的ap 到別的機器上..(編號：6406)
dear all
我在setup到user的機器上時出現"因為某些系統並非最新版本...."
要求我重新開機..可是在重開機後還是出現同樣問題以致程式無法安裝上去..請問我該如何解決這個問題...
我在setup到user的機器上時出現"因為某些系統並非最新版本...."
要求我重新開機..可是在重開機後還是出現同樣問題以致程式無法安裝上去..請問我該如何解決這個問題...
如何在cgi程式中使用winsock元件(編號：6405)
需要從網頁抓取資料後傳送至getway,getway處理完後,在將資料傳送回來放在網頁上顯示出來.由於和getway之間是以tcp/ip傳輸,若在cgi程式中使用winsock元件,該如何使用.或有其他的方法呢?謝謝
對不起,更正我的問題(2個.TXT檔的比對)(編號：6404)
**有多個.TXT檔的資料與另一個.TXT檔進行比對,
**若資料相同放在那"另一個"檔裡,
**資料不同的則另開一個檔存放,問題是所有的.TXT的資料量都很大,
都在上千筆,甚至超過5000筆已上,本來我已寫好了,但由於
資料量實在很大,我的程式執行到一半就當了,
請問各位有什麼更好的辨法.真的非常急,謝謝!!
**若資料相同放在那"另一個"檔裡,
**資料不同的則另開一個檔存放,問題是所有的.TXT的資料量都很大,
都在上千筆,甚至超過5000筆已上,本來我已寫好了,但由於
資料量實在很大,我的程式執行到一半就當了,
請問各位有什麼更好的辨法.真的非常急,謝謝!!
DataEnvironment1.rsCommand1.Delete發生錯誤...?!(編號：6402)
我在Data Environment中有一指令,內容為
SELECT PersonnelTable.*, SalaryTable.*, ChangeTable.* FROM ChangeTable, PersonnelTable, SalaryTable WHERE ChangeTable.PCODE = PersonnelTable.PCODE AND PersonnelTable.PCODE = SalaryTable.PCODE ORDER BY PersonnelTable.PCODE
事實上我分成三個Form在存取其三個Table的資料,但只有Form1(存取PersonnelTable的資料)可以做新增和刪除的資料...!!
今天DataEnvironment1.rsCommand1.AddNew沒問題,三個Table都會新增一筆資料但,我下DataEnvironment1.rsCommand1.Delete便會發生下面錯誤(但是該筆資料還是會被刪除掉)
執行接段錯誤'-2147217885(80040e23)'
列控制碼參照已刪除或標記即將刪除列
請問有何方法可以解決..謝謝...!!
SELECT PersonnelTable.*, SalaryTable.*, ChangeTable.* FROM ChangeTable, PersonnelTable, SalaryTable WHERE ChangeTable.PCODE = PersonnelTable.PCODE AND PersonnelTable.PCODE = SalaryTable.PCODE ORDER BY PersonnelTable.PCODE
事實上我分成三個Form在存取其三個Table的資料,但只有Form1(存取PersonnelTable的資料)可以做新增和刪除的資料...!!
今天DataEnvironment1.rsCommand1.AddNew沒問題,三個Table都會新增一筆資料但,我下DataEnvironment1.rsCommand1.Delete便會發生下面錯誤(但是該筆資料還是會被刪除掉)
執行接段錯誤'-2147217885(80040e23)'
列控制碼參照已刪除或標記即將刪除列
請問有何方法可以解決..謝謝...!!
如何在Excel中複製某Range的值及格式(編號：6401)
我想使用VB撰寫程式,複製某一range的值及格式到其它位置,
例如:要從 Range("A1:X33") 複製到 Range("A36:X68")
不知要如何寫呢???
例如:要從 Range("A1:X33") 複製到 Range("A36:X68")
不知要如何寫呢???
可否利用API 或其它方式將兩個ICON合成一個(編號：6400)
想將兩個ICON(32*32 16色)的ICON 合成一個(64*32 16色)的ICON,且要保留其透空的屬性. 曾利用IMAGELIST 的OVERLAY 方式,和API 的DRAWICON 方式,再利用SAVEPICTUREBOX 來存檔,但得到是.BMP,不是我所需要的,能否請教各位先進,是否有方式達到這目地,卻不需要去解析其檔案格式. API 中的CreateIcon,CreateIconDirect是否符合這需求該如何用.
vb6.0 與 Access table 的 連結,請問???(編號：6399)
以下是我在程式中去連結 Access file (*.mdb) :
Conn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source= " & ConnStr
如果user電腦 未安裝VB6.0 會出現 "522 找不到提供者 未被正確的安裝 "
如果user電腦 有安裝VB6.0 就沒有這種問題了...
我到user電腦端看過他們的 Microsoft Access Driver 版本跟我開
發端相同....所以我相信不是版本問題..我如果用 "Microsoft Access Driver " 去取代 "Microsoft.Jet.OLEDB.3.51" 則連開發端
都有問題了,不知道要連 *.mdb 是不是用這個 driver ...
請各位提供意見
Conn.Open "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source= " & ConnStr
如果user電腦 未安裝VB6.0 會出現 "522 找不到提供者 未被正確的安裝 "
如果user電腦 有安裝VB6.0 就沒有這種問題了...
我到user電腦端看過他們的 Microsoft Access Driver 版本跟我開
發端相同....所以我相信不是版本問題..我如果用 "Microsoft Access Driver " 去取代 "Microsoft.Jet.OLEDB.3.51" 則連開發端
都有問題了,不知道要連 *.mdb 是不是用這個 driver ...
請各位提供意見
有關SQL的GROUP BY(編號：6398)
再SQL中設定 GROUP BY Discount.code
discount.code中有='A',也有等於'a'個代表不一樣的意義
為何在當我下discount.code='a'的條件時,'A' & 'a'都會出現
難道SQL不分大小寫嗎?
我一定要分大小寫又該如何處理呢?
discount.code中有='A',也有等於'a'個代表不一樣的意義
為何在當我下discount.code='a'的條件時,'A' & 'a'都會出現
難道SQL不分大小寫嗎?
我一定要分大小寫又該如何處理呢?
比對2個.TXT檔案的程式(編號：6396)
有2個.TXT檔的資料進行比對,相同的放在原來的其中一個檔裡,
不同的則另開一個檔存放,問題是那2個 .TXT的資料量很大,
都在上千筆,甚至超過5000筆已上,本來我已寫好了,但由於
資料量實在很大,我的程式執行到一半就當了,
請問各位有什麼更好的辨法.真的非常急,謝謝!!
不同的則另開一個檔存放,問題是那2個 .TXT的資料量很大,
都在上千筆,甚至超過5000筆已上,本來我已寫好了,但由於
資料量實在很大,我的程式執行到一半就當了,
請問各位有什麼更好的辨法.真的非常急,謝謝!!
如何用 TypeOf 來判斷Microsoft Forms 2.0 Object library底下的(編號：6395)
請教一下
我用了Microsoft Forms 2.0 Object library底下的一些元件
但是為何用TypeOf來判斷是不是TextBox,ComboBox...都無效,
可是用TypeName來判斷,他們的名字得確也是叫TextBox,ComboBox
也就是他不符合底下的判斷式
For i = 1 To Me.Controls.Count
If TypeOf Me.Controls(i) Is TextBox Then
...
endif
next i
我用了Microsoft Forms 2.0 Object library底下的一些元件
但是為何用TypeOf來判斷是不是TextBox,ComboBox...都無效,
可是用TypeName來判斷,他們的名字得確也是叫TextBox,ComboBox
也就是他不符合底下的判斷式
For i = 1 To Me.Controls.Count
If TypeOf Me.Controls(i) Is TextBox Then
...
endif
next i
如何在vb 中用excel?(編號：6393)
VB的Excel class中有很多oject，小弟不知如何使用....
1/如何在workbook中開一個新的worksheet
2/如何改那worksheet的名稱
pls help....
1/如何在workbook中開一個新的worksheet
2/如何改那worksheet的名稱
pls help....
高手..看一下吧...(編號：6392)
請問一下..
vb有沒有辦法像遊戲修改大師類的東西...
去找到某個程式的某個值...
當然我不是想做修改大師...
我想做的是...
例如
某個程式中的某個值..達到某個程度.
然後再對他做動作?...
拜託...回答我吧..＞＜
vb有沒有辦法像遊戲修改大師類的東西...
去找到某個程式的某個值...
當然我不是想做修改大師...
我想做的是...
例如
某個程式中的某個值..達到某個程度.
然後再對他做動作?...
拜託...回答我吧..＞＜
請問如何讓toolbar中的 button 的背景透空....(編號：6391)
小弟利用 Coolbar + toolbar 做出一個功能表, 但是於 coolbar 中設有背景圖, 但會被 toolbar 的灰色背景覆蓋, 請問小弟該如何做?!
多謝~
多謝~
DataGrid 流覽時的錯誤訊息(編號：6388)
我用DataGrid用上下鍵在流覽資料時會出現"找不到要更新的列.最後讀取的值已被變更.",請問問題在那,我是直接將RecordSet指向dagagrid .vb6,sp4
Visual Basic Project 無論程度如何, 只要有心想學好, 歡迎大家(編號：6387)
我想找個有趣的題目, 用 Visual Basic 實作出來
目前題材還沒有個方向, 藉由大家資源共享, 而且所有 Source Code 全供加入的 VB人大家共同參考與討論, 我覺得蠻不錯的, 只是希望加入的人是真的有心想參加, 不見得一定要撥出很多時間, 但是希望能持之以恆(應該也不會太久啦 !), 希望大家不要有壓力的感覺, 就是自己覺得程度不是很好也沒關係, 懂得再多的人也有不會的地方, 大家互相切磋, 懂得少的人可以學到很多, 懂得多的人也可以更熟練 !!(笑), 希望大家踴躍參加`
想要加入的人 寫信給我 記得把前面那個 antispam 拿掉就可以了
目前題材還沒有個方向, 藉由大家資源共享, 而且所有 Source Code 全供加入的 VB人大家共同參考與討論, 我覺得蠻不錯的, 只是希望加入的人是真的有心想參加, 不見得一定要撥出很多時間, 但是希望能持之以恆(應該也不會太久啦 !), 希望大家不要有壓力的感覺, 就是自己覺得程度不是很好也沒關係, 懂得再多的人也有不會的地方, 大家互相切磋, 懂得少的人可以學到很多, 懂得多的人也可以更熟練 !!(笑), 希望大家踴躍參加`
想要加入的人 寫信給我 記得把前面那個 antispam 拿掉就可以了
如何尋找和取代 test.txt 裹的字串?(編號：6386)
例如 test.txt 的內容如下:
Chinese
English
Mathematics
History
Chemistry
Physics
Biology
如果我想把 "History"(不論大小楷) 改成 "Additional Mathematics", 應該如何寫呢?
及我想如果:
If test.txt 裹找不到 "English" 字串 Then
在檔案的第二行加入 "English" 字串
End If
程式往下執行...
應該怎樣做?
謝謝各位高手指教!!
Chinese
English
Mathematics
History
Chemistry
Physics
Biology
如果我想把 "History"(不論大小楷) 改成 "Additional Mathematics", 應該如何寫呢?
及我想如果:
If test.txt 裹找不到 "English" 字串 Then
在檔案的第二行加入 "English" 字串
End If
程式往下執行...
應該怎樣做?
謝謝各位高手指教!!
如何取得新的資料錄集合(編號：6385)
我在程式中刪除了某一個資料(SQL:Delete * From Table Where 條件)但是,我必須取的新的資料錄,否則在MoveNext,Move...等時.還是會看到那筆被刪除的資料,而我用Requery的話..雖然已取的新的資料錄..但是Fomr上的各項資料感知元件似乎也失去了連結..因為我此時作Move的動作各項感知元件的內容都沒變,必須關掉該form再讀取才可以...謝謝....
crystal report 的detail section的設定問題(編號：6384)
目前需要設計一個報表，是有連結二個資料表格
主表格中一個key會對應至另一表格中多筆資料
而我的key又是三個欄位組成的(年、代碼、區)
請問group要怎麼設？(我目前只用代碼來做group沒有問題)
而我相對應的另一資料表中有多筆資料，我用multi column layout
來做(因為必須要把同一group的資料放在同一頁中)
所以multi column layout的設定我選across then down
出來結果會把資料在detail section從左到右印出來
可是在detail section中，前面我又必須要寫出該欄位的標題
可是我把標題寫進去detail section後，他每一筆資料前都印出
標題，然後重疊在一起，這個又要怎麼解決定呢？
我還有一個更大的難題是
detail中，我印出五個欄位值
這五個欄位要用編號排序印出來
可是我必須再多加一行是顯示其中一個欄位值從大到小排序下來
如下：
編號 1 2 3
價錢 200 150 420
價錢由大至小排列 420 200 150
^^^^^^^^^^^^^^^
(這些標題會在detail中重覆印出來)
然後在報表的最後還要印出上面由大至小的「中位數」--＞200
這要怎麼設定呢？我真的頭好大，煩請各位先進指導，感激不盡！
希望有人看得懂我的問題，謝謝大家！
主表格中一個key會對應至另一表格中多筆資料
而我的key又是三個欄位組成的(年、代碼、區)
請問group要怎麼設？(我目前只用代碼來做group沒有問題)
而我相對應的另一資料表中有多筆資料，我用multi column layout
來做(因為必須要把同一group的資料放在同一頁中)
所以multi column layout的設定我選across then down
出來結果會把資料在detail section從左到右印出來
可是在detail section中，前面我又必須要寫出該欄位的標題
可是我把標題寫進去detail section後，他每一筆資料前都印出
標題，然後重疊在一起，這個又要怎麼解決定呢？
我還有一個更大的難題是
detail中，我印出五個欄位值
這五個欄位要用編號排序印出來
可是我必須再多加一行是顯示其中一個欄位值從大到小排序下來
如下：
編號 1 2 3
價錢 200 150 420
價錢由大至小排列 420 200 150
^^^^^^^^^^^^^^^
(這些標題會在detail中重覆印出來)
然後在報表的最後還要印出上面由大至小的「中位數」--＞200
這要怎麼設定呢？我真的頭好大，煩請各位先進指導，感激不盡！
希望有人看得懂我的問題，謝謝大家！
程式吃記憶體吃好兇!!(編號：6382)
利用ADODC連接SQL 7.0 Server
這隻程式放在Server本身一分鐘到網路上抓取資料回來之後
直接存進 MS SQL 7.0 Server
但是最近發現
程式一直執行不停止, 記憶體的佔據會越來越大
不知道是不是我每次執行抓取資料和存進SQL Server的時候
把程式碼寫在 buttom 裡, 而每次都採用timer時間記數
時間到就執行buttom的程式造成的?
還是是 adodc 的問題??
希望有高手先進一起討論此問題. ^_^
這隻程式放在Server本身一分鐘到網路上抓取資料回來之後
直接存進 MS SQL 7.0 Server
但是最近發現
程式一直執行不停止, 記憶體的佔據會越來越大
不知道是不是我每次執行抓取資料和存進SQL Server的時候
把程式碼寫在 buttom 裡, 而每次都採用timer時間記數
時間到就執行buttom的程式造成的?
還是是 adodc 的問題??
希望有高手先進一起討論此問題. ^_^
請教VB6如何於封裝時指定欲安裝的目錄(編號：6381)
因我呼叫的API
宣告
Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
iResult = mciExecute("Play " & PATH1 & "\blip1.wav")
安裝於C:\Program files\中文目錄名稱
我發現它無法存取有空格的路徑有解決的辦法嗎
謝謝
宣告
Public Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
iResult = mciExecute("Play " & PATH1 & "\blip1.wav")
安裝於C:\Program files\中文目錄名稱
我發現它無法存取有空格的路徑有解決的辦法嗎
謝謝
關於檢查型態為date欄位的問題.......(編號：6378)
請問各位大大.....
小弟寫了一支asp的程式,它必須去偵測位於SQL Server中一個型態為date的欄位是否為空(null),請問此判段式要如何寫呢????
是這樣嗎===＞if rs.fields("日期")="" then
可是無法辨別說....????
小弟寫了一支asp的程式,它必須去偵測位於SQL Server中一個型態為date的欄位是否為空(null),請問此判段式要如何寫呢????
是這樣嗎===＞if rs.fields("日期")="" then
可是無法辨別說....????
在VB6.0 有DataReport但沒有Crystal Reports...(編號：6377)
在VB6.0 有DataReport但沒有Crystal Reports
VB6.0 像VB5.0 有Crystal Reports
在VB6.0 如何加入 Crystal Reports呢
VB6.0 像VB5.0 有Crystal Reports
在VB6.0 如何加入 Crystal Reports呢
如何用SQL語法組合三個Table(編號：6376)
請問...有一資料庫..內有三個資料表(互相為一對一關聯性)...請問要如何將他們使用SQL組合在一起呢..!?...
三個資料表皆有一名為fieldA的欄位..本來想使用INNER JOIN..但是只能組合兩個資料表的樣子..!!
因為我現在是使用Data Environment建三個rs指令...然後其中有些關聯性..!!
有三個Form分別存取三個rs指令,可是程式常常一下這錯一下那不對...請問各為前背有沒有什麼關於關聯式資料表的建議呢.?!..謝謝
三個資料表皆有一名為fieldA的欄位..本來想使用INNER JOIN..但是只能組合兩個資料表的樣子..!!
因為我現在是使用Data Environment建三個rs指令...然後其中有些關聯性..!!
有三個Form分別存取三個rs指令,可是程式常常一下這錯一下那不對...請問各為前背有沒有什麼關於關聯式資料表的建議呢.?!..謝謝
Tab鍵的判斷???(編號：6371)
我知道有vbTab,可是當我按Tab鍵時並沒有傳回值，就是沒有回應，除了會照TabIndex跳之外，對我寫的Form_KeyDown的程式並沒有動作，想請問為什麼會這樣？
唯一碼(編號：6370)
請問一下，在vb中有沒有元件或控制項可以
造出一 n位元字串或long，而且絕不重復？
我找過國外的網站，並沒有這些，有的都
是利用日期做變化，但我要的是像SQL Server
中的16位元的唯一識別碼。
有方法嗎，請指點一下迷津，謝謝
造出一 n位元字串或long，而且絕不重復？
我找過國外的網站，並沒有這些，有的都
是利用日期做變化，但我要的是像SQL Server
中的16位元的唯一識別碼。
有方法嗎，請指點一下迷津，謝謝
安裝程式的問題!(編號：6368)
在 NT 的環境 :
請問VB安裝程式如何可以將程式安裝到所有使用者的程式資料夾?
因VB安裝程式在 NT 的環境下安裝, 但其他使用者登入後, 無法在程式集內看到剛安裝的程式!
請問VB安裝程式如何可以將程式安裝到所有使用者的程式資料夾?
因VB安裝程式在 NT 的環境下安裝, 但其他使用者登入後, 無法在程式集內看到剛安裝的程式!
Tab鍵的判斷???(編號：6367)
我知道有vbTab,可是當我按Tab鍵時並沒有傳回值，就是沒有回應，除了會照TabIndex跳之外，對我寫的Form_KeyDown的程式並沒有動作，想請問為什麼會這樣？
Tab鍵的判斷???(編號：6366)
我知道有vbTab,可是當我按Tab鍵時並沒有傳回值，就是沒有回應，除了會照TabIndex跳之外，對我寫的Form_KeyDown的程式並沒有動作，想請問為什麼會這樣？
如何使程式不要列在工作區內?(編號：6365)
如何使程式不要列在 NT 的 "工作管理員" 中的 "處理程序" 內, 因我有個程式是要讓有權限的使用者才可以結束該程式, 無權限的使用者則無法結束該程式,但如果程式列在 "處理程序" 內, 無權限的使用者可直接把此程式的 proccess 刪除!!
判斷檔案是否存在????(編號：6364)
我要用VB寫匯檔至Excel，要判斷這個檔案是否存在,
Set excelApp=CreateObject(excel.Application)之後，
想用excelApp.FileExists(filepath)來判斷其是否存在，可是執行時說不支援此屬性，想請問有其他方法可判斷檔案是否存在嗎？ thanks.
Set excelApp=CreateObject(excel.Application)之後，
想用excelApp.FileExists(filepath)來判斷其是否存在，可是執行時說不支援此屬性，想請問有其他方法可判斷檔案是否存在嗎？ thanks.
Update 資料時的錯誤訊息(編號：6363)
我在資料Update時發生一錯誤訊息
(消費者事件控制碼在提供者呼叫non-reentrant方法)
我懷疑是在做日期update時發生的問題
rs!Request_Date = Req_date.Value
..
..
..
rs.UpdateBatch
不知道有何解決的方法不讓它錯誤且可更新資料呢??
(消費者事件控制碼在提供者呼叫non-reentrant方法)
我懷疑是在做日期update時發生的問題
rs!Request_Date = Req_date.Value
..
..
..
rs.UpdateBatch
不知道有何解決的方法不讓它錯誤且可更新資料呢??
VB6+SQL7.0 Timeout 如何解決?(編號：6362)
1.利用adodc物件+datagrid,連結SQL server 發生"逾時過期"
請問有何解決方式? 或是如何設timeOut ?
2.嘗試用小之table即可以連上,但是用adodb方式,則發生了,
請問是何原因?
請問有何解決方式? 或是如何設timeOut ?
2.嘗試用小之table即可以連上,但是用adodb方式,則發生了,
請問是何原因?
資料無法移到下一筆????(編號：6361)
各位大哥小弟有一問題，我用 Select.....Where..... 後卻無法再用 MoveNext 不知要如何解決，部分程式碼如下：
ID 為變數
rs.open "select * from 學生" where "課程編號" = " & ID & "......
.以下略
rs.movenext
謝謝!!!
ID 為變數
rs.open "select * from 學生" where "課程編號" = " & ID & "......
.以下略
rs.movenext
謝謝!!!
回答 Ado 一問 關於資料更新(編號：6360)
基本上使用ADO更動資料，如果是新增，或修改儲存後是不需Refresh,或者是Requery，如果是刪除一筆資料，則僅需在刪除後將游標移到第一筆，則刪除之資料空位就會清掉，不需要去Requery，
記得執行Requery,等於是
ado.close
ado.Open "Select * FROM ..."
，如此程式運作速度會變慢
記得執行Requery,等於是
ado.close
ado.Open "Select * FROM ..."
，如此程式運作速度會變慢
給~~~紀文和(編號：6359)
Public Function ImeGetDescription() As String
Dim Description As String
Description = String(255, 0)
ImmGetDescription GetKeyboardLayout(0), Description, 255
ImeGetDescription = Left(Description, InStr(Description, Chr(0)) - 1)
End Function
程式碼您都列出來了, 測一下不就有結果了嗎？
倉頡輸入法4.1版 傳回值就是 "倉頡輸入法4.1版"
注音輸入法4.1版 傳回值就是 "注音輸入法4.1版"
微軟新注音輸入法98a 傳回值就是 "微軟新注音輸入法98a"
那傳回函數叫什麼名字丫~~~~?????
Dim Description As String
Description = String(255, 0)
ImmGetDescription GetKeyboardLayout(0), Description, 255
ImeGetDescription = Left(Description, InStr(Description, Chr(0)) - 1)
End Function
程式碼您都列出來了, 測一下不就有結果了嗎？
倉頡輸入法4.1版 傳回值就是 "倉頡輸入法4.1版"
注音輸入法4.1版 傳回值就是 "注音輸入法4.1版"
微軟新注音輸入法98a 傳回值就是 "微軟新注音輸入法98a"
那傳回函數叫什麼名字丫~~~~?????
如果是注音或新注音傳回值是什麼丫~~?ChrisTorng(編號：6354)
Public Function ImeGetDescription() As String
Dim Description As String
Description = String(255, 0)
ImmGetDescription GetKeyboardLayout(0), Description, 255
ImeGetDescription = Left(Description, InStr(Description, Chr(0)) - 1)
End Function
傳回的函數是什麼還有值是什麼丫~~~~??
Dim Description As String
Description = String(255, 0)
ImmGetDescription GetKeyboardLayout(0), Description, 255
ImeGetDescription = Left(Description, InStr(Description, Chr(0)) - 1)
End Function
傳回的函數是什麼還有值是什麼丫~~~~??
SQL Server 7.0 中可不可以 Link Access的資料表?(編號：6350)
在Access中可以 Link 不同資料庫中的資料表,在SQL Server中可不可以做到呢?因為有一台機台的資料是存在Access中, 我想把它定時Update到sql server 中.謝謝.
如何設定連接 MTS ORACLE DATABASE 8i(編號：6349)
目前 MTS 與 SQL SERVER 連接無問題,但MTS & ORACLE DATABASE 8i
一直無法連接,需設定那些東東?
一直無法連接,需設定那些東東?
如何判斷TextBox 的 Mouse Click 時，Click的是的上or下捲軸？(編號：6346)
想利用Textbox做到能以捲軸點選方式，選擇textbox裡的資料，
我的Textbox是設Multi Line = true，ScrollBar = 垂直捲軸，
而我想抓到Click的是的上or下捲軸...
我的Textbox是設Multi Line = true，ScrollBar = 垂直捲軸，
而我想抓到Click的是的上or下捲軸...
關於影像擷取(編號：6342)
我是很懶的人...
凡是在網路上找得到答案的問題, 找不到解答, 似乎是自己活該, 不關我的事, 我也懶得多說幾句廢話...
但也是有受不了特定人的時候, 不是有人問我問題而受不了, 是看 post 看得有點不爽, 總覺得某些人在拿俏...
關於影像擷取這有很好完整的 Code 範例可以下載:
http://www.shrinkwrapvb.com/vbvidcap.htm
作者也包裝成免費的 OCX 提供使用, 看得懂看不懂不關我的事! 別問我關於別人程式的內容!
但至少資訊有了, 怎麼學習是別人的問題了! 至少用逐步執行來學習總會吧?
凡是在網路上找得到答案的問題, 找不到解答, 似乎是自己活該, 不關我的事, 我也懶得多說幾句廢話...
但也是有受不了特定人的時候, 不是有人問我問題而受不了, 是看 post 看得有點不爽, 總覺得某些人在拿俏...
關於影像擷取這有很好完整的 Code 範例可以下載:
http://www.shrinkwrapvb.com/vbvidcap.htm
作者也包裝成免費的 OCX 提供使用, 看得懂看不懂不關我的事! 別問我關於別人程式的內容!
但至少資訊有了, 怎麼學習是別人的問題了! 至少用逐步執行來學習總會吧?
DataCombo 如何刪除重複的List(編號：6341)
我用DataCombo 從Adodc中設定了,但有重複的名字時(例Sony,NEC,Sony,HP,NEC),要如何使List上只看到一項就好了呢(Sony,NEC,HP)
DataCombo.RowSource = Adodc1
DataCombo.ListField= Model
DataCombo.RowSource = Adodc1
DataCombo.ListField= Model
請問兩個列印問題(編號：6340)
請問兩個列印問題：
一、如何以程式碼取得及設定列表機 "無法列印的區域" 的值與單位？
二、在列印對話框中 "列印至檔案" 所產生的檔案有何用途？ 如何以程式碼輸出至檔案？
謝謝！
一、如何以程式碼取得及設定列表機 "無法列印的區域" 的值與單位？
二、在列印對話框中 "列印至檔案" 所產生的檔案有何用途？ 如何以程式碼輸出至檔案？
謝謝！
Outlook物件寄信如何能收到Html格式的信件(編號：6339)
使用到下列參數及內容但是都收到文字檔不成功,還請高手賜教!!
strBody = strBody & "MIME-Version: 1.0"
strBody = strBody & "Content-Type: text/html;
charset=big5"
strBody = strBody & "＜!DOCTYPE HTML PUBLIC ""-//W3C//DTD
HTML 4.0 Transitional//EN""＞"
strBody = strBody & "＜html＞＜head＞"
strBody =....... 略
.Recipients.Add strTemp '收件人
.Subject = strSubject '主旨
.Body = strBody '內容
.Save '存入寄件夾
.Send '出信件
strBody = strBody & "MIME-Version: 1.0"
strBody = strBody & "Content-Type: text/html;
charset=big5"
strBody = strBody & "＜!DOCTYPE HTML PUBLIC ""-//W3C//DTD
HTML 4.0 Transitional//EN""＞"
strBody = strBody & "＜html＞＜head＞"
strBody =....... 略
.Recipients.Add strTemp '收件人
.Subject = strSubject '主旨
.Body = strBody '內容
.Save '存入寄件夾
.Send '出信件
VB Project 歡迎有志之士加入 ^_^(編號：6338)
我想找個有趣的題目, 用 Visual Basic 實作出來
目前題材還沒有個方向, 不過希望能有較高的實用價值
藉由大家資源共享, 而且所有 Source Code 全供加入的
vb人大家共同參考與討論, 如果情況很順利的話, 說不定
還可以商品化, 大家可以得到應得的利潤, 又可以增強功力
說不定還有報酬, 我覺得蠻不錯的, 只是希望加入的人是真的
有心想參加, 不見得一定要撥出很多時間, 但是總不能說加入以後
從此不見人影吧, ^_^ 期待您的加入 !!
想要加入的人 寫信給我 記得把前面那個 antispam 拿掉就可以了
目前題材還沒有個方向, 不過希望能有較高的實用價值
藉由大家資源共享, 而且所有 Source Code 全供加入的
vb人大家共同參考與討論, 如果情況很順利的話, 說不定
還可以商品化, 大家可以得到應得的利潤, 又可以增強功力
說不定還有報酬, 我覺得蠻不錯的, 只是希望加入的人是真的
有心想參加, 不見得一定要撥出很多時間, 但是總不能說加入以後
從此不見人影吧, ^_^ 期待您的加入 !!
想要加入的人 寫信給我 記得把前面那個 antispam 拿掉就可以了
請問DBGrid與DataGrid的差別.!?(編號：6336)
請問一下各位前輩..DBGrid與DataGrid究竟有什麼差別呢.!?..因為我是從VB6才開始接觸VB的....可是我看書上都是講DataGrid但是常看到常有人在討論DBGrid...又...vb6可以使用DBGrid嗎.!?..謝謝
關於 ASP 連結 ODBC 資料庫..(編號：6335)
申請了一個可以執行ASP的國外網頁空間WebSamba, 碰到問題
執行以下的ASP片段：
＜%
'顯示出留言版的資料
'註解一
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("manguest.mdb")
Set rs = conn.Execute( "gbook" )
'註解二
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("AdvWorks.mdb")
'Set rs = conn.Execute( "customers" )
'Set rs = conn.Execute( "customers id" )
'以下省去..
%＞
其中註解二的資料庫是弟從王國榮先生的書中附的範例資料庫取得的執行並沒有問題，但是註解一的資料庫是我自行用access 97 建立的出現以下的錯誤訊息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot open database '(unknown)'. It may not be a database that your application recognizes, or the file may be corrupt.
/vb-asp/Default.asp, line 10
但是我並沒有打錯資料庫的名字，也檢查過好幾次了，為什麼會有這種情形發生呢？謝謝您的解答
執行以下的ASP片段：
＜%
'顯示出留言版的資料
'註解一
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("manguest.mdb")
Set rs = conn.Execute( "gbook" )
'註解二
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("AdvWorks.mdb")
'Set rs = conn.Execute( "customers" )
'Set rs = conn.Execute( "customers id" )
'以下省去..
%＞
其中註解二的資料庫是弟從王國榮先生的書中附的範例資料庫取得的執行並沒有問題，但是註解一的資料庫是我自行用access 97 建立的出現以下的錯誤訊息：
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Cannot open database '(unknown)'. It may not be a database that your application recognizes, or the file may be corrupt.
/vb-asp/Default.asp, line 10
但是我並沒有打錯資料庫的名字，也檢查過好幾次了，為什麼會有這種情形發生呢？謝謝您的解答
欲開啟.dbf資料庫時出現找不到可安裝的ISAM錯誤(編號：6334)
請問..我用ADODC想要連結.dbf的資料庫和以vb6的增益集＞＞資料管理員,新增一Access 7.0資料庫,再檔案＞＞匯入/匯出＞＞匯入..我選擇了.dbf資料庫...這兩種方法都會發生如主題的錯誤.已確定資料庫本身沒有問題.請問如何解決..謝謝
攔截SHFileOperation API之對話方塊(編號：6333)
使用SHFileOperation API搬移或刪除檔案時，若檔案是在使用中或是唯讀檔案等時會有對話方塊出現而使作業停動下來，請問VB如何讓這種對話方塊在搬移或刪除過程中不出現且不使作業停動下來？
Height and Width(編號：6331)
設計階段時 frmMain之ScaleMode=1-Twip，Runtime時frmMain.Height and Width之值與設計階段一樣，但是如Frame之控制項設計階段之Height=1692，但是Runtime時用Debug.Print顯示卻為141，請問這是甚麼原因？
如何取得日期型態呢?(編號：6327)
date1=request.form("year") & "/" & request.form("month") & "/" & "01"
date2=dateadd("m",1,date1)
各位高手,為什麼會出現date1的型態不對呢...我真是搞不懂耶..
request.form("year")及request.form("month")是下拉式後的值
..
不過如果是date1=request.form("year") & "/" & request.form("month") & "/" & request.form("day")就不會出錯..
不過我沒有day的下拉式,所以我必須用"01"來表示,不過用這樣又會出錯,各位高手們,你們一定知道我在寫什麼吧,請幫我解答吧!謝謝!
date2=dateadd("m",1,date1)
各位高手,為什麼會出現date1的型態不對呢...我真是搞不懂耶..
request.form("year")及request.form("month")是下拉式後的值
..
不過如果是date1=request.form("year") & "/" & request.form("month") & "/" & request.form("day")就不會出錯..
不過我沒有day的下拉式,所以我必須用"01"來表示,不過用這樣又會出錯,各位高手們,你們一定知道我在寫什麼吧,請幫我解答吧!謝謝!
去哪裡download VB6 的 documentation?(編號：6320)
如題。
VB 6.0 的documentation, 就是一般程式軟體所提供的help啦, index啦, search啦，請告訴我。
VB 6.0 的documentation, 就是一般程式軟體所提供的help啦, index啦, search啦，請告訴我。
如何取得radio物件,點選後的值...(謝謝!)(編號：6319)
＜%
if form1.option1.checked=true then
!--在這裡會出現錯誤訊息.."此處需提供物件"...各位高手,請幫我解答吧..謝謝..
type="蘋果"
elseif form1.option2.checked=true then
type="橘子"
elseif form1.option3.checked=true then
type="蓮霧"
end if
%＞
＜form name=form1＞
＜input type=radio name="fruit" id="option1" value="蘋果"＞蘋果＜input type=radio name="fruit" id="option2" value="橘子"＞橘子＜input type=radio name="fruit" id="option3" value="蓮霧"＞蓮霧
＜/form＞
我想取得點選以後的值,然後將值放在type裡,但如何取得點選後的值呢,還是有更好的方法呢...拜託你們了
if form1.option1.checked=true then
!--在這裡會出現錯誤訊息.."此處需提供物件"...各位高手,請幫我解答吧..謝謝..
type="蘋果"
elseif form1.option2.checked=true then
type="橘子"
elseif form1.option3.checked=true then
type="蓮霧"
end if
%＞
＜form name=form1＞
＜input type=radio name="fruit" id="option1" value="蘋果"＞蘋果＜input type=radio name="fruit" id="option2" value="橘子"＞橘子＜input type=radio name="fruit" id="option3" value="蓮霧"＞蓮霧
＜/form＞
我想取得點選以後的值,然後將值放在type裡,但如何取得點選後的值呢,還是有更好的方法呢...拜託你們了
如何在輸入王時，grid就能找出第一字是王的名字出來?(編號：6318)
如何在輸入"王"時，grid就能找出第一字是"王"的名字出來?
而在輸入"王小"時，grid就能找出前兩字是"王小"的名字出來?
語法怎麼寫?急啊!
而在輸入"王小"時，grid就能找出前兩字是"王小"的名字出來?
語法怎麼寫?急啊!
How to set frame1\textbox to form2\frame2\text???????????(編號：6317)
"請問Form1 裡面的frame1 裡面的一個 textBox的數字要怎麼傳送到 Form2 裡面的另
一個Frame 裡面的textBox去?!
我舉例好了~~
1)在form1中裡面的一個 frame 裡面我放一個 textBox 設為txtDog
2)現在我想要Form1\frame1\txtDog.text = 10 可以傳送到
form2\frame2\txtDog.text ( 因為我想做總和..所以把form1裡面的frame數據都傳送
到 form2 裡面的frame! 好方便讓使用者一目了然)
不知道我這樣說你們這樣看不看的懂?!
3) 我的code 是這樣寫的
(Modules)
Public MyDog as Integer
(Form 1)
Private Sub cmdShow_Click()
Form2.Show
MyDog = txtDog.text
end sub
(Form2)
Private Sub frmSummary_DragDrop(Source As Control, X As Single, Y As Single)
MyDog = txtDog2.text
end sub
我又嘗試另一個方法
(Form1)
Private Sub cmdShow_Click()
Set txtDog.Container = Frame2
End sub
(Form2)
Private Sub frmSummary_DragDrop(Source As Control, X As Single, Y As Single)
Set txtDog.Container = txtDog2.text
End sub
可是還是沒辦法傳送過來!"
一個Frame 裡面的textBox去?!
我舉例好了~~
1)在form1中裡面的一個 frame 裡面我放一個 textBox 設為txtDog
2)現在我想要Form1\frame1\txtDog.text = 10 可以傳送到
form2\frame2\txtDog.text ( 因為我想做總和..所以把form1裡面的frame數據都傳送
到 form2 裡面的frame! 好方便讓使用者一目了然)
不知道我這樣說你們這樣看不看的懂?!
3) 我的code 是這樣寫的
(Modules)
Public MyDog as Integer
(Form 1)
Private Sub cmdShow_Click()
Form2.Show
MyDog = txtDog.text
end sub
(Form2)
Private Sub frmSummary_DragDrop(Source As Control, X As Single, Y As Single)
MyDog = txtDog2.text
end sub
我又嘗試另一個方法
(Form1)
Private Sub cmdShow_Click()
Set txtDog.Container = Frame2
End sub
(Form2)
Private Sub frmSummary_DragDrop(Source As Control, X As Single, Y As Single)
Set txtDog.Container = txtDog2.text
End sub
可是還是沒辦法傳送過來!"
有關SQL和ADO的問題....(編號：6315)
1.請問一下，SQL是作什麼用的？它和VB有什麼關係？是一套軟體嗎？還是什麼東西丫？
2.在VB中常看到ADO三個字，ADO這三個字是代表什麼意思？是有什麼作用嗎？還是代表著一些功能丫？還是....
請各位大哥幫幫忙，這兩個問題困擾偶粉久了...謝謝
by 小笨笨
2.在VB中常看到ADO三個字，ADO這三個字是代表什麼意思？是有什麼作用嗎？還是代表著一些功能丫？還是....
請各位大哥幫幫忙，這兩個問題困擾偶粉久了...謝謝
by 小笨笨
如何至至resete 功能?(編號：6313)
各位網路上的英雄豪傑們~~
你們好! 在下是一位剛進入VB 江湖世界的一名菜鳥^^ 今天有一件試想請教各位來自四面八方的高手們一個問題!
請問你們..... 我要怎麼設定reset 把一個數字不管你怎麼改.... 只要我重新啟動程式那個數字又會自動改回我原先預設的數字!
列如: 馬有幾隻腳？ ４隻腳．．．． 當然有些人可以把４隻腳改為２隻腳．．．． 因為他說"馬”場（以前日本摔角明星）是人所以有兩隻腳 ^^
所以不管怎樣.... 當我關掉程式以後又重新開啟時.... 問題馬有幾隻腳的答案 還是跟原先一樣 為4隻腳!
這麼簡單的問題..希望高手傳授我武林心得吧! 謝謝~~
ps: 那如果想用手動的呢?! 就是製造一個按鈕只要一按.... 全部數字都會變回原先的預設值?!
謝謝 你們~~~
你們好! 在下是一位剛進入VB 江湖世界的一名菜鳥^^ 今天有一件試想請教各位來自四面八方的高手們一個問題!
請問你們..... 我要怎麼設定reset 把一個數字不管你怎麼改.... 只要我重新啟動程式那個數字又會自動改回我原先預設的數字!
列如: 馬有幾隻腳？ ４隻腳．．．． 當然有些人可以把４隻腳改為２隻腳．．．． 因為他說"馬”場（以前日本摔角明星）是人所以有兩隻腳 ^^
所以不管怎樣.... 當我關掉程式以後又重新開啟時.... 問題馬有幾隻腳的答案 還是跟原先一樣 為4隻腳!
這麼簡單的問題..希望高手傳授我武林心得吧! 謝謝~~
ps: 那如果想用手動的呢?! 就是製造一個按鈕只要一按.... 全部數字都會變回原先的預設值?!
謝謝 你們~~~
取得點選後的值...radio物件(編號：6311)
＜%
if form1.option1.checked=true then
!--在這裡會出現錯誤訊息.."此處需提供物件"...各位高手,請幫我解答吧..謝謝..
type="蘋果"
elseif form1.option2.checked=true then
type="橘子"
elseif form1.option3.checked=true then
type="蓮霧"
end if
%＞
＜form name=form1＞
＜input type=radio name="fruit" id="option1" value="蘋果"＞蘋果＜input type=radio name="fruit" id="option2" value="橘子"＞橘子＜input type=radio name="fruit" id="option3" value="蓮霧"＞蓮霧
＜/form＞
我想取得點選以後的值,然後將值放在type裡,但如何取得點選後的值呢,還是有更好的方法呢...拜託你們了...
if form1.option1.checked=true then
!--在這裡會出現錯誤訊息.."此處需提供物件"...各位高手,請幫我解答吧..謝謝..
type="蘋果"
elseif form1.option2.checked=true then
type="橘子"
elseif form1.option3.checked=true then
type="蓮霧"
end if
%＞
＜form name=form1＞
＜input type=radio name="fruit" id="option1" value="蘋果"＞蘋果＜input type=radio name="fruit" id="option2" value="橘子"＞橘子＜input type=radio name="fruit" id="option3" value="蓮霧"＞蓮霧
＜/form＞
我想取得點選以後的值,然後將值放在type裡,但如何取得點選後的值呢,還是有更好的方法呢...拜託你們了...
RDS存取SQL Server的問題????(編號：6310)
請問有誰知道如何用RDS存取SQL Server 7 上面的資料?
試了很久, 但是一直都沒有成功!王國榮的書上也找不到?(只有用RDS access .MDB 的介紹)
Microsoft 網站上也沒找到, 大概是找的方法不對.
請知道的高手指教. 謝謝!
試了很久, 但是一直都沒有成功!王國榮的書上也找不到?(只有用RDS access .MDB 的介紹)
Microsoft 網站上也沒找到, 大概是找的方法不對.
請知道的高手指教. 謝謝!
關於FileListBox(編號：6307)
我再作一個可以存檔和DriveListBox,DirListBox,FileListBox
但每次存檔
FileListBox裡的檔案數目都不會跟新
除非用
1 Drive1 = "D:\"
2 Drive1 = pathname
可是若某電腦沒有d:那不是就出現錯誤了嗎?
還有能顯示圖片的長寬,格式嗎?
像600*800,jpg
但每次存檔
FileListBox裡的檔案數目都不會跟新
除非用
1 Drive1 = "D:\"
2 Drive1 = pathname
可是若某電腦沒有d:那不是就出現錯誤了嗎?
還有能顯示圖片的長寬,格式嗎?
像600*800,jpg
如何將vb所產生的exe檔 在其後加上參數(編號：6306)
如何將vb所產生的exe檔 在其後加上參數
依據不同的參數 執行不同的程式或觸發不同的command button
就如同DOS的指令 format /s /q ....等等
請老鳥傳授 謝謝
依據不同的參數 執行不同的程式或觸發不同的command button
就如同DOS的指令 format /s /q ....等等
請老鳥傳授 謝謝
請問關於radio物件(編號：6305)
＜form name=form1＞
＜input type="radio" name="pig" id=option1 value="男" ＞男
＜input type="radio" name="pig" id=option2 value="女" ＞女
＜/form＞
請問我如何去取得pig裏的值"男"..
是不是可用document.form1.option1.value="男"
每次出現的錯誤訊息都是"此處需要物件"...真是搞不懂耶...
請用vbscript高手,如何解答呢....
＜input type="radio" name="pig" id=option1 value="男" ＞男
＜input type="radio" name="pig" id=option2 value="女" ＞女
＜/form＞
請問我如何去取得pig裏的值"男"..
是不是可用document.form1.option1.value="男"
每次出現的錯誤訊息都是"此處需要物件"...真是搞不懂耶...
請用vbscript高手,如何解答呢....
請問有關Oracle(編號：6304)
請問Oracle各版本的功能主要為何,初學者應從何下手
Oracle Designer R2.1.2
Oracle Designer R2.1.2 Preconfigured RepoitoryPersonal Oracle Lite V2.4.3.1.1
Oracle Designer CASE Dictionary 5.1 Upgrade
Oracle Developer 2000 R.2.1
Oracle 8 Client V8.0.5.00
Programer 2000
Oracle Designer R2.1.2
Oracle Designer R2.1.2 Preconfigured RepoitoryPersonal Oracle Lite V2.4.3.1.1
Oracle Designer CASE Dictionary 5.1 Upgrade
Oracle Developer 2000 R.2.1
Oracle 8 Client V8.0.5.00
Programer 2000
請教一下vb要如何用影像擷取卡擷取影像下來?(編號：6303)
看了很多書都教怎麼用VB撥放已經存在的影像檔
小弟想請問能不能用VB把影像擷取卡擷取到的影像畫面
即時撥放在應用程式上?最好可以儲存起來?請各位高手幫幫忙,謝謝!
小弟想請問能不能用VB把影像擷取卡擷取到的影像畫面
即時撥放在應用程式上?最好可以儲存起來?請各位高手幫幫忙,謝謝!
關於 Binary 存檔的問題...(編號：6297)
Dim MyData() As Byte
...
Open "test.dat" For Binary As #1
Put #1, , MyData
Close #1
上述程式碼，當 test.dat 已存在而且其檔案大小比 MyData 大時， MyData 是有存進去沒錯，但是在之後卻還是原來 test.dat 後面的資料。請問要如何才能將原來的檔案覆蓋掉，謝謝！
...
Open "test.dat" For Binary As #1
Put #1, , MyData
Close #1
上述程式碼，當 test.dat 已存在而且其檔案大小比 MyData 大時， MyData 是有存進去沒錯，但是在之後卻還是原來 test.dat 後面的資料。請問要如何才能將原來的檔案覆蓋掉，謝謝！
請問如何將二個table做關聯後輸出於DBGrid,且又可修改資料?(編號：6296)
請問如何將二個table做關聯後輸出於DBGrid,且又可修改資料
例如在訂單明細檔中只有產品編號欄位,而我也要秀產品名稱給user看,我只好將訂單明細檔和產品檔作關聯(結果變成唯讀的),但我想只能讓user改產品編號,而產品名稱不能改,請問你們遇到這種情形是如何解決的,謝謝!
例如在訂單明細檔中只有產品編號欄位,而我也要秀產品名稱給user看,我只好將訂單明細檔和產品檔作關聯(結果變成唯讀的),但我想只能讓user改產品編號,而產品名稱不能改,請問你們遇到這種情形是如何解決的,謝謝!
COM Port 超過16個怎麼辨?? 急!(編號：6295)
請問各位先進, MSCOMM 的 Port Number 最多只能到16, 因為我需要外接其他的硬體控制, 已外接出96個, 我要如何對這些 Port 做讀取和傳送的控制呢? 有無其他的控制元件呢??
怎樣在程式中產生execl檔.(編號：6292)
想張recredset的數據放到一個在程式產生的execl檔,並可指定送在
某欄位上,並加上欄名,在書本中始終找不到一個實際的例子,
希望大家可以舉一簡單例子,感謝感謝.
某欄位上,並加上欄名,在書本中始終找不到一個實際的例子,
希望大家可以舉一簡單例子,感謝感謝.
開啟檔案..(編號：6291)
我想要開啟一個圖片檔,但要讓他自己找看要用什麼檔案來開啟
不知道下面的程式碼還要加些啥或打錯了?
Shell "c:\WINDOWS.000\Desktop\新資料夾\新資料夾\圖片管理\gg3.bmp", 3
不知道下面的程式碼還要加些啥或打錯了?
Shell "c:\WINDOWS.000\Desktop\新資料夾\新資料夾\圖片管理\gg3.bmp", 3
右鍵快顯功能表怪怪的(編號：6289)
在控制項上按右鍵顯示右鍵快顯功能表，但是若不點選，移動滑鼠至其他位置或控制項上按右鍵就無反應，功能表一直存在，而不是像正常移動位置後按右鍵原來顯示之功能表消失，新位置顯示功能表，請問如何修正？
Setting default number?!(編號：6288)
Eg Number of dogs :22 ( this number will be automatically appear while the program is running) of course you can change 22 to any number you want! But how do you set the number 22 will always start to running your program?! What I mean is when I restart my program the number of dogs will be 22 not the one i had changed before! Do you understand?!
Please help me!
thanks you!
Please help me!
thanks you!
如何切割圖片？(編號：6287)
我有一張圖...因大於列印紙張大小
故欲將其切成兩張印出
（第一張將A4填滿，第二張印出剩餘部分）
我的作法是計算出該圖片大小
並使用paintpicture
但在第二張輸出時
所計算出來的數值卻與實際印出來的大小不相等！
請問問題出在何處？
還是有更好的方法？
故欲將其切成兩張印出
（第一張將A4填滿，第二張印出剩餘部分）
我的作法是計算出該圖片大小
並使用paintpicture
但在第二張輸出時
所計算出來的數值卻與實際印出來的大小不相等！
請問問題出在何處？
還是有更好的方法？
Frame linking?!(編號：6286)
I have a problem about frames strucutes!
How do you write a code if you need a number from another frame?!
For exmaple: Frame1 Number of dogs : 4 and in frame2 I want number of cats to be double of dogs!
How do you plan a code?!
txtDog.text=2*txtCat.text ?!
Please help me
How do you write a code if you need a number from another frame?!
For exmaple: Frame1 Number of dogs : 4 and in frame2 I want number of cats to be double of dogs!
How do you plan a code?!
txtDog.text=2*txtCat.text ?!
Please help me
如何做出「相對性」的最上層顯示？(編號：6285)
我知道可以用 SetWindowPos 將一個表單設定為最上層顯示。
但是我想要做一個類似記事本的「尋找」表單那種，對於主表單來說是最上層顯示，但是其他的程式表單仍然可以蓋在它上面
目前我用的方法是使用 Timer 和 API 的 GetForegroundWindow 判斷當主表單沒有 Focus 時，取消其最上層顯示，想要請教各位前輩，是否有更好的方法，感激不盡！！
PS.順便問一下，Form_Deactivate 和 Form_LostFocus 為什麼沒有辦法判斷表單喪失駐點。
但是我想要做一個類似記事本的「尋找」表單那種，對於主表單來說是最上層顯示，但是其他的程式表單仍然可以蓋在它上面
目前我用的方法是使用 Timer 和 API 的 GetForegroundWindow 判斷當主表單沒有 Focus 時，取消其最上層顯示，想要請教各位前輩，是否有更好的方法，感激不盡！！
PS.順便問一下，Form_Deactivate 和 Form_LostFocus 為什麼沒有辦法判斷表單喪失駐點。
請問各位 ...Cabinet.dll(編號：6284)
請問有人用過Cabinet.dll嗎 ?
我實在是不知其API要怎麼Call
雖然有 SDK 但其全是C的Sample
請問要怎麼將其運用在VB ?
如有必要,E-Mail給我,小P雙手把SDK文件寄給您..
by Peter ^_^,急!!...
我實在是不知其API要怎麼Call
雖然有 SDK 但其全是C的Sample
請問要怎麼將其運用在VB ?
如有必要,E-Mail給我,小P雙手把SDK文件寄給您..
by Peter ^_^,急!!...
for 的??(編號：6283)
請教各位先進
IF 我想利用FOR迴圈來比較TEXT的值
該如何連接TEXT和I呢??
如:
FOR I =0 to 10
if text(i).text="" then
........
next i
上面的方法是不行的
text& i &.text
也不行
IF 我想利用FOR迴圈來比較TEXT的值
該如何連接TEXT和I呢??
如:
FOR I =0 to 10
if text(i).text="" then
........
next i
上面的方法是不行的
text& i &.text
也不行
WINFAX VB(編號：6282)
請問各大高手,
我連接不到 WINFAX 的 ATTACHMENT,
我已找到 SDK, 但不明白如何加上要 FAX 出的檔案!!!
請問有否其他的網址可供參考????
我連接不到 WINFAX 的 ATTACHMENT,
我已找到 SDK, 但不明白如何加上要 FAX 出的檔案!!!
請問有否其他的網址可供參考????
picturebox中的picture如何存成16色的bmp檔?(編號：6281)
picturebox所存圖片都是16百萬色的bmp檔,雖然找到轉成jpg檔的方法,可是還是未盡理想,不知有誰知道如何在存檔時將picturebox中的picture存成16色的bmp檔?不知winapi中有沒有?
picturebox中的picture如何存成16色的bmp檔?(編號：6280)
picturebox所存圖片都是16百萬色的bmp檔,雖然找到轉成jpg檔的方法,可是還是未盡理想,不知有誰知道如何在存檔時將picturebox中的picture存成16色的bmp檔?
vb6.0的資料庫管理員無法開啟access2000 ...*.mdb(編號：6279)
各位高手我的環境是win98se + vb6.0sp4 +office2000
vb6.0的資料庫管理員無法開啟access2000的資料庫
請問是否有辨法解決?
vb6.0的資料庫管理員無法開啟access2000的資料庫
請問是否有辨法解決?
ActiveX DLL(編號：6278)
我的MTS中有一個ActiveX DLL,我用ASP來產生此dll物件,當此asp執行時,在此物件的動作尚未完成時,我將browser關掉. 但我還是mts中看到此物件還在動作(因為avi尚未停止).請問要如何在browser被關掉或是按停止時,同時將此物件移除
請問vb介面及大小字型設定的問題?(編號：6277)
我有一個vb程式在小型字及桌面區域800x600像素下run時正常, 但在大型字設定下run時,介面下方的scroll bar會因為過於螢幕下方而看不見, 請問該如何解決? 謝謝!
我已經用了tab物件,但是字體大小是9,我想把它變為12,資料才會放(編號：6276)
我因為是在做資料登錄的部分,但因字體大小是9,且用了tab物件,放得下,但我想把字體大小改為12,就會放不下,所以我想請問有何比較好的方式嗎？而我們另一組同學則是在表單上用command方式按下出現放不下的部分,但我覺得這樣不怎麼好,所以請不另賜教。謝謝!
RUNTIME ERROR 3706 ADO could not find the specified provider(編號：6275)
OS: Windows NT 4 Workstation + sp5
Tools : VB 6 Professional - English + sp3
使用vs6中package & deployment visor後,
安裝無問題,
但安裝後執行,
則出現 run time error 3706
Tools : VB 6 Professional - English + sp3
使用vs6中package & deployment visor後,
安裝無問題,
但安裝後執行,
則出現 run time error 3706
DataGrid是否能重態連結DataReport?(編號：6272)
DataGrid是否能重態連結DataReport.
因為我用SQL作動態查詢的時候需要用到,也就是作到及時列印;
而是是先用DataEnvironment套死了在顯示在DataReport中;
請各位先進多多指點小弟哦!
因為我用SQL作動態查詢的時候需要用到,也就是作到及時列印;
而是是先用DataEnvironment套死了在顯示在DataReport中;
請各位先進多多指點小弟哦!
Access + picture box ??(編號：6268)
我放左D相係個access db 入面
之後想係 vb 到用picture box ,load 返出黎
但因為某些原因,
所以唔可以直接set 佢個既的DataSoure黎等佢自動show 圖......
有乜辦法可以寫code咁由個db將個image放入個picture box 到呢??
之後想係 vb 到用picture box ,load 返出黎
但因為某些原因,
所以唔可以直接set 佢個既的DataSoure黎等佢自動show 圖......
有乜辦法可以寫code咁由個db將個image放入個picture box 到呢??
Informix Lock(編號：6267)
ADO + ODBC + Informix
想做到 Table Lock or Row Lock, 讀取序號控制 Table, 取得最新序號, 加一後回寫. 此動作期間, 最好能做到 Row Lock, 否則至少也得是 Table Lock.
請問該如何用 ADO 完成?
想做到 Table Lock or Row Lock, 讀取序號控制 Table, 取得最新序號, 加一後回寫. 此動作期間, 最好能做到 Row Lock, 否則至少也得是 Table Lock.
請問該如何用 ADO 完成?
將圖檔資料存入access時,出現無法指出的錯誤(編號：6262)
將圖檔資料存入access時,出現"無法指出的錯誤"
Open strFileDir For Binary Access Read As #FileHandle
DataLen = LOF(FileHandle)
If DataLen = 0 Then
Close FileHandle
Else
Chunks = DataLen \ ChunkSize
Fragment = DataLen Mod ChunkSize
ReDim BuffImg(Fragment - 1)
Get #FileHandle, , BuffImg()
rs!field1.AppendChunk BuffImg()
ReDim BuffImg(ChunkSize - 1)
For k = 1 To Chunks
Get #FileHandle, , BuffImg()
rs!field1.AppendChunk BuffImg()
Next k
Close #FileHandle
End If
Open strFileDir For Binary Access Read As #FileHandle
DataLen = LOF(FileHandle)
If DataLen = 0 Then
Close FileHandle
Else
Chunks = DataLen \ ChunkSize
Fragment = DataLen Mod ChunkSize
ReDim BuffImg(Fragment - 1)
Get #FileHandle, , BuffImg()
rs!field1.AppendChunk BuffImg()
ReDim BuffImg(ChunkSize - 1)
For k = 1 To Chunks
Get #FileHandle, , BuffImg()
rs!field1.AppendChunk BuffImg()
Next k
Close #FileHandle
End If
如何將picturebox中的點陣圖存成低階圖檔或壓縮檔(編號：6260)
我的picturebox的功能類似小畫家,但在存檔時檔案總是170k,因為我是用savepicture picture1.image,filename.主要是為了將畫線的部分儲存,有沒有甚麼方法可以將圖檔壓縮或存成16色點陣圖?我的版本是vb5及vb6,os是windows2000.
error code=3633, error message=Can't load DLL: MSJTER35.DLL(編號：6259)
有一個程式,透過ODBC連Oracle DB, 剛開始一切O.K.,但是,時間一久,access次數過多後,就會有error code=3633, error message=Can't load DLL: MSJTER35.DLL, 請問這個error message是什麼意思, and 如何更正這個錯誤
MSComm在Web上執行時,可以傳送資料,但無法接收資料,請教各路高手(編號：6257)
如題,我可以用一個ASP程式透過MSComm傳送資料,但我無法收到回應值,直接以Input去收也都沒有值,請問各路高手該如何解決,不勝感激
這程式什意思丫?ChrisTorng(編號：6255)
Public Function ImeGetDescription() As String
Dim Description As String
Description = String(255, 0)
ImmGetDescription GetKeyboardLayout(0), Description, 255
ImeGetDescription = Left(Description, InStr(Description, Chr(0)) - 1)
End Function
Dim Description As String
Description = String(255, 0)
ImmGetDescription GetKeyboardLayout(0), Description, 255
ImeGetDescription = Left(Description, InStr(Description, Chr(0)) - 1)
End Function
Ado 一問?(編號：6254)
請問各先進
如果使用ado作修改或del或之後是不定要Refresh or Requery,資料才會正確,可是如果是的話那每次(資料庫很大時)Refresh的時間不就太久了有沒有加快的方法?
如果使用ado作修改或del或之後是不定要Refresh or Requery,資料才會正確,可是如果是的話那每次(資料庫很大時)Refresh的時間不就太久了有沒有加快的方法?
Visual basic .VS. SQL Server(編號：6251)
請問,在SQL Server 中,某表格的欄位是允許null的,
但是,在前端以visual basic設計時,卻無法將null值存入SQL 之表格中???
但是,在前端以visual basic設計時,卻無法將null值存入SQL 之表格中???
如果focus要跳至另一頁籤(sstab(0)--sstab(1))的欄位???(編號：6247)
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
case ....
case vbKeyTab .....
End Select
End Sub
可是Tab的focus只會在同一頁中按照TabIndex的設定跳，且不會執行到vbKeyTab這邊的程式，我的ssTab有2頁，當執行到某一欄位時，它的下一個要跳至另一頁的欄位，請問要怎麼做，focus才會跳至另一頁的欄位呢？thank you...
Select Case KeyCode
case ....
case vbKeyTab .....
End Select
End Sub
可是Tab的focus只會在同一頁中按照TabIndex的設定跳，且不會執行到vbKeyTab這邊的程式，我的ssTab有2頁，當執行到某一欄位時，它的下一個要跳至另一頁的欄位，請問要怎麼做，focus才會跳至另一頁的欄位呢？thank you...
vb傳給crystal report的ParameterField(編號：6246)
我在vb中有兩個textbox,要將textbox.text的值傳給crystal report
並在crystal report中將這些值印出來,可是卻出現error
CrystalReport1.ParameterFields(1) = "@FromDateTime='" & date1.Text & "'"
CrystalReport1.ParameterFields(1) = "@ToDateTime='" & date2.Text & "'"
crystalreport1.action =1
其中 @FromDateTime,@ToDateTime是Crystal Report的ParameterField
而 error message 是
執行階段錯誤 20553
invalid Parameter field name
怎麼解決這個error並將值正確傳給Crystal Report
並在crystal report中將這些值印出來,可是卻出現error
CrystalReport1.ParameterFields(1) = "@FromDateTime='" & date1.Text & "'"
CrystalReport1.ParameterFields(1) = "@ToDateTime='" & date2.Text & "'"
crystalreport1.action =1
其中 @FromDateTime,@ToDateTime是Crystal Report的ParameterField
而 error message 是
執行階段錯誤 20553
invalid Parameter field name
怎麼解決這個error並將值正確傳給Crystal Report
crystal report(編號：6245)
設計出來的報表,有日期的條件,那
CrystalReport1.SelectionFormula="{order.date} "
要怎麼寫
{order.date}是日期欄位
CrystalReport1.SelectionFormula="{order.date} "
要怎麼寫
{order.date}是日期欄位
Crystal Report中field position的問題(編號：6244)
在Crystal Report中, 因為要畫格子, 所以想用Field border的方式來作, 可是無法將同一行的field都對齊排好, 一定中間會有空白, 比如說field1 的位置是1,長度是2.3, field2的位置應該要設成3.3, 但是實際上卻沒法設成3.3, 一定會有誤差, 可能會變成3.1或是3.4, 就是不會剛好是我希望的位置. 這樣要怎麼辦? 還是說有其他的方式可以畫格子的? 謝謝! crystal report 是7.0版~
三層式 ASP access / dbase(編號：6243)
請問各位高手...在三層式架構中，
Asp 是否可以存取在另外一台機器上的 access 資料庫及dbase 的資料，
我有試過把另一台電腦的磁碟機設成連線磁碟機，這個方法可以，但是因為在不同的情形下，必須去連不同電腦內的資料庫，磁碟機代號不夠用，是否有直接指定 IP 而不透過連線磁碟機的方法??
Asp 是否可以存取在另外一台機器上的 access 資料庫及dbase 的資料，
我有試過把另一台電腦的磁碟機設成連線磁碟機，這個方法可以，但是因為在不同的情形下，必須去連不同電腦內的資料庫，磁碟機代號不夠用，是否有直接指定 IP 而不透過連線磁碟機的方法??
在Vb中如何進行資料庫的比較資料庫??(編號：6242)
兩個結構相同的資料庫 Test1.mdb & Test2.mdb
Test1.mdb
Name tel
Mr. Tan 521234
Mr. U 523567
Test2.mdb
Name tel
Mr. Tan 521234
Mr. U 523567
Mr. Chan 53123
比較 Test1.mdb Test2.mdb
經比較 Test2.mdb 中有一個資料多出 (Mr. Chan 53123)
在Vb中如何進行資料庫的比較資料庫??
請大家幫幫忙!!
Test1.mdb
Name tel
Mr. Tan 521234
Mr. U 523567
Test2.mdb
Name tel
Mr. Tan 521234
Mr. U 523567
Mr. Chan 53123
比較 Test1.mdb Test2.mdb
經比較 Test2.mdb 中有一個資料多出 (Mr. Chan 53123)
在Vb中如何進行資料庫的比較資料庫??
請大家幫幫忙!!
用Crystal Report報表轉出Execl檔案中文變成亂碼(編號：6240)
我用Crystal Report製作出來的報表轉成Execl檔案輸出,中文部分全部是亂碼,不知要如何才能正確顯示中文?
VB的hWnd 如何傳給VC??(編號：6237)
小弟用VB寫了一個 OCX，在VB的程式下呼叫都沒問題
但是因為Case需要小弟利用VC呼叫時發現VC的m_hWmd
為HWND型態的變數並不如VB為LONG的變數....請問要如何
才能正確的傳送呢????
但是因為Case需要小弟利用VC呼叫時發現VC的m_hWmd
為HWND型態的變數並不如VB為LONG的變數....請問要如何
才能正確的傳送呢????
求救,一個三層式架構的疑問(編號：6232)
承上一個我問的問題
會有這樣奇怪的想法源自於
我原本在單機上寫的程式,要改成Web上多使用者的架構
而我的程式會用到一個實體資料庫的Table當做暫存表
如今,因為多使用者的關係,必須每一個使用者都用一個暫存表
請問可以在多使用者狀態下,
動態在實體資料庫上產生暫存表Table嗎?
而且是一個使用者會自動對應到一個暫存表Table
如果可以的話,那也能解決問題,請問實作該是如何呢?
煩請各位前輩幫幫小弟的忙~~感激不盡!!
會有這樣奇怪的想法源自於
我原本在單機上寫的程式,要改成Web上多使用者的架構
而我的程式會用到一個實體資料庫的Table當做暫存表
如今,因為多使用者的關係,必須每一個使用者都用一個暫存表
請問可以在多使用者狀態下,
動態在實體資料庫上產生暫存表Table嗎?
而且是一個使用者會自動對應到一個暫存表Table
如果可以的話,那也能解決問題,請問實作該是如何呢?
煩請各位前輩幫幫小弟的忙~~感激不盡!!
在datacombo中的matchentry要如何使用和設定(編號：6230)
在datacombo中的matchentry要如何使用和設定
如果在datacombo的text中輸入任一字
它可以自動去比對並且顯示出相關的資料
ex:我輸入"台"這一個字時,listfield會顯示與"台"有關的欄位
ex:列出台灣省
台北市
台中市
請各位高手救救我吧~~~
如果在datacombo的text中輸入任一字
它可以自動去比對並且顯示出相關的資料
ex:我輸入"台"這一個字時,listfield會顯示與"台"有關的欄位
ex:列出台灣省
台北市
台中市
請各位高手救救我吧~~~
請問從實體資料庫取得的RecordSet如何再運用?(編號：6229)
我的意思是透過如ADO物件向實體資料庫取得的RecordSet
能否把這個RecordSet當作
一個"獨立" "跟原本實體資料庫無關"的RecordSet來另外做資料新增.刪除.修改.篩選後,再insert into 到另外一個非實體資料庫
Recordset內?
也就是所有的動作都是用記憶體儲存多個虛擬的recordset
程式結束之後,這些RecordSet也釋出不用做實體儲存
若可以,請問實際物件的作法應是如何?
因為我發現在運用SQL語法時,select的table是對應到一個實體table
如果我要select的table是存在於一個adodb.recordset
那程式要怎麼寫呢?
謝謝!
能否把這個RecordSet當作
一個"獨立" "跟原本實體資料庫無關"的RecordSet來另外做資料新增.刪除.修改.篩選後,再insert into 到另外一個非實體資料庫
Recordset內?
也就是所有的動作都是用記憶體儲存多個虛擬的recordset
程式結束之後,這些RecordSet也釋出不用做實體儲存
若可以,請問實際物件的作法應是如何?
因為我發現在運用SQL語法時,select的table是對應到一個實體table
如果我要select的table是存在於一個adodb.recordset
那程式要怎麼寫呢?
謝謝!
Crystal Reprot8的Sum可否在換頁時重置,如果否請告知,讓我死心吧(編號：6228)
如果Crystal Report 8無法達成的話..請跟我說...別讓我再繼續在這個問題浪費時間了.謝謝
PictureBox執行時更改背景顏色如何使不清除上面的字(編號：6226)
PictureBox執行時更改.BackColor後會將原本.Print在上面的字清除掉, 請問有何方法可以不重新.Print下, 使它不會清掉?
排序問題(編號：6223)
我在表單輸入5筆資料時,依序為編號＜03＞,＜05＞,＜02＞,＜01＞,＜04＞,我以Access2000為資料庫,資料表裡所存入5筆資料的排序為＜01＞,＜02＞,＜03＞,＜04＞,＜05＞,當我叫出表單以MoveNext移動這些資料時,其排序如同我當初輸入的次序即＜03＞,＜05＞,＜02＞,＜01＞,＜04＞.請問如何才能在MoveNex時使其排序為＜05＞,＜04＞,＜03＞,＜02＞,＜01＞?
我是初學者,理論幾乎完全不懂,如果有哪為好心的先進願意幫我,可否以粗淺的實例說明?
我是初學者,理論幾乎完全不懂,如果有哪為好心的先進願意幫我,可否以粗淺的實例說明?
vb6.0所製成的control項,放在網路上???(編號：6219)
請問如何將用vb6.0所製成的control項,放在網路上???
若要遠方的電腦,也能執行此一control項,是不是可以讓使用者先行下載安裝此一control(我在書上看到的),但是
為什麼在vb5.0中有"應用程式安裝精靈"可以製成在"網際網路上下載的類型檔案"但為什麼vb6.0會沒有此一精靈呢?
若要遠方的電腦,也能執行此一control項,是不是可以讓使用者先行下載安裝此一control(我在書上看到的),但是
為什麼在vb5.0中有"應用程式安裝精靈"可以製成在"網際網路上下載的類型檔案"但為什麼vb6.0會沒有此一精靈呢?
如何得知某table有多少欄位數(編號：6218)
db.CursorLocation = adUseClient
db.Open "Provider=SQLOLEDB.1;........"
rs.Open "select * from table", db, adOpenDynamic...
'---------record count
MsgBox rs.RecordCount
db.Open "Provider=SQLOLEDB.1;........"
rs.Open "select * from table", db, adOpenDynamic...
'---------record count
MsgBox rs.RecordCount
有人會用vb控制 介面的interrupt 跟 i/o 嗎?(編號：6217)
小弟我現在有很大的困擾
windows 有保護.不讓VB使用者使用介面i/o
而我就是需要用...
之前有人用過inpout32.dll
可以用...但我還需要有能控制中斷的功能...
請問有人知道哪有嗎???????????救命阿...
windows 有保護.不讓VB使用者使用介面i/o
而我就是需要用...
之前有人用過inpout32.dll
可以用...但我還需要有能控制中斷的功能...
請問有人知道哪有嗎???????????救命阿...
請問SQL問題(更正)(編號：6216)
如果只用 select * from xx ，得出來的結果排列會以最舊的資料先行，如果不想用order by xx DESC而又想以最新的資料先行，有沒有其他辦法？
甚樣pass recordsource from Vb6.0 to seagate crystal report b(編號：6214)
甚樣pass recordsource from Vb6.0 to seagate crystal report by using Access database?
Thanks!
Thanks!
如何判斷程式需要的登入機碼已經存在？(編號：6210)
小弟最近在寫一個複製檔案至網路的程式，已經完成了，我希望做到
如果已經儲存，啟動就讀出設定，若沒有就提示使用者，可是不管我是否存過都會提示使用者，到底該如何判斷呢？以下是我放在LOAD底下的程式：
on error goto errs
ret=getsetting(myapp,section,key,value)
err:
msg "尚未儲存預設路徑"
resume next
on error go to 0
如果已經儲存，啟動就讀出設定，若沒有就提示使用者，可是不管我是否存過都會提示使用者，到底該如何判斷呢？以下是我放在LOAD底下的程式：
on error goto errs
ret=getsetting(myapp,section,key,value)
err:
msg "尚未儲存預設路徑"
resume next
on error go to 0
執行多個 From 的問題????(編號：6209)
我有個程式如下例
Private Sub AA_Click()
frmlogin.Show --＞登入
frmdata.show --＞資料FORM
End Sub
要如何在登入正確後才可去執行frmdata
我用了區域變數~~不管怎麼設都無法正常執行
煩請各位前輩高手幫幫忙~~謝謝~
Private Sub AA_Click()
frmlogin.Show --＞登入
frmdata.show --＞資料FORM
End Sub
要如何在登入正確後才可去執行frmdata
我用了區域變數~~不管怎麼設都無法正常執行
煩請各位前輩高手幫幫忙~~謝謝~
SQL7.0 的資料庫?(編號：6206)
請問在VB6裡有辨法備份及回存SQL Server7.0的資料庫嗎? 可以的話要怎麼做呢? 不行又該怎麼做?(在VB6的程式裡下指令), 前幾天有發問過, 可是我看不懂(就是這個sp_addumpdevice)
想聽聽大家對MSSQL的意見(編號：6205)
雖然這是VB版,但有一半討論都與資料庫有關
所以才會在這個版,發這樣子的問題,想聽聽大家的意見
WinNt的user licence要錢,MSSQL的client要錢
如果你是一個連鎖系統,又希望資料能集中管理的話
那光這些licence要花多少錢?
(比方像連鎖書店,速食店,或者許多分公司等等)
100,200,甚至上千
而且真的這麼做,系統能負荷嗎?
如果你不集中管理,那是不每一個地方都要放台MSSQL Server
那要買多少套NT和MSSQL,再加Windows98
為什麼用mdb,dbf不用licence,
但MSSQL就要算人頭,
我們又沒買你的資料庫,全都我們自已的規劃設計,只不過放在你的Server裏
在硬碟裏也不過是個.dat檔,為什麼要收這麼多錢.
那如果,又要用VB這個好用的開發工具,你們會怎麼做.
所以才會在這個版,發這樣子的問題,想聽聽大家的意見
WinNt的user licence要錢,MSSQL的client要錢
如果你是一個連鎖系統,又希望資料能集中管理的話
那光這些licence要花多少錢?
(比方像連鎖書店,速食店,或者許多分公司等等)
100,200,甚至上千
而且真的這麼做,系統能負荷嗎?
如果你不集中管理,那是不每一個地方都要放台MSSQL Server
那要買多少套NT和MSSQL,再加Windows98
為什麼用mdb,dbf不用licence,
但MSSQL就要算人頭,
我們又沒買你的資料庫,全都我們自已的規劃設計,只不過放在你的Server裏
在硬碟裏也不過是個.dat檔,為什麼要收這麼多錢.
那如果,又要用VB這個好用的開發工具,你們會怎麼做.
sql問題(編號：6203)
請問如果用varchar(20)，但內容只得2位元，那麼效果是否等於char(2)一樣(佔用空間)？如果是的話設定為varchar(1000)便絕對安全？(我明白日後更改會拖慢的，但如果日後不更改內容是否好主意？)
請教讀取RS會當機問題(編號：6201)
各位高手好
我使用VB6 SP3 , 利用ACCESS 2000 MDB 為ADO資料庫來源
當我使用RS.FIELDS(1) 有些電腦馬上當機退回桌面(大約十部電腦有三部會這樣,全部使WIN98 OS)
但使用RS!欄名 則不會有問題
不知各位先進是否有碰過, 煩請教導, THANK !
我使用VB6 SP3 , 利用ACCESS 2000 MDB 為ADO資料庫來源
當我使用RS.FIELDS(1) 有些電腦馬上當機退回桌面(大約十部電腦有三部會這樣,全部使WIN98 OS)
但使用RS!欄名 則不會有問題
不知各位先進是否有碰過, 煩請教導, THANK !
一個困難無解的問題(編號：6199)
我用crystal report4.6做一個報表檔
用的印表機是Panasnic kX-1121點陣
所用的紙張長度及寬度是A4紙的一半
紙張規格是設成自訂規格長14cm寬21cm
為什麼在預覽列印中所顯示中的最後面
幾列確印不出來大約有2.5公分以上
設Page Margin為0為何還是無法列印但是
在預覽列印中有顯示。
難道這是無解的問題嗎
無法解決問題的人
環境：
VB5.0+SP3 +Access97+WIN95+Crystal Report4.6
用的印表機是Panasnic kX-1121點陣
所用的紙張長度及寬度是A4紙的一半
紙張規格是設成自訂規格長14cm寬21cm
為什麼在預覽列印中所顯示中的最後面
幾列確印不出來大約有2.5公分以上
設Page Margin為0為何還是無法列印但是
在預覽列印中有顯示。
難道這是無解的問題嗎
無法解決問題的人
環境：
VB5.0+SP3 +Access97+WIN95+Crystal Report4.6
一個困難無解的問題(編號：6198)
我用crystal report4.6做一個報表檔
用的印表機是Panasnic kX-1121點陣
所用的紙張長度及寬度是A4紙的一半
紙張規格是設成自訂規格長14cm寬21cm
為什麼在預覽列印中所顯示中的最後面
幾列確印不出來大約有2.5公分以上
設Page Margin為0為何還是無法列印但是
在預覽列印中有顯示。
難道這是無解的問題嗎
無法解決問題的人
環境：
VB5.0+SP3 +Access97+WIN95+Crystal Report4.6
用的印表機是Panasnic kX-1121點陣
所用的紙張長度及寬度是A4紙的一半
紙張規格是設成自訂規格長14cm寬21cm
為什麼在預覽列印中所顯示中的最後面
幾列確印不出來大約有2.5公分以上
設Page Margin為0為何還是無法列印但是
在預覽列印中有顯示。
難道這是無解的問題嗎
無法解決問題的人
環境：
VB5.0+SP3 +Access97+WIN95+Crystal Report4.6
printer物件，印出來的順序相反了(編號：6194)
我寫了一段用printer物件來列印報表的程式
之前在測式的時候跟自己要印的報表沒有多大的改變
可是(也許是換了nt)現在到2000或nt的環境
他本來在上面的字、表格印出來變成在下面
下面的也變成在上面
請問有什麼屬性可以讓他恢復正常？？
嗚...
之前在測式的時候跟自己要印的報表沒有多大的改變
可是(也許是換了nt)現在到2000或nt的環境
他本來在上面的字、表格印出來變成在下面
下面的也變成在上面
請問有什麼屬性可以讓他恢復正常？？
嗚...
請問關於VB的Shell statement(編號：6193)
我用VB的shell statement 去呼叫一個 .exe 檔，可是shell statement並不會等這個exe檔真正的執行完後才將控制權交還(因為它是非同步模式的)，這樣一來我的程式就會有問題了，請問我該如何偵測或是如何等這個exe真正的執行完畢呢?
請問Crystal Report 的Sum(fld, condFld, cond)引數意義(編號：6192)
Crystal Report中有個Sum函數..fld代表的是欄位..那請問condFld和cond各代表著什麼呢.!?
如何得知 *.mdb 中 ,Table 的索引,和主索引?(編號：6189)
請問如何在 vb6 當中,得知*.mdb 中 ,Table 的索引,和主索引?
是否在 Recordset.Properties(index) 當中? 如果沒有,該如何取得?
是否在 Recordset.Properties(index) 當中? 如果沒有,該如何取得?
可否判斷Form上某一物件是否含有某屬性???(編號：6184)
我想對Form上所有物件同時設定enable的屬性，可是並不是所有物件都有這個屬性，想請問是否有方法可以判斷物件是否含有enabled這個屬性呢???
VB + access 2000 的問題(編號：6183)
我目前使用 VB6.0 + access 97 開發系統,
現在我打算將資料庫的部昇級至 Access 2000,
請教各位先進我必須要進行那些動作 , 才不會出現一些不可預期的的怪現象.
我目前的電腦為 WIN98+VB6.0, 尚未安裝 Access 2000 也沒有安裝 VB 的service pack (完全是空機)
謝謝 !!
現在我打算將資料庫的部昇級至 Access 2000,
請教各位先進我必須要進行那些動作 , 才不會出現一些不可預期的的怪現象.
我目前的電腦為 WIN98+VB6.0, 尚未安裝 Access 2000 也沒有安裝 VB 的service pack (完全是空機)
謝謝 !!
vb控制modem(編號：6181)
我用vb控制二台modem的連線，寫好經測試之後，發現modem之間可以互連但是連上之後要傳送資料及接收資料都失敗了，為什麼呢？請高手告訴我。
資料傳送： com.onput="傳送的資料"
接收： 接收區=com.input
且 Rthreshold=1
一般該設的參數我都應該有設才對
請高手給我一些見意，若有高手已經會寫modem的控制，希望能把程式碼寄給我
我的E-mail:
cloudman9@pchome.com.tw
資料傳送： com.onput="傳送的資料"
接收： 接收區=com.input
且 Rthreshold=1
一般該設的參數我都應該有設才對
請高手給我一些見意，若有高手已經會寫modem的控制，希望能把程式碼寄給我
我的E-mail:
cloudman9@pchome.com.tw
謝謝大家(編號：6178)
最近這兩個禮拜我都在小吳的這個討論區找尋我要的資料,但是還是沒有辦法保住飯碗,都怪自己太蔡了(從四月份上課,九月正式開始上班)!我想雖然沒有了飯碗,但在這個寫程式的領域,又讓我多解了些.我要感謝大家,也感謝小吳站長...
請問如何把vb編譯好的執行檔(含access資料庫)置於網路上(編號：6176)
請問如何把vb編譯好的執行檔(含access資料庫)利用winsock置於網路上，且利用client端來執行遠端的執行檔，謝謝!!!!1
為什麼有些屬性無法顯示在屬性頁上?(編號：6173)
我是自製ocx 的新手,想請教各位先進; 為什麼有些屬性無法顯示在屬性頁上. 例如 comboBox 的 List 屬性 ,撰寫了Public property Let 和 Get,而成員中也的確能被列舉,但在屬性頁上就是看不到!
vb如何控制rs485(編號：6171)
我現在已經可以控制的傳送與接收，但我想要透過一個rs232-＞rs485的轉接頭來做rs485傳輸，且為半雙工，但我現在卻只能做接收，一直無法做傳送的動作，弄了好久還是不行，這到底是什麼原因？
vb的程式有什麼地方須要做設定嗎？
vb的程式有什麼地方須要做設定嗎？
如何協調dll檔、系統資源與計時器?(編號：6169)
請問：VB5執行dll檔時(MS fortran powerstation 4.0)，from呈現當機的現象，且time1()的計時也不會動，該如何解決呢？謝謝！
請問有無任何Grid可直接將由Cube中Select出之CellSet丟出(編號：6167)
請問有無任何Grid可直接將由Cube中Select出之CellSet丟出，我有用MSHFlexGrid試過，但必需一個一個Cell丟，而且必需自行控制換行或換列工作，請問是否有更簡便之方式或其它Grid可使用，謝謝。環境Win2000，VB6.0+SP3，SQL7.0
Crystal Report 可不可以開啟Acess 2000的檔案(編號：6166)
各位高手，我的資料檔(acess)，無法在Crystal Report 上開啟，可不可以請教原因為何?
vb 6.0
vb 6.0
再次請教VB高手,謝謝!(編號：6162)
有一個非本人所寫的應用程式,正透過RS232 收集資料並且顯示在螢幕上,我如何能用VB寫另一程式可以截取其內容。
p.s.
有沒有辦法將吐到該應用程式的資料,也同時copy 一份到我的程式來.
p.s.
有沒有辦法將吐到該應用程式的資料,也同時copy 一份到我的程式來.
語法(編號：6160)
如我的資料中的(姓名)有姓黃，王，李.多位
比如：
SELECT COUNT(姓名) AS 數目 FROM 資料，只能找出總數目.
如要找出姓黃，姓李，姓王 ,有多少位,使用SQL語法該如何寫?
請高手指教!
比如：
SELECT COUNT(姓名) AS 數目 FROM 資料，只能找出總數目.
如要找出姓黃，姓李，姓王 ,有多少位,使用SQL語法該如何寫?
請高手指教!
對不起~問一個白痴問題(編號：6159)
請問一下，什麼叫做API和VBA？兩者之間有什麼不同？
以及API是要怎麼使用？是直接在程式中輸入程式碼？還是像模組一樣要在別的地方使用丫？
請求高手支援
by 小笨笨
以及API是要怎麼使用？是直接在程式中輸入程式碼？還是像模組一樣要在別的地方使用丫？
請求高手支援
by 小笨笨
排序問題(編號：6157)
我在表單輸入5筆資料時,依序為編號＜03＞,＜05＞,＜02＞,＜01＞,＜04＞,我以Access2000為資料庫,資料表裡所存入5筆資料的排序為＜01＞,＜02＞,＜03＞,＜04＞,＜05＞,當我叫出表單以MoveNext移動這些資料時,其排序如同我當初輸入的次序即＜03＞,＜05＞,＜02＞,＜01＞,＜04＞.請問如何才能在MoveNex時使其排序為＜05＞,＜04＞,＜03＞,＜02＞,＜01＞?
How to let MDI and Form auto adapt different Screen Setting?(編號：6153)
How to let MDI and Form auto adapt different Screen Setting?
ex.In 640*480 and 800*600 ,the MDI and Form show in the same size?
ex.In 640*480 and 800*600 ,the MDI and Form show in the same size?
datagrid 的多重選擇功能(編號：6150)
Datagrid 物件中,其顯示上有提供以 ctrl鍵+滑鼠 進行多重資料列之選擇, 但不知如何才能讀取 "反白區域內之資料" ?? ex:如第一欄位之內容。 謝謝！
怎樣用vb控制滑鼠?(編號：6149)
我想問如果利用熱鍵(hotkey)使mouse能自動連按,在vb中應如何寫?
就像GameMaster 6.0 中的"自動化滑鼠"功能一樣,只要按 Ctrl+F8
它就幫我不停按mouse的左鍵(程式的外部也能run)
我是用vb6.0
就像GameMaster 6.0 中的"自動化滑鼠"功能一樣,只要按 Ctrl+F8
它就幫我不停按mouse的左鍵(程式的外部也能run)
我是用vb6.0
如何選擇欲開啟Access資料庫的table?(編號：6147)
請教各位先進：
小弟欲選擇開啟Access資料庫中的兩個資料表？
部分程式碼如下：
Private Sub cmdsure_Click()
strtable = cmbtable.Text
frm學生資料表.Show
Unload Me
End Sub
Private Sub Form1_Load()
cmbtable.Text = "四工三"
cmbtable.AddItem "四工三", 0
cmbtable.AddItem "四工二", 1
End Sub
............................................................
Private Sub frm學生資料表_Load()
Dim db As Connection, strtable As String
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=App.Path & \..\IE.mdb"
Set adoPrimaryRS = New Recordset
'Select Case strtable
'Case "四工三"
adoPrimaryRS.Open "select 學號,姓名,生日,家裡電話,連絡電話 from 四工三學生資料表 Order by 學號", db, adOpenStatic, adLockOptimistic
'Case "四工二"
'adoPrimaryRS.Open "select 學號,姓名,生日,家裡電話,連絡電話 from 四工二學生資料表 Order by 學號", db, adOpenStatic, adLockOptimistic
'End Select
....
End Sub
但上述於執行時，卻出現"物件關閉"的情形......敬請各位來信指教
小弟欲選擇開啟Access資料庫中的兩個資料表？
部分程式碼如下：
Private Sub cmdsure_Click()
strtable = cmbtable.Text
frm學生資料表.Show
Unload Me
End Sub
Private Sub Form1_Load()
cmbtable.Text = "四工三"
cmbtable.AddItem "四工三", 0
cmbtable.AddItem "四工二", 1
End Sub
............................................................
Private Sub frm學生資料表_Load()
Dim db As Connection, strtable As String
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DataSource=App.Path & \..\IE.mdb"
Set adoPrimaryRS = New Recordset
'Select Case strtable
'Case "四工三"
adoPrimaryRS.Open "select 學號,姓名,生日,家裡電話,連絡電話 from 四工三學生資料表 Order by 學號", db, adOpenStatic, adLockOptimistic
'Case "四工二"
'adoPrimaryRS.Open "select 學號,姓名,生日,家裡電話,連絡電話 from 四工二學生資料表 Order by 學號", db, adOpenStatic, adLockOptimistic
'End Select
....
End Sub
但上述於執行時，卻出現"物件關閉"的情形......敬請各位來信指教
Data Report 用 sql statement 問題(編號：6143)
如果我要用 SQL Statement 選擇資料出 Report, SQL 如下
Select * From [Table] Where [Field] = '" & Writer & "'
Writer 由使用者於另一表單輸入，我已經於模組宣告：
Public Writer as string
但 Report 仍然無資料出現。我應如何做?
Thanks
Select * From [Table] Where [Field] = '" & Writer & "'
Writer 由使用者於另一表單輸入，我已經於模組宣告：
Public Writer as string
但 Report 仍然無資料出現。我應如何做?
Thanks
使用adodc 中斷問題?(編號：6142)
請問各先進
我作了一個Library軟體,但程式內常要搜尋,我常會使用
adodc.recordsource="Select * From Book where ....."
adodc.refresh
可是卻常出現以下Error
[INTERSOLV][ODBC SQL Server driver][SQL Server]ct_connect():network packet layer:internal net library error:Net-Library operation terminated due to disconnect
不知有沒有人遇過，要如何解決？
我作了一個Library軟體,但程式內常要搜尋,我常會使用
adodc.recordsource="Select * From Book where ....."
adodc.refresh
可是卻常出現以下Error
[INTERSOLV][ODBC SQL Server driver][SQL Server]ct_connect():network packet layer:internal net library error:Net-Library operation terminated due to disconnect
不知有沒有人遇過，要如何解決？
Dim,Private宣告(編號：6138)
Option Explicit
Dim Str as string
Private Str as string
以上Dim與Private的宣告方式在程式使用中有何區別?
Dim Str as string
Private Str as string
以上Dim與Private的宣告方式在程式使用中有何區別?
Crystal Report8如何在頁尾做某欄位的總計(編號：6136)
請問要如何在頁面頁尾做某欄位的總計呢.!?前提是一但換頁後就得將該質從零開始計算...也就是說....每一頁每一頁單獨Sum..我已經快被這個搞瘋了..希望懂得人能夠幫幫小弟.感激不盡
此變數使用了vb 所不支援的 automation 介面(編號：6133)
小妹的程式安裝在95上, 執行到 New DCOM元件 時會產生這樣的錯誤,
灌 DCOM95 也不能解決, 請各位高手幫幫忙, 看有沒有人有發生過這種情形的, 謝謝
灌 DCOM95 也不能解決, 請各位高手幫幫忙, 看有沒有人有發生過這種情形的, 謝謝
資料庫備份與回存的問題(編號：6132)
請問,在VB6裡如何用程式去備份及回存在SQL Server 7.0裡的資料庫
例:SQL Server 資料庫名稱 =＞ TEST
儲存裝置名稱 =＞ TAP0(磁帶)
備份資料庫名稱 =＞ My_BACK
語法要怎麼下呢? 謝謝!!
例:SQL Server 資料庫名稱 =＞ TEST
儲存裝置名稱 =＞ TAP0(磁帶)
備份資料庫名稱 =＞ My_BACK
語法要怎麼下呢? 謝謝!!
資料庫合併的問題(編號：6131)
請問,我把0009.mdb跟0008.mdb分別當成九月份的訂單資料跟八月份的訂單資料,請問要怎把0009.mdb 跟0008.mdb的資料合併顯示又不會使得mdb的資料庫效能降太低
Thnaks
Thnaks
以ODBC方式連結DBASE III,在多人使用環境下發生上述問題,(編號：6129)
Dim as New ADODB.Connect
Dim as New ADODB.Recordset
db.open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Mode=Read;Initial Catalog=M:\test "
set rs=db.execute("select * from demo")
Dim as New ADODB.Recordset
db.open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Mode=Read;Initial Catalog=M:\test "
set rs=db.execute("select * from demo")
crystal report 資料源問題(編號：6128)
如用setdatasource的方法, 只可以把report指向一個資料源, 請問如果在報表中有兩個資料源(data field下有個資料), 該如何設定這兩個資料源
crystal report 資料源問題(編號：6127)
如用setdatasource的方法, 只可以把report指向一個資料源, 請問如果在報表中有兩個資料源(data field下有個資料), 該如何設定這兩個資料源
別的程式放檔案到某目錄中,如何驚動執行中的VB 程式(編號：6125)
別的程式放某檔案到某目錄中,如何驚動執行中的VB 程式?
也就是說,這個動作對正在執行中的VB 程式產生一事件(可視為
中斷). 但不要用 Timer 喔! 謝謝, 請指教.
也就是說,這個動作對正在執行中的VB 程式產生一事件(可視為
中斷). 但不要用 Timer 喔! 謝謝, 請指教.
Crystal Report搭配網路雷射印表機之問題!(編號：6124)
利用Crystal Report4.6所作之report丟到網路雷射印表機,只見印表機燈號一直閃,閃完後report並没出來,必需用手去按一下印表機上的按鍵,report才能送出,誰能救我
OO4O用在ASP上(編號：6123)
據Oracle技術資料表示
使用OO4O會比ODBC來的快
請問有誰使用過asp+OO4O來聯接Oracle??
語法是怎樣?
我VB+OO4O可以work, 但ASP上, 在Server.createObject會出錯
-- 外部錯誤
請高手解答一下啦...thanks
使用OO4O會比ODBC來的快
請問有誰使用過asp+OO4O來聯接Oracle??
語法是怎樣?
我VB+OO4O可以work, 但ASP上, 在Server.createObject會出錯
-- 外部錯誤
請高手解答一下啦...thanks
Crystal Report如何使不同的Group顯示在不同頁?!(編號：6122)
請問....報表中有一Group以銀行別來作,我想要甲銀行的資料印完後自動跳頁再印乙銀行,請問要如何做呢.?!謝謝
Crystal Report 8如何動態新增選取資料條件式?(編號：6119)
Crystal Report 8的Report-＞Select Expert可以用來設定選取資料的條件式..!請問.有沒有辦法在程式中動態新增此條件式呢.!?
謝謝
謝謝
dbgrid空白列問題(編號：6117)
我將dbgrid設成允許新增、刪除、修改，在最後一行有一個
空白列、我要如何知道滑鼠點選在最後的空白列，程式如何寫
環境：Win98 + Access97 + VB5+SP3
空白列、我要如何知道滑鼠點選在最後的空白列，程式如何寫
環境：Win98 + Access97 + VB5+SP3
如何自動產生貼有位圖的Email？(編號：6116)
我們可以實現發送Html格式的Email，但是在Html格式中，位圖是以Hyper Link方式顯示的。
請問各位高手：
能不能實現向OutLook一樣，把位圖直接插到Email中去，而不是以Hyper Link方式顯示呢？
請問各位高手：
能不能實現向OutLook一樣，把位圖直接插到Email中去，而不是以Hyper Link方式顯示呢？
DataGrid新增資料(編號：6115)
我在textbox中輸入篩選條件，用SQL語法"SELECT * FROM XXX WHERE XXX"將篩選的結果顯示在DataGrid中，然後在DataGrid中進行資料的編輯，但是當篩選出來沒有任何記錄時，就無法在DataGrid中新增記錄，請要用什麼方法新增呢?
使用mscomm傳送FAX!?!?(編號：6113)
關於控制Modem發Fax的功能
透過mscomm32.ocx之後可以控制modem
但是輸入AT的指令以後卻不知道該如何傳送資料出去
先是以
AT+Fclass=1 '設定使用class 1 FAX傳輸協定
ATDxxxxxxx '撥號
AT+FTM=1 '傳送
??
不知道傳送的檔案該放在何處??
我想應該是設定mscomm32.ocx某個參數
還請知道的前輩告知一下. ^_^
感激不盡!!
p.s : MSDN也沒提及....
透過mscomm32.ocx之後可以控制modem
但是輸入AT的指令以後卻不知道該如何傳送資料出去
先是以
AT+Fclass=1 '設定使用class 1 FAX傳輸協定
ATDxxxxxxx '撥號
AT+FTM=1 '傳送
??
不知道傳送的檔案該放在何處??
我想應該是設定mscomm32.ocx某個參數
還請知道的前輩告知一下. ^_^
感激不盡!!
p.s : MSDN也沒提及....
請問這樣的錯誤訊息是.......??(編號：6108)
我是灌vb6.0可是公司帶回來的程式都打不開而出現這個訊息
公司的os是NT4.0~~家裡的是WIN98
我還有灌TRUE DB GRID6.0和CRYSTAL REPORT
因為公司的程式有用到......
VB6 caused an invalid page fault in
module OLEAUT32.DLL at 015f:65359a3a.
Registers:
EAX=85aef828 CS=015f EIP=65359a3a EFLGS=00010296
EBX=0effffff SS=0167 ESP=007ff0dc EBP=007ff0e8
ECX=0000002a DS=0167 ESI=94aefa27 FS=4cbf
EDX=0000002a ES=0167 EDI=00601b10 GS=0000
Bytes at CS:EIP:
66 8b 46 0a 66 3b 45 10 0f 85 ea 6b 01 00 66 8b
Stack dump:
00104a2a 00601b10 00000000 007ff51c 6535acd9 007ff11c 000002a 00004a2a 00601b10 00000000 6535ac7b 007ff11c 00704a2a 00000000 00601b10 00601b14
公司的os是NT4.0~~家裡的是WIN98
我還有灌TRUE DB GRID6.0和CRYSTAL REPORT
因為公司的程式有用到......
VB6 caused an invalid page fault in
module OLEAUT32.DLL at 015f:65359a3a.
Registers:
EAX=85aef828 CS=015f EIP=65359a3a EFLGS=00010296
EBX=0effffff SS=0167 ESP=007ff0dc EBP=007ff0e8
ECX=0000002a DS=0167 ESI=94aefa27 FS=4cbf
EDX=0000002a ES=0167 EDI=00601b10 GS=0000
Bytes at CS:EIP:
66 8b 46 0a 66 3b 45 10 0f 85 ea 6b 01 00 66 8b
Stack dump:
00104a2a 00601b10 00000000 007ff51c 6535acd9 007ff11c 000002a 00004a2a 00601b10 00000000 6535ac7b 007ff11c 00704a2a 00000000 00601b10 00601b14
WebBrowser 問題(編號：6103)
有時候去一個網頁不過網頁 server 沒有回應, 之後會出"Request time out", 接著程式自動關閉, 有沒有方法使程式不會自動關閉及再試去到那個網頁??
Help!!很急!!請問有沒有人知道VB開發的ActiveX DLL,如何被BCB呼(編號：6102)
如果VB所開發的DLL如何被BCB使用?
如果有一個function
在VB是
Public Function TestFunc(ByVal I As Integer,ByVal S As String) As String
搞了幾天,都未成功,請大家幫幫忙!!萬分感激!!
如果有一個function
在VB是
Public Function TestFunc(ByVal I As Integer,ByVal S As String) As String
搞了幾天,都未成功,請大家幫幫忙!!萬分感激!!
天呀!asp資料庫table要怎樣才能被搬到user端?(編號：6101)
Web資料庫資料搬移至user端問題?
＜%
'...頡取server端aaa資料庫bbb_table存入myarray陣列中
dim myarray(6)
set conn=server.createobject("adodb.connection")
driver="driver={microsoft access (*.mdb)}
dbpath=";dbq=c:\aaa.mdb
conn.open driver & dbpath
strsql=select * from bbb
set rs=conn.execute(strsql)
do while not rs.eof
myarray(i)=rs(0)
i=i+1
rs.movenext
loop
%＞
＜head＞
.................
＜/head＞
＜body＞
＜script language="vbscript＞
dim sharray(6)
sub window_onload()
sharray(0)=dshow.innerhtml
end sub
sub change_onclick()
'....證明myarray此資料可搬到此sub被使用
dataview.innerhtml=sharray(0)
end sub
sub other_fuction()
'......可利用陣列資料作其他運算.
end sub
＜/script＞
＜div id="dshow" style="...........:hidden;"＞
＜%=myarray(0)%＞
＜/div＞
＜div id="dataview" style="...........:visible;"＞
ccc
＜/div＞
＜/body＞
＜/html＞
...以上是個沒效率程式,僅能從資料庫搬移一個
資料提供user端作運算.我們是希望整個table
資料能被搬到user端,在sub程式段內被運算.
(而不是在server端執行運算後丟出結果.)
不知此問題有何解決對策?煩請高手指教!
(rds方式暫不考慮)
Thank!
＜%
'...頡取server端aaa資料庫bbb_table存入myarray陣列中
dim myarray(6)
set conn=server.createobject("adodb.connection")
driver="driver={microsoft access (*.mdb)}
dbpath=";dbq=c:\aaa.mdb
conn.open driver & dbpath
strsql=select * from bbb
set rs=conn.execute(strsql)
do while not rs.eof
myarray(i)=rs(0)
i=i+1
rs.movenext
loop
%＞
＜head＞
.................
＜/head＞
＜body＞
＜script language="vbscript＞
dim sharray(6)
sub window_onload()
sharray(0)=dshow.innerhtml
end sub
sub change_onclick()
'....證明myarray此資料可搬到此sub被使用
dataview.innerhtml=sharray(0)
end sub
sub other_fuction()
'......可利用陣列資料作其他運算.
end sub
＜/script＞
＜div id="dshow" style="...........:hidden;"＞
＜%=myarray(0)%＞
＜/div＞
＜div id="dataview" style="...........:visible;"＞
ccc
＜/div＞
＜/body＞
＜/html＞
...以上是個沒效率程式,僅能從資料庫搬移一個
資料提供user端作運算.我們是希望整個table
資料能被搬到user端,在sub程式段內被運算.
(而不是在server端執行運算後丟出結果.)
不知此問題有何解決對策?煩請高手指教!
(rds方式暫不考慮)
Thank!
shell的問題(編號：6100)
這樣會用到小畫家開啟setup.bmp這個圖檔
Shell "C:\windows\Pbrush.exe C:\windows\setup.bmp",3
^^^^^^^^^^^^^^^^^^^^
但是我想用小畫家開啟別的圖檔，不知該怎麼做？謝謝！
Shell "C:\windows\Pbrush.exe C:\windows\setup.bmp",3
^^^^^^^^^^^^^^^^^^^^
但是我想用小畫家開啟別的圖檔，不知該怎麼做？謝謝！
請教網頁程設的幾個問題(編號：6097)
網頁程設的問題,只要能解即可,不管用什麼方法 :
1. 我的網頁有兩個 frame : frame1,frame2
frame1 會到別人的網頁,如 www.hinet.net
試問 frame2 如何判斷 frame1 中的 www.hinet.net
已下載完畢 ?
2. frame2 如何判斷 frame1 中某個元件已可用 ?
3. frame2 如何讀取 frame1 中網頁中的文字 ?
4. frame2 如何讀取 frame1 中的 source code ?
5. 哪邊可找到 html 的 paser ?
Thanks very much !
1. 我的網頁有兩個 frame : frame1,frame2
frame1 會到別人的網頁,如 www.hinet.net
試問 frame2 如何判斷 frame1 中的 www.hinet.net
已下載完畢 ?
2. frame2 如何判斷 frame1 中某個元件已可用 ?
3. frame2 如何讀取 frame1 中網頁中的文字 ?
4. frame2 如何讀取 frame1 中的 source code ?
5. 哪邊可找到 html 的 paser ?
Thanks very much !
自定大小的標籤紙 ,為何結果不如預期(編號：6096)
不知道大家有沒有遇到過這樣子的問題
我用自定大小的標籤紙 1100x380
每次輸出幾行資料後加一個.newpage
可是我發覺得,輸出的結果,
每一段的第一行之間的距離卻只有340
於是把紙張設成1100X420
每段的距離就剛好是380
可是字體大小10,卻只能印5行
明明還有1-2行的空白,可是都會印到下一頁,
請問,這是什麼原因.?
我用自定大小的標籤紙 1100x380
每次輸出幾行資料後加一個.newpage
可是我發覺得,輸出的結果,
每一段的第一行之間的距離卻只有340
於是把紙張設成1100X420
每段的距離就剛好是380
可是字體大小10,卻只能印5行
明明還有1-2行的空白,可是都會印到下一頁,
請問,這是什麼原因.?
如何在一個表單中同時更新兩個field?(編號：6093)
例如用text元件,用它連結adodc,然後在text中填入一筆資料~
要如何才能同時更新二個adodc中的資料表中的欄位,也就是同時新增資料在二個資料表中?
要如何才能同時更新二個adodc中的資料表中的欄位,也就是同時新增資料在二個資料表中?
請問這樣的錯誤訊息是.......??(編號：6091)
我是灌vb6.0可是公司帶回來的程式都打不開而出現這個訊息
公司的os是NT4.0~~家裡的是WIN98
我還有灌TRUE DB GRID6.0和CRYSTAL REPORT
因為公司的程式有用到......
VB6 caused an invalid page fault in
module OLEAUT32.DLL at 015f:65359a3a.
Registers:
EAX=85aef828 CS=015f EIP=65359a3a EFLGS=00010296
EBX=0effffff SS=0167 ESP=007ff0dc EBP=007ff0e8
ECX=0000002a DS=0167 ESI=94aefa27 FS=4cbf
EDX=0000002a ES=0167 EDI=00601b10 GS=0000
Bytes at CS:EIP:
66 8b 46 0a 66 3b 45 10 0f 85 ea 6b 01 00 66 8b
Stack dump:
00104a2a 00601b10 00000000 007ff51c 6535acd9 007ff11c 0000002a 00004a2a 00601b10 00000000 6535ac7b 007ff11c 00704a2a 00000000 00601b10 00601b14
公司的os是NT4.0~~家裡的是WIN98
我還有灌TRUE DB GRID6.0和CRYSTAL REPORT
因為公司的程式有用到......
VB6 caused an invalid page fault in
module OLEAUT32.DLL at 015f:65359a3a.
Registers:
EAX=85aef828 CS=015f EIP=65359a3a EFLGS=00010296
EBX=0effffff SS=0167 ESP=007ff0dc EBP=007ff0e8
ECX=0000002a DS=0167 ESI=94aefa27 FS=4cbf
EDX=0000002a ES=0167 EDI=00601b10 GS=0000
Bytes at CS:EIP:
66 8b 46 0a 66 3b 45 10 0f 85 ea 6b 01 00 66 8b
Stack dump:
00104a2a 00601b10 00000000 007ff51c 6535acd9 007ff11c 0000002a 00004a2a 00601b10 00000000 6535ac7b 007ff11c 00704a2a 00000000 00601b10 00601b14
求救！開啟輸入法於於forms2.0元件(編號：6089)
不知有人是否用過forms2.0這個元件？
當我使用其textbox時
欲輸入中文...將輸入法切換至自然輸入法
正常而言，所按的鍵會先在自然輸入法中視窗出現注音符號
但是forms2.0的元件皆無法出現自然輸入法的對話視窗
甚至連windows本身的注音輸入法也無法顯示[注音/半形] 的那一個window
請問是否有人能克服此問題？？
使輸入法的對話視窗出現？
當我使用其textbox時
欲輸入中文...將輸入法切換至自然輸入法
正常而言，所按的鍵會先在自然輸入法中視窗出現注音符號
但是forms2.0的元件皆無法出現自然輸入法的對話視窗
甚至連windows本身的注音輸入法也無法顯示[注音/半形] 的那一個window
請問是否有人能克服此問題？？
使輸入法的對話視窗出現？
. 2進位與16進位的不同謝謝(編號：6087)
小弟想請問各位幾個問題:
1. 2進位與16進位的不同
2.想請問如何將檔案以最原始的方式呈現-例如: 101011110011
3.是否可以將 16進位的檔案轉成2進位的檔或者相反
謝謝....
1. 2進位與16進位的不同
2.想請問如何將檔案以最原始的方式呈現-例如: 101011110011
3.是否可以將 16進位的檔案轉成2進位的檔或者相反
謝謝....
封裝時有遺失檔案(crystal)(編號：6086)
在封裝的時候, 會說"crystal"找不到(遺失檔案), 然後選瀏覽的話, 檔案名稱跟檔案類型都是"crystal", 所以沒辦法找到這個遺失的檔案, 好接下去繼續封裝完畢~ 我的專案裡面有用到crystal report, 那是不是哪裡需要設定crystal report 的連結什麼的呢? 我用的是VB6, Crystal report 7, win98, 請各位高手幫幫忙, 感激不盡!!
檔案上傳....(編號：6085)
請教各位:如何上傳檔案,不透過前端的＜input type = file＞這個元件做前端的介面.ex:一個Txt檔(Server端),列了兩三個檔案要上傳至Server中,麻煩請各位幫忙....
請問如何 Refresh DataEnvironment 資料(編號：6084)
情況如下:
我用 Adodc 連接 Access file, 並提供 DataGrid 給 users 修改資料, 新增資料等, 另外用 DataEnvironment 連接同一個 Access file, 然後以 DataReport 印出資料, 可是在 DataGrid 做的更新, 在 DataReport 中的資料不能隨著更動(印出舊資料), 除非我關掉 Application, 然後重開, DataReport 才能讀取新的資料, 不知是否有方法可以不用重開就可以讀取新的資料, 還是我哪裡弄錯了?
請大家幫忙, 謝謝!
我用 Adodc 連接 Access file, 並提供 DataGrid 給 users 修改資料, 新增資料等, 另外用 DataEnvironment 連接同一個 Access file, 然後以 DataReport 印出資料, 可是在 DataGrid 做的更新, 在 DataReport 中的資料不能隨著更動(印出舊資料), 除非我關掉 Application, 然後重開, DataReport 才能讀取新的資料, 不知是否有方法可以不用重開就可以讀取新的資料, 還是我哪裡弄錯了?
請大家幫忙, 謝謝!
如何列印拖曳至picturebox中的影像或圖片(編號：6083)
我用陣列產生圖示資料並將它拖曳至picturebox中但無法將拖曳的結果列印出來,把程式post如下:
Private Sub Command1_Click()
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height
Printer.EndDoc
End Sub
Private Sub Form_Load()
ListView1.Icons = ImageList1
Dim i As Integer
For i = 1 To ImageList1.ListImages.Count
ListView1.ListItems.Add , , ImageList1.ListImages(i).Key, i
Next i
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Static n As Integer
n = n + 1
Load Image1(n)
With Image1(n)
.Top = 200
.Left = 2500
.Width = 500
.Visible = True
.ZOrder 0
End With
Dim i As Integer
i = ListView1.SelectedItem.Index
Image1(n).Picture = ImageList1.ListImages(i).ExtractIcon
Image1(n).DragMode = 1 '拖曳方法為自動
End Sub
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Set Source.Container = Picture1 '以picture1為容納器
Source.Move X, Y
End Sub
Private Sub Command1_Click()
Printer.PaintPicture Picture1.Image, 0, 0, Picture1.Width, Picture1.Height
Printer.EndDoc
End Sub
Private Sub Form_Load()
ListView1.Icons = ImageList1
Dim i As Integer
For i = 1 To ImageList1.ListImages.Count
ListView1.ListItems.Add , , ImageList1.ListImages(i).Key, i
Next i
End Sub
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Static n As Integer
n = n + 1
Load Image1(n)
With Image1(n)
.Top = 200
.Left = 2500
.Width = 500
.Visible = True
.ZOrder 0
End With
Dim i As Integer
i = ListView1.SelectedItem.Index
Image1(n).Picture = ImageList1.ListImages(i).ExtractIcon
Image1(n).DragMode = 1 '拖曳方法為自動
End Sub
Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Set Source.Container = Picture1 '以picture1為容納器
Source.Move X, Y
End Sub
如何得知查詢到資料的欄位名稱……(編號：6082)
請問一下各位高手：
我有一個SQL語法"select * from table where a='豬頭喵' or b='豬頭喵'",a欄位和b欄位的記錄是不一樣的(不會重覆)，可是沒有辨法事先知道要查詢的資料是在a還是在b裡，所以SQL只好這樣子寫，但是現在我的問題是必需知道我所查詢到的資料是在a還是在b裡找到的，如何傳回一值得知呢？請大家幫幫忙！謝謝！
我有一個SQL語法"select * from table where a='豬頭喵' or b='豬頭喵'",a欄位和b欄位的記錄是不一樣的(不會重覆)，可是沒有辨法事先知道要查詢的資料是在a還是在b裡，所以SQL只好這樣子寫，但是現在我的問題是必需知道我所查詢到的資料是在a還是在b裡找到的，如何傳回一值得知呢？請大家幫幫忙！謝謝！
如何以程式指定Crystal Report連結資料庫的路徑(編號：6080)
我在專案中有一報表..使用Crystal Report建成的..但是資料庫的連結是使用精靈建的..請問要如何改成以程式指定呢.!?...
要不然使用者在安裝時選擇了不同的路徑..程式便出錯了..!!
謝謝
要不然使用者在安裝時選擇了不同的路徑..程式便出錯了..!!
謝謝
如何在換頁時重置Sum(Crystal Report)(編號：6079)
我有一報表.報表中對一欄位做Sum但是...換頁時須要重置..也就是說是對每一頁做Sum但是...現在卻都會把上一頁的值也加上去..我在設定的地方也只有找到On Change of fild和On change of group和另外一個自己寫條件式的..請問要如何才能達到以上效果呢.!?..謝謝
PS.Crystal Report 8
PS.Crystal Report 8
可否不用Winsock而傳送字串或訊息到另一台電腦(編號：6076)
可否不用Winsock而傳送字串或訊息到另一台電腦，即不使用TCP/IP
改用NetBUEI,或者有其它Winsock元件不限定一定要使用TCP/IP的東東可購買??
改用NetBUEI,或者有其它Winsock元件不限定一定要使用TCP/IP的東東可購買??
VB要如何才能叫ACCESS中的QUERY資料表當資料庫來源(編號：6073)
如題
在VB6.0中,我可以叫ACCESS中的資料表來當資料來源,但就是叫不出QUERY來當資料來源
請各位先進指導一下,我該如何做才對,THANKS!!!!
在VB6.0中,我可以叫ACCESS中的資料表來當資料來源,但就是叫不出QUERY來當資料來源
請各位先進指導一下,我該如何做才對,THANKS!!!!
幫我看看函數的問題...(編號：6072)
因為霧是新手
所以可能有不少錯誤
這裡的高手雲集 請不要笑霧 包函霧的生疏
這是霧的程式碼
可是函數上卻出現了沒傳回的問題
若將 PV改成P1 則會有"溢位"問題 查看結果是因為分母為0
可是霧擁筆算時 不會這樣ㄚ 想不出來之下
只好拿者不堪入目的簡單程式 希望眾家高手幫霧一個忙
看看好嗎 因為霧的vb資歷淺 說清楚一點好嗎 霧會認真學習
Public Sub Command1_click()
H = Val(Text1(0).Text)
L = Val(Text1(1).Text)
B = Val(Text1(2).Text)
A = Val(Text1(3).Text)
r = Val(Text1(4).Text)
Rc = Val(Text1(5).Text)
φ = Val(Text1(6).Text)
α = Val(Text1(7).Text)
FS = Val(Text1(8).Text)
K = ((cosα) ^ 2 - (cosφ) ^ 2) ^ 0.5
Ka = cosα((cosα1 - K) / (cosα + K))
Kp = cosα((cosα1 + K) / (cosα - K))
Pa = 1 / 2 * Ka * r * H ^ 2
Y = H / 3
PV = Pa * Sinα1
Ph = Pa * cosα1
Pp = 1 / 2 * Kp * r * A ^ 2
Y1 = A / 3
Mf = Ph * Y
W1 = (L - B) * H * 1 / 2 * Rc
W2 = B * H * Rc
Mr = W1 * (L - B) * 2 / 3 + W2 * (L - B / 2) + PV * L + Pp * Y1
FS = Mr / Mf
Text1(8).Text = FS
If FS ＞ 1.5 Then
Text1(9).Text = "OK"
Else
Text1(9).Text = "NG"
End If
End Sub
謝謝 不勝感激
所以可能有不少錯誤
這裡的高手雲集 請不要笑霧 包函霧的生疏
這是霧的程式碼
可是函數上卻出現了沒傳回的問題
若將 PV改成P1 則會有"溢位"問題 查看結果是因為分母為0
可是霧擁筆算時 不會這樣ㄚ 想不出來之下
只好拿者不堪入目的簡單程式 希望眾家高手幫霧一個忙
看看好嗎 因為霧的vb資歷淺 說清楚一點好嗎 霧會認真學習
Public Sub Command1_click()
H = Val(Text1(0).Text)
L = Val(Text1(1).Text)
B = Val(Text1(2).Text)
A = Val(Text1(3).Text)
r = Val(Text1(4).Text)
Rc = Val(Text1(5).Text)
φ = Val(Text1(6).Text)
α = Val(Text1(7).Text)
FS = Val(Text1(8).Text)
K = ((cosα) ^ 2 - (cosφ) ^ 2) ^ 0.5
Ka = cosα((cosα1 - K) / (cosα + K))
Kp = cosα((cosα1 + K) / (cosα - K))
Pa = 1 / 2 * Ka * r * H ^ 2
Y = H / 3
PV = Pa * Sinα1
Ph = Pa * cosα1
Pp = 1 / 2 * Kp * r * A ^ 2
Y1 = A / 3
Mf = Ph * Y
W1 = (L - B) * H * 1 / 2 * Rc
W2 = B * H * Rc
Mr = W1 * (L - B) * 2 / 3 + W2 * (L - B / 2) + PV * L + Pp * Y1
FS = Mr / Mf
Text1(8).Text = FS
If FS ＞ 1.5 Then
Text1(9).Text = "OK"
Else
Text1(9).Text = "NG"
End If
End Sub
謝謝 不勝感激
更改crystal report的文字(編號：6068)
請問如何在vb中更改crystal report中某一個text field 的文字.
是不是使用report.section(4)......的, 請指教
謝
是不是使用report.section(4)......的, 請指教
謝
電腦硬體中VB可讀出之其每台電腦唯一編號是哪個裝置？(編號：6066)
請問電腦硬體中VB可讀出之其唯一編號是哪個裝置？如CPU？Bios？網路卡？硬碟之編號會因Format而改變。有無程式碼範例？謝謝！
can I print DataGrid?(編號：6062)
can I print DataGrid? Can DataGrid automatic adjust column width to show content?
小女子我遇到vb上的困難了,求求各位高手幫幫小妹我,拜托拜托,我(編號：6059)
最近小妹我遇到vb上的問題了,想請高手們幫幫小妹,拜托拜托,我真的寫不出來,只好求救了,我有個程式是可以從原始檔中篩選出超連結的字,只要打入網址就可以找出此網頁的超連結的字,
可是每個超連結的字,都有它自己所對應要連結的網址,所以我想
請高手們幫我寫一個不僅可以找出超連結的字的程式,並且可以將每個超連結的字所要連結的網址也找出來,然後在SQL或是ACCESS中建
立一個資料表,此資料表有三個欄位,分別為順序,超連結字串,網址,
然後程式會將找出來的超連結的字和它所要連結的網址存到此資料
表中例如有一個網頁中,它有三個超連結的字串,分別為=＞劉德華、吳宗憲、鄭秀文,在程式執行完後,此資料表的內容為
順序 超連結的字 網址
01 劉德華 www.andy.com.tw
02 吳宗憲 www.jacky.com.tw
03 鄭秀文 www.sammi.com.tw
以上大概就是這樣子,希望高手們能抽空幫幫小妹我,我真的很需要這個程式,如果有那個好心人士願意幫我的話,可以說一聲,我再將那個可以抓原始檔的程式寄過去,然後您們幫小妹我直接寫在裡面就可以了,真的真的很希望你們能幫幫我寫此程式給我.小妹會感激不盡的!
求求各位了,就可憐可憐小妹我吧!!!拜托各位高手幫幫我,拜托拜托!
可是每個超連結的字,都有它自己所對應要連結的網址,所以我想
請高手們幫我寫一個不僅可以找出超連結的字的程式,並且可以將每個超連結的字所要連結的網址也找出來,然後在SQL或是ACCESS中建
立一個資料表,此資料表有三個欄位,分別為順序,超連結字串,網址,
然後程式會將找出來的超連結的字和它所要連結的網址存到此資料
表中例如有一個網頁中,它有三個超連結的字串,分別為=＞劉德華、吳宗憲、鄭秀文,在程式執行完後,此資料表的內容為
順序 超連結的字 網址
01 劉德華 www.andy.com.tw
02 吳宗憲 www.jacky.com.tw
03 鄭秀文 www.sammi.com.tw
以上大概就是這樣子,希望高手們能抽空幫幫小妹我,我真的很需要這個程式,如果有那個好心人士願意幫我的話,可以說一聲,我再將那個可以抓原始檔的程式寄過去,然後您們幫小妹我直接寫在裡面就可以了,真的真的很希望你們能幫幫我寫此程式給我.小妹會感激不盡的!
求求各位了,就可憐可憐小妹我吧!!!拜托各位高手幫幫我,拜托拜托!
如何開啟一執行檔，修改其內容再存回去?(編號：6058)
要怎作能開啟執行檔後，修改他的內容~ex.75 1D --＞ 90 90
然後再存回去呢?
我試了好久都不行寫回去呢~
知道的人能告訴我嗎?謝謝了~
然後再存回去呢?
我試了好久都不行寫回去呢~
知道的人能告訴我嗎?謝謝了~
How to use loop?(編號：6056)
For those professional
can you give me a simple example of loop code?!
I don't knwo how to stop loop to continuously running!
Thank you so much!
can you give me a simple example of loop code?!
I don't knwo how to stop loop to continuously running!
Thank you so much!
透明圖片的運用?????(編號：6055)
1.
請問一下,Gif89a 元件可以設定透明的背景..
但我只要將 gif89a.left ...等坐標移動後,就不行了,
請問要如何在移動後,能正常顯示背景呢??
2.
請問..不管是image,picture,gif89a 等.....只要移動它們
多多少少都會有閃爍的情形....就算用 image1.move 屬性
也一樣,情問要怎要改善....
3.
請問...究竟有沒有辦法在vb上,將檔案複製到剪貼簿(此問題一直沒
人能解決)..在此請教高手
4.
在一個 access 的資料庫中有3 個欄位....500 筆資料
這3個欄位500筆資料,分別裝著 1~50 的數字(亂數) ,請問要如何計
算出,那一個數字,出現的次數最高??? 次高?? 次次高??....
我用的方法是 dim a(50) , 再將這3個欄位對應的數字累加到
陣列中... 如果 49 在3個欄位中共出現250 次...則:
print a(49) 將會等於 250
有無更快的方法....因為如果我有5000 筆資料,最少要分析5000 次
5. 請問在vb 當中是否有測試碰撞的元件??
請問一下,Gif89a 元件可以設定透明的背景..
但我只要將 gif89a.left ...等坐標移動後,就不行了,
請問要如何在移動後,能正常顯示背景呢??
2.
請問..不管是image,picture,gif89a 等.....只要移動它們
多多少少都會有閃爍的情形....就算用 image1.move 屬性
也一樣,情問要怎要改善....
3.
請問...究竟有沒有辦法在vb上,將檔案複製到剪貼簿(此問題一直沒
人能解決)..在此請教高手
4.
在一個 access 的資料庫中有3 個欄位....500 筆資料
這3個欄位500筆資料,分別裝著 1~50 的數字(亂數) ,請問要如何計
算出,那一個數字,出現的次數最高??? 次高?? 次次高??....
我用的方法是 dim a(50) , 再將這3個欄位對應的數字累加到
陣列中... 如果 49 在3個欄位中共出現250 次...則:
print a(49) 將會等於 250
有無更快的方法....因為如果我有5000 筆資料,最少要分析5000 次
5. 請問在vb 當中是否有測試碰撞的元件??
困難的問題(編號：6054)
對於破解密碼的工具我一直有一個問題 請問要如何寫出一個可以讓多台電腦同時運算的破解工具 就像 Advanced ZIP Password Recovery 只能單機作業若遇上超過 8 個字又有特殊符號的密碼根本一點辦法也沒有 請問有哪位會寫嗎 是否要使用 WinSock 請給劣者一個方針
還有一個問題 Sorry !! 劣者寫了一個字典產生器 但寫出來產生出的字典檔發現和使用暴力破解的方式根本就一模一樣 請問有沒有對字典檔寫法有特別研究 在請問各位駭客高手 就拿 DES 編碼來說是不是只要知道編碼的方式就可以寫出解碼的程式 !!!
例如凱薩編碼法!!
還有一個問題 Sorry !! 劣者寫了一個字典產生器 但寫出來產生出的字典檔發現和使用暴力破解的方式根本就一模一樣 請問有沒有對字典檔寫法有特別研究 在請問各位駭客高手 就拿 DES 編碼來說是不是只要知道編碼的方式就可以寫出解碼的程式 !!!
例如凱薩編碼法!!
終結表單..?(編號：6052)
如果我在程式中有兩個表單,一個Main,一個Mecd
當我在main呼叫mecd,用show並不強制回應,我希望在Mecd Unload
時終止自己的所有程序(包括正在執行中的)
因為用End程式就會結束,所以...
例如有個迴圈是這樣:
do
doevents
debug.print "time:" &tmr
loop
當unload完成還是會繼續執行這個...
另外問一個,有什麼方法可以讓表單回到原始的設定嗎 ?
by Peter ^_^
當我在main呼叫mecd,用show並不強制回應,我希望在Mecd Unload
時終止自己的所有程序(包括正在執行中的)
因為用End程式就會結束,所以...
例如有個迴圈是這樣:
do
doevents
debug.print "time:" &tmr
loop
當unload完成還是會繼續執行這個...
另外問一個,有什麼方法可以讓表單回到原始的設定嗎 ?
by Peter ^_^
sql 問題(編號：6051)
sStr = "select distinct * into tmp02 " _
& "from tmp01 " _
以上指令當tmp01只有一筆資料時,有時會成功有時失敗
有多筆資料時卻都會成功??
& "from tmp01 " _
以上指令當tmp01只有一筆資料時,有時會成功有時失敗
有多筆資料時卻都會成功??
呼叫Excel卻不理我～(編號：6050)
想要把數據貼到Excel
可是他卻不理我
請前輩幫幫我～Please～
錯誤訊息:此DDE起始動作沒有得到其他應用程式的回應
Private Sub sure_Click()
xlspath = App.Path + "\" + outfilename + ".xls"
Source = App.Path + "\" + "source.xls"
FileCopy Source, xlspath
x = Shell("C:\Program Files\Microsoft Office\Office\EXCEL " + xlspath, 2)
For i = 0 To 5
textbox(i).LinkMode = none
textbox(i).LinkTopic = "excel!sheet1"
textbox(i).LinkItem = "r1c" + LTrim$(Str(i + 1))
textbox(i).LinkMode = manual
Next i
可是他卻不理我
請前輩幫幫我～Please～
錯誤訊息:此DDE起始動作沒有得到其他應用程式的回應
Private Sub sure_Click()
xlspath = App.Path + "\" + outfilename + ".xls"
Source = App.Path + "\" + "source.xls"
FileCopy Source, xlspath
x = Shell("C:\Program Files\Microsoft Office\Office\EXCEL " + xlspath, 2)
For i = 0 To 5
textbox(i).LinkMode = none
textbox(i).LinkTopic = "excel!sheet1"
textbox(i).LinkItem = "r1c" + LTrim$(Str(i + 1))
textbox(i).LinkMode = manual
Next i
關於MSCOMM32.OCX??(編號：6046)
有看到VB 裡面有個MSCOMM32.ocx
不知道那個元檢怎麼使用
以及
不知道那個完件是否可以透過RS232對modem下AT指令?
請指教
謝謝.^_^
不知道那個元檢怎麼使用
以及
不知道那個完件是否可以透過RS232對modem下AT指令?
請指教
謝謝.^_^
請問用OpenSchema時能否使用非同步執行?(編號：6045)
如題,當用open 時可以用rs.open SQL, cn,,,adAsyncExecute來非同步執行, 用openshema時是否有類似的用法呢?謝謝.
子控制項的一些屬性無法顯示在屬性頁上?(編號：6041)
我是自製ocx 的新手,想請教各位先進; 為什麼有些屬性無法顯示在屬性頁上. 例如 comboBox 的 List 屬性 ,成員中的確能被列舉,但在屬性
頁上就是看不到.
頁上就是看不到.
使用activeX control, 如何結束程式(編號：6039)
我使用VB6.0 ... 使用activeX control 打算寫一個線上考試
在介面上加入一個按鈕可以讓使用者結束程式
只知道程式提示 unload object as object
但卻測試不出來
請問我該做什麼呢??謝謝各位的幫忙
在介面上加入一個按鈕可以讓使用者結束程式
只知道程式提示 unload object as object
但卻測試不出來
請問我該做什麼呢??謝謝各位的幫忙
請問如何設定線條(line)的粗細(編號：6038)
大家好
我用printer物件列印矩形
printer.line 10,10,30,30,,B
請問如何設定矩形線條的粗細呢
可不可以告訴我較完整的指令
謝謝
我用printer物件列印矩形
printer.line 10,10,30,30,,B
請問如何設定矩形線條的粗細呢
可不可以告訴我較完整的指令
謝謝
ODBC的疑問(編號：6037)
在VB中,以ODBC連結資料庫,不是要在控制台ODBC來源先設定好嗎?!
但如果今天程式要散發出去了..總不能叫使用者自己去控制台設定吧..請問有什麼辦法可以解決呢.!?...
但如果今天程式要散發出去了..總不能叫使用者自己去控制台設定吧..請問有什麼辦法可以解決呢.!?...
請問資料轉換的問題！(編號：6036)
請問各位高手：
我有二個資料表格t1和t2(access 2000)，t1中有十個欄位，t2中有七個欄位，而t1和t2的前五個欄位是一樣的(欄位名)，現在我想經由條件查詢t1產生一些結果然後放到轉到t2上，假如t2上已有資料，那可以從t2的最末筆記錄繼續新增，而不是把t2整個覆蓋，請問SQL可以做到嗎？SQL我只會基本的耶！條件的語法我會，而且我試過沒問題了，可是接下來我就沒有頭緒了，需要用到暫存資料表格嗎？可不可以給我個小範例？還是有別的解決方法呢？請各位高手幫幫豬頭喵！謝謝！謝謝！＞"＜
我有二個資料表格t1和t2(access 2000)，t1中有十個欄位，t2中有七個欄位，而t1和t2的前五個欄位是一樣的(欄位名)，現在我想經由條件查詢t1產生一些結果然後放到轉到t2上，假如t2上已有資料，那可以從t2的最末筆記錄繼續新增，而不是把t2整個覆蓋，請問SQL可以做到嗎？SQL我只會基本的耶！條件的語法我會，而且我試過沒問題了，可是接下來我就沒有頭緒了，需要用到暫存資料表格嗎？可不可以給我個小範例？還是有別的解決方法呢？請各位高手幫幫豬頭喵！謝謝！謝謝！＞"＜
特定字串的刪除(編號：6035)
假設有一篇文章中,有很多*[xx;xx;xxm格式的文字,
例如: *[1;33;45m這是*[33mVB*[31;45m討論區*[m
我該如何寫,才能將多餘文字刪除而變成: 這是VB討論區
小弟有寫出來,但是執行所花的時間多到嚇人,因此特來請教.... 謝謝^_^
請各位高手幫幫小弟,為小弟解惑吧^_^
例如: *[1;33;45m這是*[33mVB*[31;45m討論區*[m
我該如何寫,才能將多餘文字刪除而變成: 這是VB討論區
小弟有寫出來,但是執行所花的時間多到嚇人,因此特來請教.... 謝謝^_^
請各位高手幫幫小弟,為小弟解惑吧^_^
條碼掃描器的問題?(編號：6032)
我用過條碼掃描器，我知道條碼掃描器就像鍵盤一樣，我要的方式如比說我用鍵盤輸入條碼值，按下ENTER程式自動找資料。條碼掃描器應讓按下後程式自動搜尋資料。我本來想用KEYDOWN去查條碼掃描器的值，可以我找不到條碼掃描器的值（就像ENTER值=13)就沒有辦法寫成只要按下條碼掃描器就自動搜尋
IF KEYCODE=條碼掃描器值 THEN
(搜尋資料)
END IF
要怎樣寫才會按下條碼掃描器就自動搜尋資料
IF KEYCODE=條碼掃描器值 THEN
(搜尋資料)
END IF
要怎樣寫才會按下條碼掃描器就自動搜尋資料
ASP+sql is ok --- thanks little, how about ASP+Oracle?(編號：6028)
in ASP, 我以 ado方式連Oracle
dim conn,para,rs,sql
set conn=server.createObject("ADODB.connection")
para="driver={Oracle ODBC driver}"
conn.open para & ";ODBC;DSN=xx;UID=xx;PSW=xx;"
set rs=server.createObject("ADODB.recordset")
sql="select * from tbl-1"
rs.open sql,conn,1,1
以上run都正常,沒有出現error
但當我用rs.MoveFirst或rs.fields("fld-1")時
卻出現error -- 發生例外
有誰知道怎麼回事呢?
dim conn,para,rs,sql
set conn=server.createObject("ADODB.connection")
para="driver={Oracle ODBC driver}"
conn.open para & ";ODBC;DSN=xx;UID=xx;PSW=xx;"
set rs=server.createObject("ADODB.recordset")
sql="select * from tbl-1"
rs.open sql,conn,1,1
以上run都正常,沒有出現error
但當我用rs.MoveFirst或rs.fields("fld-1")時
卻出現error -- 發生例外
有誰知道怎麼回事呢?
請問ADO測試連接的方法(編號：6027)
各位先進好,小弟問個問題
如果使用ADODC,在[資料連結內容]畫面裡有個按鈕叫[測試連結]可以測試connection string是否可以正確連接,但如果不是使用ADO的圖形介面的話,在程式裡有可以類似測試的方法嗎?
先謝謝各位的解答
如果使用ADODC,在[資料連結內容]畫面裡有個按鈕叫[測試連結]可以測試connection string是否可以正確連接,但如果不是使用ADO的圖形介面的話,在程式裡有可以類似測試的方法嗎?
先謝謝各位的解答
資產與耗品(編號：6026)
請教一個問題
我們常會用資料庫在做庫存管理
所以我們會為每一個物品定義一個(編號,品名,庫存量)
例如:(A004,影印紙,10) ; (C001,NoteBook,5)
如果用掉A004,2包,則在使用記錄會有 A004用掉2包
這時我們的庫存應讓改成8,只要一查A004就知道庫存８
但是如果在我們的物品中,有一部份因需求,而必需要'單'品管理
例如在用掉NoteBook時,希望能夠知道用掉的是那一台NoteBook
為了分別每一台Notebook,所以在庫存資料上,
我們將(C001,NoteBook,5) 改成(C001-1,NoteBook,1)(C001-2,NoteBook,1)..(C001-5,NoteBook,1) .這樣子在使用記錄上,就能明確知道是那一台NoteBook被使用了
但是這樣子改,又很難知道現有NoteBook到底還有幾台庫存
請問,遇到這種情況,一般大家都如何設計.
我們常會用資料庫在做庫存管理
所以我們會為每一個物品定義一個(編號,品名,庫存量)
例如:(A004,影印紙,10) ; (C001,NoteBook,5)
如果用掉A004,2包,則在使用記錄會有 A004用掉2包
這時我們的庫存應讓改成8,只要一查A004就知道庫存８
但是如果在我們的物品中,有一部份因需求,而必需要'單'品管理
例如在用掉NoteBook時,希望能夠知道用掉的是那一台NoteBook
為了分別每一台Notebook,所以在庫存資料上,
我們將(C001,NoteBook,5) 改成(C001-1,NoteBook,1)(C001-2,NoteBook,1)..(C001-5,NoteBook,1) .這樣子在使用記錄上,就能明確知道是那一台NoteBook被使用了
但是這樣子改,又很難知道現有NoteBook到底還有幾台庫存
請問,遇到這種情況,一般大家都如何設計.
關於使用元件內物件與控制項的疑問~~(編號：6024)
各位前輩大家好~~我是一個剛用VB不久的新手,
對於我在點選[專案]/[設定使用元件]時對於內部一些控制項與元件各所屬的使用方法與內部屬性不知該如何使用,是否有何高手能向小弟提供何處能查到相關的文件資料~~~謝謝~~~感激不盡!!!
對於我在點選[專案]/[設定使用元件]時對於內部一些控制項與元件各所屬的使用方法與內部屬性不知該如何使用,是否有何高手能向小弟提供何處能查到相關的文件資料~~~謝謝~~~感激不盡!!!
如何利用drivelist判斷光碟中是否有光碟(編號：6023)
file1.path=drive1.path
每當我換到光碟槽，如果沒有光碟片
就會錯誤
我希望，能夠在之前先CHECK有沒有光碟片
該如何做呢？
每當我換到光碟槽，如果沒有光碟片
就會錯誤
我希望，能夠在之前先CHECK有沒有光碟片
該如何做呢？
請教如何呼叫EXCEL的子功能？(編號：6022)
各位先進好：
小弟想請教一下，在不建立EXCEL物件的情況下，如何用VB呼叫EXCEL的預覽功能？因為用VBA粉慢..老闆有疑問，有辦法嗎？我想要的是類似SHELL方式..被老闆嫌太慢的噹噹。＞_＜~~~~
小弟想請教一下，在不建立EXCEL物件的情況下，如何用VB呼叫EXCEL的預覽功能？因為用VBA粉慢..老闆有疑問，有辦法嗎？我想要的是類似SHELL方式..被老闆嫌太慢的噹噹。＞_＜~~~~
ASP + SQL Server(編號：6021)
ASP如何call SQL?
可否套用call access的語法?
Dim conn, param, rs
Set conn = Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("xx.mdb")
好久沒用asp了, 有無高手知道呢?
可否套用call access的語法?
Dim conn, param, rs
Set conn = Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("xx.mdb")
好久沒用asp了, 有無高手知道呢?
可以使用其他語言(VC++,Delphi,BCB...)呼叫VB所開發的DLL嗎?(編號：6020)
請問諸位高手,我現在有一個DLL係用VB所開發的,
其傳回值為ADODB.Recordset
我想使用BCB or VC++呼叫,不知是否能達到??
有無需注意的事項? Thanks!!
其傳回值為ADODB.Recordset
我想使用BCB or VC++呼叫,不知是否能達到??
有無需注意的事項? Thanks!!
使用ADO call SQL server(編號：6019)
以下程式碼
dim s as string, cmd as adodb.command
s = "test"
With cmd
.ActiveConnection = (略)
.CommandText = "insert table_1 values(s)"
.Execute
End With
會產生以下錯誤 "The name 's' is not permitted in this context. Only constants, expressions, or variables alloewd here. Column names are not permitted." 請問這是什麼問題?
dim s as string, cmd as adodb.command
s = "test"
With cmd
.ActiveConnection = (略)
.CommandText = "insert table_1 values(s)"
.Execute
End With
會產生以下錯誤 "The name 's' is not permitted in this context. Only constants, expressions, or variables alloewd here. Column names are not permitted." 請問這是什麼問題?
把整個網頁的內容抓下來不要抓 Tag,只存內容(編號：6017)
很抱歉喔!再請教一個問題,因為用 VB6 Inet的元件可以把整個網頁的內容抓下來,但是我只要文章,像一些 tag 如 html程式 or asp 的程式我不要,只要把裡頭的的文字存起來就好了!!希望一些先進指點迷津!
載入錯誤(編號：6016)
請問VB前輩:我把VB6.0安裝在C磁區,製作一個叫VIP的專案,存於D磁區.後來因為作業系統出現問題,我把D磁區整個用CD-RW複製下來,將C磁區Format重灌系統及應用程式,然後把D磁區的資料也複製回去.當我重新使用VB載入VIP專案時一切正常,但當我按VIP上表單中的"脫離"按鈕時(程式碼為:Unload Me)出現:"載入時發生錯誤,詳細資訊請參考D:\frmVIP.log",無法執行Unlaod Me,這個問題該如何處理?
SQL7.0的資料庫問題?(編號：6015)
問1:我在A這台電腦建立SQL7.0的資料庫,能COPY到B電腦,然後再與B這台電腦裡的SQL SERVER連結嗎?
問2:在VB6的程式裡能動態的指定SQL SERVER的資料庫路徑嗎?還是建立資料庫時的目錄位置就固定了
問3:SQL SERVER的資料庫都是在 \MSSQL7\Data 這個路徑嗎?可不可以修改? 如何做?
問4:Access2000以開新檔的方式叫出SQL的資料庫後, 是不是無法修改其內容呢?
問2:在VB6的程式裡能動態的指定SQL SERVER的資料庫路徑嗎?還是建立資料庫時的目錄位置就固定了
問3:SQL SERVER的資料庫都是在 \MSSQL7\Data 這個路徑嗎?可不可以修改? 如何做?
問4:Access2000以開新檔的方式叫出SQL的資料庫後, 是不是無法修改其內容呢?
在使用shape 指令後如何完全的close recordset 元件??(編號：6012)
請教一下各位高手：
我在程式中利用到了一段shape 指令 Ex:
SHAPE {select XXXXXX} AS ParentCMD APPEND ({select * from xxxxxx } AS ChildCMD RELATE buyer_code TO trade_buyer_code) AS ChildCMD
然後set datagrid1.datasource = adodc1.recordset
並 Set DataGrid2.DataSource = Adodc1.Recordset
("ChildCMD").UnderlyingValue
但當我在利用此recordset去開啟另一段 SQL 時，在下了 adodc1.recordset.close 後，再下 adodc1.recordset open (SQL statement)時，VB 卻出現了"此物件已開啟"的警告訊息..
請教各位高手，要如何將 adodc1.recordset("childCMD")close 掉?
先謝謝各位的解答...
我在程式中利用到了一段shape 指令 Ex:
SHAPE {select XXXXXX} AS ParentCMD APPEND ({select * from xxxxxx } AS ChildCMD RELATE buyer_code TO trade_buyer_code) AS ChildCMD
然後set datagrid1.datasource = adodc1.recordset
並 Set DataGrid2.DataSource = Adodc1.Recordset
("ChildCMD").UnderlyingValue
但當我在利用此recordset去開啟另一段 SQL 時，在下了 adodc1.recordset.close 後，再下 adodc1.recordset open (SQL statement)時，VB 卻出現了"此物件已開啟"的警告訊息..
請教各位高手，要如何將 adodc1.recordset("childCMD")close 掉?
先謝謝各位的解答...
vb如何模擬WORD 中的分散對齊(編號：6011)
請問利用ＶＢ如何模擬WORD中的分散對齊功能
1.TEXTBOX 辦得到嗎?如果辦不到那要使用何種控制項物件?
2.PRINTER.PRINT 列印時又要如何模擬列印?
1.TEXTBOX 辦得到嗎?如果辦不到那要使用何種控制項物件?
2.PRINTER.PRINT 列印時又要如何模擬列印?
Agent 的應用與語音辨識系統...請高手指點迷津(編號：6010)
小弟目前想做一個軟體是讓人可輸入發音,及讓電腦發音...
再辯識發音是否正確的程式,應該如何著手呢???
還有microsoft agent 要如何用呢??? 謝謝
再辯識發音是否正確的程式,應該如何著手呢???
還有microsoft agent 要如何用呢??? 謝謝
如何複製RichTextBox的文字格式(編號：6008)
小弟寫一個小程式
程式大概如下
i3 = InStr(RichTextBox1.text,D3) '判斷
If F i3＞ 0 Then
RichTextBox1.SelStart = I3 - 1
RichTextBox1.SelLength = j7
RichTextBox1.SelColor = vbRed
應為txt 檔好大 跑起來要半個小時
最後知道問題出在 RichTextBox1.text 文字太大
最後想到 若能將 RichTextBox1.text
的文字資料分一點 給RichTextBox2.text
然後在將RichTextBox2.text 相加
數度 就會快一些
問題 就是 格式 就是不能複製
還是有什麼比較好的解決方案嗎 不用那麼麻煩
謝謝 你的閱讀
程式大概如下
i3 = InStr(RichTextBox1.text,D3) '判斷
If F i3＞ 0 Then
RichTextBox1.SelStart = I3 - 1
RichTextBox1.SelLength = j7
RichTextBox1.SelColor = vbRed
應為txt 檔好大 跑起來要半個小時
最後知道問題出在 RichTextBox1.text 文字太大
最後想到 若能將 RichTextBox1.text
的文字資料分一點 給RichTextBox2.text
然後在將RichTextBox2.text 相加
數度 就會快一些
問題 就是 格式 就是不能複製
還是有什麼比較好的解決方案嗎 不用那麼麻煩
謝謝 你的閱讀
for each....(編號：6005)
請問我在程式中放置了許多text box,且名稱都是cntrno
以下程式有何錯誤呢?
for each x in document.all.item("cntrno")
msgbox document.all(x).value
next
以下程式有何錯誤呢?
for each x in document.all.item("cntrno")
msgbox document.all(x).value
next
訂閱：
文章 (Atom)