我現在是一個剛換工作的人
想學VB程式語言
但是不知道該如何下手
從何學起
若是要學程式指令要知道但是我不知道
要如何才能知道這方面的資料
希望有人告訴我
我會很感謝的
提供小吳 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 .
我出錢 您出力(編號：8130)
只要您自認是VB 的大內高手.只要您想自己開創一番事業.請與我聯絡.我出錢 您出力..一起創業.限居大台北.桃園.高雄等地.
PS::合作過程您不須花半毛錢.所有支出由我們支付.
PS::合作過程您不須花半毛錢.所有支出由我們支付.
關於 MSHFlexGrid RemoveItem 發生錯誤.....(編號：8128)
用grid.RemoveItem (grid.Row)移除到最後一筆(也就是grid.Row=1)時發生錯誤30015 "無法移除最後一個非固定的資料列" why??????
DLL 的自動提示(編號：8127)
各位高手;
我如何讓自己做的 ActiveX DLL 有像 WinAPI 一樣具函數參數提示, 甚至於有 DLL 內有哪些函數可選的功能?
我試著將此 DLL 引入及登錄,將函數宣告但都無法有此參數提示ㄋㄟ
謝謝
我如何讓自己做的 ActiveX DLL 有像 WinAPI 一樣具函數參數提示, 甚至於有 DLL 內有哪些函數可選的功能?
我試著將此 DLL 引入及登錄,將函數宣告但都無法有此參數提示ㄋㄟ
謝謝
對不起再借一下版面 ~~關於取得Hwnd(編號：8126)
嗯..首先感謝之前的各位幫我解答 (Click的問題)
但現在我又有另一個問題..
那就是如何取得hWnd...係因我要Send 的程式其hWnd多達20幾個
所以我想問,是否有可能直接取得"游標"上的程式的hwnd ?
by Peter ^_^(一樣很急 ...)
但現在我又有另一個問題..
那就是如何取得hWnd...係因我要Send 的程式其hWnd多達20幾個
所以我想問,是否有可能直接取得"游標"上的程式的hwnd ?
by Peter ^_^(一樣很急 ...)
文字檔資料，想要匯入access(編號：8125)
我有一些文字檔資料，想要匯入access資料表，請問該如何處理？匯入精靈無法處理。
每一筆資料有六行，每個欄位長度不一，中間有空白間隔，每筆資料間隔一行空白，請問VBA要如何寫？謝謝！
每一筆資料有六行，每個欄位長度不一，中間有空白間隔，每筆資料間隔一行空白，請問VBA要如何寫？謝謝！
請問一下？(編號：8122)
＜%
else
select case rs("userlevel")
case 1
response.redirect("網頁一")
case 2
response.redirect("網頁二")
case 3
response.redirect("網頁三")
end select
end if
%＞
請問我要怎何才能把 CASE 數字改成CASE 字串呢？
＜%
else
select case rs("userlevel")
case A
response.redirect("***")
case B
response.redirect("***")
case C
response.redirect("***")
end select
end if
%＞
else
select case rs("userlevel")
case 1
response.redirect("網頁一")
case 2
response.redirect("網頁二")
case 3
response.redirect("網頁三")
end select
end if
%＞
請問我要怎何才能把 CASE 數字改成CASE 字串呢？
＜%
else
select case rs("userlevel")
case A
response.redirect("***")
case B
response.redirect("***")
case C
response.redirect("***")
end select
end if
%＞
Please Help, modem Problem(編號：8120)
本人有兩台NT,用MODEM聯線
如何可偵測到modem正在使用中並自動中斷連線呢?
請問可否不用NT的DIAL UP 來聯線?又如何傳送LOGIN NAME 及
PASSWORD呢?
十分多謝!
如何可偵測到modem正在使用中並自動中斷連線呢?
請問可否不用NT的DIAL UP 來聯線?又如何傳送LOGIN NAME 及
PASSWORD呢?
十分多謝!
儲存日期的錯誤(編號：8116)
按下休改鍵,把日期欄位改成空白,再按下 save (adodc1.recordset.update) 後, 再按下 adodc1.recordset.movenext時, 就出現下列 error message
movenext 方法 ('_recordset 物件)失敗
請問該如何解決此問題
movenext 方法 ('_recordset 物件)失敗
請問該如何解決此問題
如何一次只讀取兩三筆資料(編號：8115)
我用的是會員的基本資料,
nvarchar,int....各種資料型態都有....
不是用GRID,
每一次只會看到一筆會員的記錄,
但由於會按上下筆,
目前是先讀取每筆記錄的KEY值,
但還是不夠快,
想知道是否可以做到一次只讀個兩三筆,
按上下筆時再搜尋其它筆數.
nvarchar,int....各種資料型態都有....
不是用GRID,
每一次只會看到一筆會員的記錄,
但由於會按上下筆,
目前是先讀取每筆記錄的KEY值,
但還是不夠快,
想知道是否可以做到一次只讀個兩三筆,
按上下筆時再搜尋其它筆數.
以Recordset來新增但SQL中仍未新增進去?(編號：8112)
以Recordset之addnew於datagrid中可順利看到已新增完畢.但至資料庫中卻未看見,connection需再來一次才真正寫入,可設定?來讓它立即寫回嗎?
cursorlocation=aduseclient(因我要用sort)
adOpenDynamic, adLockOptimistic
Thank you very much.
cursorlocation=aduseclient(因我要用sort)
adOpenDynamic, adLockOptimistic
Thank you very much.
problem with update(編號：8110)
我有 text1(0), text1(1), text1(2),.... to text1(10) 之 datasource 為 adodc1
text2(0), text2(1), text2(2) 之datasource 為 adodc2
當我按下儲存,我令 text2(0).text=text1(0).text, text2(1).TEXT= text1(1).text
之後 再 adodc2.recordset.update
當我按 adodc2.Recordset.Update 後,textbox 內之值有改變,
但並為寫入資料庫,
請問有誰知道如何解決此問題
text2(0), text2(1), text2(2) 之datasource 為 adodc2
當我按下儲存,我令 text2(0).text=text1(0).text, text2(1).TEXT= text1(1).text
之後 再 adodc2.recordset.update
當我按 adodc2.Recordset.Update 後,textbox 內之值有改變,
但並為寫入資料庫,
請問有誰知道如何解決此問題
inet的奇怪現象....(編號：8109)
我利用Inet去抓某網站的網頁原始檔下來，
如果是用自己的電腦撥接上網去抓取，大約
只能抓到1/3的內容，但是如果是透過別台機
器的撥接上網(一樣的撥接帳號，一樣的電話
線)連出去，卻可以成功的抓回來全部的內容
，也就是只要是連線的那台機器，就不能正確
的抓回某網站內容，請問這是啥原因呢？
如果是用自己的電腦撥接上網去抓取，大約
只能抓到1/3的內容，但是如果是透過別台機
器的撥接上網(一樣的撥接帳號，一樣的電話
線)連出去，卻可以成功的抓回來全部的內容
，也就是只要是連線的那台機器，就不能正確
的抓回某網站內容，請問這是啥原因呢？
如何自動開檔並做修改後再存檔(編號：8104)
各位先進好：
我有一個*.txt的檔案，想在VB中按個鈕就自動開檔，並且把第二行固定位置的一個數字改成0，再做存檔的動作（存成同樣的檔名），請問要用那個指令較簡單
謝謝
我有一個*.txt的檔案，想在VB中按個鈕就自動開檔，並且把第二行固定位置的一個數字改成0，再做存檔的動作（存成同樣的檔名），請問要用那個指令較簡單
謝謝
Screen Saver Maker bug一覽(11/30)(編號：8100)
對這個程式有興趣的人可以試試如何解決這個bug
已知bug
1.直接雙擊SPM檔,開啟ScrMaker時
會因變數未清除而導至設定視窗在取得Activate狀態時不斷重覆載入設定檔
2.如果載入的圖型沒有辦法覆蓋到上一張圖檔的文字時
將導至下一張圖檔的文字覆蓋到原文字上
造成畫面混亂
目前正修正中....
已知bug
1.直接雙擊SPM檔,開啟ScrMaker時
會因變數未清除而導至設定視窗在取得Activate狀態時不斷重覆載入設定檔
2.如果載入的圖型沒有辦法覆蓋到上一張圖檔的文字時
將導至下一張圖檔的文字覆蓋到原文字上
造成畫面混亂
目前正修正中....
有粉多問題待解決..拜託ㄋ 高手ㄇ.......(編號：8098)
我是一位 visual basic 初學者.
在下我有幾ㄍ問題想請教一下
這些問題分別是 :
1. 如何改變 command 按鈕ㄉ forecolor 字體顏色 ..不是背景顏色喔...
2. 如何製作水波程式 ----即----一開啟form 便會有一ㄍ 類似水波ㄉ波正不停ㄉ波動著 .....還可以改變它ㄉ振幅 ..週期..波動速度等等..
3. FORM ㄉ形狀可以改變ㄇ.??? 不想要每次作成執行檔時..FORM 都是正正四方ㄉ..毫無變化性...且看起來單調....
4. 如何 FORMAT 硬碟ㄚ...是 FORMAT 喔..就是把電腦ㄉ資料全部=清光啦=..
不是 KILL FILE 喔....
5. 請問有那本書是專門介紹 DOS 進階ㄉ應用ㄉ...請告知 (1) 書名
(2) 出版社 (3) 價錢 (4) 何處可購得 (5) 內容ㄉ好壞 --不希望只是講一下廢話
6. 如何在 FORM 裡面插入 gif 檔ㄚ..動畫檔喔... 每次載入圖片時..都是不會動ㄉ圖..整體看起來就有一點無聊.不生動..
7. 如何使 DEL + CTRL + ALT ㄉ強制關閉程式 -----失效ㄚ.....
8. WINSOCK 到底是什ㄇㄚ...有啥用處ㄚ...千萬別叫我找書..因為就是找不到才問ㄉ嘛~~^_^~~~不然ㄉ話就請介紹哪一本書有在介紹WINSOCK ㄉ用途.....書ㄉ要求請看 QUESTION(5) 便知曉....
9. 如何製作一ㄍ立體3D 字.....可以利用某些按鈕或一些方式(click..mouse move....)..來觀看不同角度ㄉ=字=....例如從下面看4 這一ㄍ數...則看到ㄉ是 一 ...... 發揮你ㄉ空間概念吧....
PS 這不是作業..只是平時自己所累積ㄉ問題吧ㄋ....
所以拜託請教導一下..
如果你只會其中ㄉ幾ㄍ問題..也煩請告之.....最好是伊妹兒給我..直接附..專案群組...或者你可以=提示=如何去完成她.....
也可以留言在板上........
謝謝啦.....^_^........
在下我有幾ㄍ問題想請教一下
這些問題分別是 :
1. 如何改變 command 按鈕ㄉ forecolor 字體顏色 ..不是背景顏色喔...
2. 如何製作水波程式 ----即----一開啟form 便會有一ㄍ 類似水波ㄉ波正不停ㄉ波動著 .....還可以改變它ㄉ振幅 ..週期..波動速度等等..
3. FORM ㄉ形狀可以改變ㄇ.??? 不想要每次作成執行檔時..FORM 都是正正四方ㄉ..毫無變化性...且看起來單調....
4. 如何 FORMAT 硬碟ㄚ...是 FORMAT 喔..就是把電腦ㄉ資料全部=清光啦=..
不是 KILL FILE 喔....
5. 請問有那本書是專門介紹 DOS 進階ㄉ應用ㄉ...請告知 (1) 書名
(2) 出版社 (3) 價錢 (4) 何處可購得 (5) 內容ㄉ好壞 --不希望只是講一下廢話
6. 如何在 FORM 裡面插入 gif 檔ㄚ..動畫檔喔... 每次載入圖片時..都是不會動ㄉ圖..整體看起來就有一點無聊.不生動..
7. 如何使 DEL + CTRL + ALT ㄉ強制關閉程式 -----失效ㄚ.....
8. WINSOCK 到底是什ㄇㄚ...有啥用處ㄚ...千萬別叫我找書..因為就是找不到才問ㄉ嘛~~^_^~~~不然ㄉ話就請介紹哪一本書有在介紹WINSOCK ㄉ用途.....書ㄉ要求請看 QUESTION(5) 便知曉....
9. 如何製作一ㄍ立體3D 字.....可以利用某些按鈕或一些方式(click..mouse move....)..來觀看不同角度ㄉ=字=....例如從下面看4 這一ㄍ數...則看到ㄉ是 一 ...... 發揮你ㄉ空間概念吧....
PS 這不是作業..只是平時自己所累積ㄉ問題吧ㄋ....
所以拜託請教導一下..
如果你只會其中ㄉ幾ㄍ問題..也煩請告之.....最好是伊妹兒給我..直接附..專案群組...或者你可以=提示=如何去完成她.....
也可以留言在板上........
謝謝啦.....^_^........
可否建議一下有關統計圖表的物件哪兒找?(編號：8097)
Just as Title,I know the VB object cannot plot some complex chart.Do someone can suggest me where to find the object??I want to plot some statistic plot like Q-Q-plot,box-plot... Thanks!!Vicki
為什摸用 adodb 不能刪單獨一筆 而access2000 可以??(編號：8096)
' 新增 刪除 修改 按鍵
Private Sub TOOL_BUTTOM_Click(Index As Integer)
On Error GoTo aaa
Dim I As Integer
Dim A As Integer ' 計算單一筆記錄 有多少欄位
Dim FieldSize As Integer
Select Case Index
Case Is = 0 '新增
With RS
.AddNew
A = .Fields.Count
For I = 0 To (A - 1)
Select Case .Fields(I).Type
Case Is = adVarWChar '202 字串
FieldSize = .Fields.Item(I).DefinedSize
.Fields(I).Value = Space(FieldSize)
Case Is = adDouble ' 5 數字
.Fields(I).Value = 0
Case Is = adBoolean ' 11 邏輯
.Fields(I).Value = 0 'false
Case Is = adDate ' 7 日期/時間
.Fields(I).Value = "00:00:00"
Case Else
MsgBox ("型態補捉失敗!!")
End Select
Next
.Update
End With
Case Is = 1 '刪除
With RS '
.Delete adAffectCurrent
End With
RS.Update
End Select
Exit Sub
aaa:
If Err.Number = -2147467259 Then
MsgBox (Err.Description & "::" & Err.Source)
End I
Private Sub TOOL_BUTTOM_Click(Index As Integer)
On Error GoTo aaa
Dim I As Integer
Dim A As Integer ' 計算單一筆記錄 有多少欄位
Dim FieldSize As Integer
Select Case Index
Case Is = 0 '新增
With RS
.AddNew
A = .Fields.Count
For I = 0 To (A - 1)
Select Case .Fields(I).Type
Case Is = adVarWChar '202 字串
FieldSize = .Fields.Item(I).DefinedSize
.Fields(I).Value = Space(FieldSize)
Case Is = adDouble ' 5 數字
.Fields(I).Value = 0
Case Is = adBoolean ' 11 邏輯
.Fields(I).Value = 0 'false
Case Is = adDate ' 7 日期/時間
.Fields(I).Value = "00:00:00"
Case Else
MsgBox ("型態補捉失敗!!")
End Select
Next
.Update
End With
Case Is = 1 '刪除
With RS '
.Delete adAffectCurrent
End With
RS.Update
End Select
Exit Sub
aaa:
If Err.Number = -2147467259 Then
MsgBox (Err.Description & "::" & Err.Source)
End I
請問一下，如何在lost focus msflexgrid 之後，(編號：8095)
請問一下，如何在lost focus msflexgrid 之後，
還能把他的背景色留下來，
因為我想讓人家知道他們是在做那一筆資料的編輯！
還能把他的背景色留下來，
因為我想讓人家知道他們是在做那一筆資料的編輯！
SQL 之語法問題(編號：8093)
請問當我的日期欄位為空白時,vb 就show 出日期格式錯誤
資料庫之欄位已設為允許空字串.
語法如下:
vardate1 = Right(Mid(MaskEdBox1(1).Text, 1, 2) + 1911, 2) & "/" & Mid(MaskEdBox1(1).Text, 3, 2) & "/"
& Mid(MaskEdBox1(1).Text, 5, 2)
sqltext = "insert into 薪資資料(staff_no, staff_name, salary_date) values ('"& text1.text &"',
'"& text2.text &"', #"& vardate1 &"#)
cn.Execute sqltext, , adCmdText
請問各位高手,如何才能在日期欄位為空白時,能順利存入資料庫
資料庫之欄位已設為允許空字串.
語法如下:
vardate1 = Right(Mid(MaskEdBox1(1).Text, 1, 2) + 1911, 2) & "/" & Mid(MaskEdBox1(1).Text, 3, 2) & "/"
& Mid(MaskEdBox1(1).Text, 5, 2)
sqltext = "insert into 薪資資料(staff_no, staff_name, salary_date) values ('"& text1.text &"',
'"& text2.text &"', #"& vardate1 &"#)
cn.Execute sqltext, , adCmdText
請問各位高手,如何才能在日期欄位為空白時,能順利存入資料庫
sorry!請教一個簡單的問題(編號：8092)
請問一下各位大內高手,我現在寫了一支程式,Form已經有load一張圖片了,但我想讓使用者可自由更換圖片,且在下一次開啟時就是他自己設定的
那張,我應該如何寫呢?(程式已經封裝了!)
那張,我應該如何寫呢?(程式已經封裝了!)
誰可以幫我改一下這個東東？(編號：8091)
下面這個網頁程式碼有人可以幫我修改一下嗎？
第一：我在sql裡面已經把所有的會員都分級分好了，總共有三級，並留有一欄位是記錄分級的代碼。
第二：我想要讓會員登錄至此網頁的時候根據sql裡的代碼而讓他有權限的留在這地方，無此權限的到令一個網頁，以此類推.....也就是根據sql裡的等級記錄而分配到各個網頁裡去，各位高手可以幫幫我，我需要怎麼樣改呢？
＜% name=request.form("username")
pass= request.form("password")
Set db = Server.CreateObject("ADODB.Connection")
db.Open "DSN=**;uid=sa;pwd=;database=****"
sql = "select * from **** where **** = '" & name & "'"
sql = sql & " and ** = '" & pass & "'"
set rs = db.Execute(sql)
if not rs.eof then %＞
＜html＞
＜head＞
＜title＞新網頁1＜/title＞
＜/head＞
＜body＞
＜form method="POST" action="test2.asp"＞
＜p＞＜input type="hidden" name="name1" value="＜% =name %＞"＞ ＜/p＞
＜table width="75%" border="1" cellspacing="0" cellpadding="0" align="center"＞
＜tr bordercolor="#BEDEBE"＞
＜td colspan="2" height="30" bgcolor="#BEDEBE"＞ ＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE" bgcolor="#E8FFE8"＞
＜td width="25%"＞主旨: ＜/td＞
＜td width="75%"＞
＜input type="text" name="sub" size="60"＞
＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE" bgcolor="#E8FFE8"＞
＜td width="25%" valign="top"＞內容:＜/td＞
＜td width="75%"＞
＜textarea rows="16" name="body1" cols="66"＞＜/textarea＞
＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE" bgcolor="#E8FFE8"＞
＜td width="25%"＞有效日期:＜/td＞
＜td width="75%"＞
＜input type="text" name="date1" size="20" value=＜%=date+15%＞＞
＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE" bgcolor="#E8FFE8"＞
＜td width="25%"＞ ＜/td＞
＜td width="75%"＞ ＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE" bgcolor="#E8FFE8"＞
＜td width="25%"＞ ＜/td＞
＜td width="75%"＞
＜input type="submit" value="**" name="B1"＞
＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE"＞
＜td colspan="2" height="30" bgcolor="#BEDEBE"＞ ＜/td＞
＜/tr＞
＜/table＞
＜p＞ ＜/p＞
＜p＞ ＜/p＞
＜p＞ ＜/p＞
＜p＞ ＜/p＞
＜/form＞
＜/body＞
＜/html＞
＜% else
response.write " ******"
end if
%＞
第一：我在sql裡面已經把所有的會員都分級分好了，總共有三級，並留有一欄位是記錄分級的代碼。
第二：我想要讓會員登錄至此網頁的時候根據sql裡的代碼而讓他有權限的留在這地方，無此權限的到令一個網頁，以此類推.....也就是根據sql裡的等級記錄而分配到各個網頁裡去，各位高手可以幫幫我，我需要怎麼樣改呢？
＜% name=request.form("username")
pass= request.form("password")
Set db = Server.CreateObject("ADODB.Connection")
db.Open "DSN=**;uid=sa;pwd=;database=****"
sql = "select * from **** where **** = '" & name & "'"
sql = sql & " and ** = '" & pass & "'"
set rs = db.Execute(sql)
if not rs.eof then %＞
＜html＞
＜head＞
＜title＞新網頁1＜/title＞
＜/head＞
＜body＞
＜form method="POST" action="test2.asp"＞
＜p＞＜input type="hidden" name="name1" value="＜% =name %＞"＞ ＜/p＞
＜table width="75%" border="1" cellspacing="0" cellpadding="0" align="center"＞
＜tr bordercolor="#BEDEBE"＞
＜td colspan="2" height="30" bgcolor="#BEDEBE"＞ ＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE" bgcolor="#E8FFE8"＞
＜td width="25%"＞主旨: ＜/td＞
＜td width="75%"＞
＜input type="text" name="sub" size="60"＞
＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE" bgcolor="#E8FFE8"＞
＜td width="25%" valign="top"＞內容:＜/td＞
＜td width="75%"＞
＜textarea rows="16" name="body1" cols="66"＞＜/textarea＞
＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE" bgcolor="#E8FFE8"＞
＜td width="25%"＞有效日期:＜/td＞
＜td width="75%"＞
＜input type="text" name="date1" size="20" value=＜%=date+15%＞＞
＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE" bgcolor="#E8FFE8"＞
＜td width="25%"＞ ＜/td＞
＜td width="75%"＞ ＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE" bgcolor="#E8FFE8"＞
＜td width="25%"＞ ＜/td＞
＜td width="75%"＞
＜input type="submit" value="**" name="B1"＞
＜/td＞
＜/tr＞
＜tr bordercolor="#BEDEBE"＞
＜td colspan="2" height="30" bgcolor="#BEDEBE"＞ ＜/td＞
＜/tr＞
＜/table＞
＜p＞ ＜/p＞
＜p＞ ＜/p＞
＜p＞ ＜/p＞
＜p＞ ＜/p＞
＜/form＞
＜/body＞
＜/html＞
＜% else
response.write " ******"
end if
%＞
如何做到共用桌面???(編號：8086)
就像多台螢幕接一台主機那樣,使用者在任一台pc的動作其他人的動作可以看得到,像Microsoft Netmeeting共用桌面的功能, 目前想到的方法只有:固定一時間抓取螢幕畫面,然後丟給client(或讓client過來抓)
請問各位有其他的想法?或是有其他的control 可以用?
thanks for your time..
請問各位有其他的想法?或是有其他的control 可以用?
thanks for your time..
如何在win95上清楚顯示VB產生出來的函數圖形(編號：8083)
我是在NT 4.0上執行VB6程式，編譯出來的執行檔在NT上都很正常，唯獨在WIN95上執行，會有圖形顯示的問題，請問高手有沒有辦法解決??????
請高手另用E-MAIL 回覆我的問題，不勝感激!!!
請高手另用E-MAIL 回覆我的問題，不勝感激!!!
如何變更Excel中儲存格為百分比(編號：8082)
用VB直接開啟Excel檔案，我希望填入儲存格的數字顯示類別，必須為百分比(如: 0.09 --＞ 9%
本來以為先在原Excel檔改格式，再用VB填值即可，但是卻發生0.09--＞ $0.09 的情形，但在其他儲存格字形外觀設定，我也是用填值的方法都沒變，就只有百分比的設定被改變了，請問該如何解?
本來以為先在原Excel檔改格式，再用VB填值即可，但是卻發生0.09--＞ $0.09 的情形，但在其他儲存格字形外觀設定，我也是用填值的方法都沒變，就只有百分比的設定被改變了，請問該如何解?
DCOM Error 429(編號：8081)
一個怪異的現象請大家幫忙解決一下. 若 DCOM Server 以 A 帳戶啟動, DCOM Client 以 B 帳戶執行就會產生 Error 429; 但若 DCOM Client 以 A 帳戶執行則正常(在同一台電腦上).
Server 為 Win2000 Adv Server, DCOMCNFG [預設驗證等級]-連線.[預設模擬等級]-識別.[預設存取權]-Everyone,SYSTEM.[預設啟動權]-Everyone,SYSTEM,INTERACTIVE.[應用程式]-[驗證等級]-預設值.[安全性]-全部使用預設值.[身份識別]-啟動的使用者.
Client 為 Win2000 Pro or Win98, DCOMCNFG 未設定.跑出來的結果都是 Error 429.
DCOM Server 為 Stand alone ActiveX EXE 非 ActiveX Component.
Server 為 Win2000 Adv Server, DCOMCNFG [預設驗證等級]-連線.[預設模擬等級]-識別.[預設存取權]-Everyone,SYSTEM.[預設啟動權]-Everyone,SYSTEM,INTERACTIVE.[應用程式]-[驗證等級]-預設值.[安全性]-全部使用預設值.[身份識別]-啟動的使用者.
Client 為 Win2000 Pro or Win98, DCOMCNFG 未設定.跑出來的結果都是 Error 429.
DCOM Server 為 Stand alone ActiveX EXE 非 ActiveX Component.
關於ADO, 資料庫連結的問題(編號：8079)
開發環境: win2000, VB6, 資料庫為Access2000
我所用的ConnectString 為 "DBQ= MDBFilePath;Driver={Microsoft Access Driver (*.mdb)}" , Uid, Pwd
但程式在win9x的環境下卻無法執行, 請問該如何解決 ?
註: MDB檔有設定密碼
我所用的ConnectString 為 "DBQ= MDBFilePath;Driver={Microsoft Access Driver (*.mdb)}" , Uid, Pwd
但程式在win9x的環境下卻無法執行, 請問該如何解決 ?
註: MDB檔有設定密碼
User Control 中自訂屬性的問題(編號：8078)
想請問一下, 如果在 User Control 中用 Property Let 自訂一個屬性, 怎樣可以把這個屬性做到好像 Form 的 Picture 屬性一樣可以點下去就會開一個視窗問你 File 的位置?
我想請問高手們有關 CDONTS的用法(編號：8077)
我的OS為 Windows2000Perfessional, 在VB中已將
Microsoft CDO for NTS 1.2 Library
Microsoft CDO For Windows 2000 Library refereance進來
程式如下:
DIM SEO AS NEW CDONTS.NEWMAIL
SEO.SEND "FROM MAILADDRESS","TO MailAddress", "title"," 本文"
結果為 ActiveX Component Can't Create Object 的錯誤訊息,
各位高手們, 我漏了什麼嗎....
謝謝大家
Microsoft CDO for NTS 1.2 Library
Microsoft CDO For Windows 2000 Library refereance進來
程式如下:
DIM SEO AS NEW CDONTS.NEWMAIL
SEO.SEND "FROM MAILADDRESS","TO MailAddress", "title"," 本文"
結果為 ActiveX Component Can't Create Object 的錯誤訊息,
各位高手們, 我漏了什麼嗎....
謝謝大家
急救!!!(編號：8076)
不知是否有哪位高人可告知
使用ASP 存入資料後也能同時間觸動印表機 讓印表機同時做資料內容的列印。
開發環境VB Win2000 SQL 與 Access
或是類似的問題可用其他的軟體來處理
使用ASP 存入資料後也能同時間觸動印表機 讓印表機同時做資料內容的列印。
開發環境VB Win2000 SQL 與 Access
或是類似的問題可用其他的軟體來處理
如何用vb5.0偵測到modem正在使用中(編號：8074)
本人有兩台NT,用MODEM聯線
如何可偵測到modem正在使用中並自動中斷連線呢?
請問可否不用NT的DIAL UP 來聯線?又如何傳送LOGIN NAME 及
PASSWORD呢?
十分多謝!
如何可偵測到modem正在使用中並自動中斷連線呢?
請問可否不用NT的DIAL UP 來聯線?又如何傳送LOGIN NAME 及
PASSWORD呢?
十分多謝!
Package 不 work(編號：8073)
每次做完Package 都不work, 都要每次用VB 的CDROM install --
資料存取-- ADO, RDS & OLEDB provider 才能work
請問怎樣才可以把 (ADO, RDS & OLEDB provider) 放在 Package 中
資料存取-- ADO, RDS & OLEDB provider 才能work
請問怎樣才可以把 (ADO, RDS & OLEDB provider) 放在 Package 中
VB6 如何使用 Access 2000 的資料庫(編號：8072)
請問
1.需要下載什麼 VB6 才能使用 Access 2000 的資料庫
2.我的增益功能管理員內沒有 Source Code Control
要去哪下載 or 哪個軟體有, 怎麼安裝
thx.............. 大雄
1.需要下載什麼 VB6 才能使用 Access 2000 的資料庫
2.我的增益功能管理員內沒有 Source Code Control
要去哪下載 or 哪個軟體有, 怎麼安裝
thx.............. 大雄
************ VB 關聯資料庫的問題 ,救急:(編號：8071)
VB 關聯資料庫的問題 ,救急:
以下是我的程式,datPerson,datScore分別是學生佪人資料和成績資料的
Data Control,這段程式碼是可按toolbar上面的按鈕,分別在表單上顯示
學生全部資料的第一筆,上一筆,下一筆,最後一筆.
datPerson,datScore是以座號關聯.座號在datPerson是p_seatno欄位,
在datScore是s_seatno欄位.
程式執行發生的錯誤是 :
當按下一筆或上一筆,而碰到的資料是某學生只有個人資料,而無成績資料時,
再按下一筆或上一筆,則出現錯誤訊息 :
"This action was cancelled by an associated object"
單步偵錯,發現錯誤發生在^^^^^^^^^^^^^^^^那一行.
我增加已經mark起來的那幾行也沒用!
請問高手,這問題該如何解決 ?
萬分感激!!
chsu@mail.pagic.net
Private Sub tlbTool_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim sSeatNo As String
If datPerson.Recordset.RecordCount = 0 Then
Exit Sub
End If
Select Case Button.Description
Case "first"
datPerson.Recordset.MoveFirst
Case "previous"
datPerson.Recordset.MovePrevious
If datPerson.Recordset.BOF Then
datPerson.Recordset.MoveFirst
End If
Case "next"
datPerson.Recordset.MoveNext
If datPerson.Recordset.EOF Then
datPerson.Recordset.MoveLast
End If
Case "last"
datPerson.Recordset.MoveLast
End Select
txtNo = datPerson.Recordset("p_no")
txtSeatNo = datPerson.Recordset("p_seatno")
txtName = datPerson.Recordset("p_name")
cboSex.Text = datPerson.Recordset("p_sex")
sSeatNo = datPerson.Recordset("p_seatno")
If datScore.Recordset.RecordCount ＜＞ 0 Then
datScore.Recordset.FindFirst "s_seatno = '" + sSeatNo + "'"
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If Not datScore.Recordset.NoMatch Then
txt_S_SeatNo = datScore.Recordset("s_seatno")
txtChinese = datScore.Recordset("s_chinese")
txtEnglish = datScore.Recordset("s_english")
txtMath = datScore.Recordset("s_math")
txtTotal = datScore.Recordset("s_total")
Else
'datScore.Recordset.MoveFirst
'datScore.Recordset.MoveLast
'datScore.Refresh
txt_S_SeatNo = ""
txtChinese = ""
txtEnglish = ""
txtMath = ""
txtTotal = ""
End If
End If
End Sub
以下是我的程式,datPerson,datScore分別是學生佪人資料和成績資料的
Data Control,這段程式碼是可按toolbar上面的按鈕,分別在表單上顯示
學生全部資料的第一筆,上一筆,下一筆,最後一筆.
datPerson,datScore是以座號關聯.座號在datPerson是p_seatno欄位,
在datScore是s_seatno欄位.
程式執行發生的錯誤是 :
當按下一筆或上一筆,而碰到的資料是某學生只有個人資料,而無成績資料時,
再按下一筆或上一筆,則出現錯誤訊息 :
"This action was cancelled by an associated object"
單步偵錯,發現錯誤發生在^^^^^^^^^^^^^^^^那一行.
我增加已經mark起來的那幾行也沒用!
請問高手,這問題該如何解決 ?
萬分感激!!
chsu@mail.pagic.net
Private Sub tlbTool_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim sSeatNo As String
If datPerson.Recordset.RecordCount = 0 Then
Exit Sub
End If
Select Case Button.Description
Case "first"
datPerson.Recordset.MoveFirst
Case "previous"
datPerson.Recordset.MovePrevious
If datPerson.Recordset.BOF Then
datPerson.Recordset.MoveFirst
End If
Case "next"
datPerson.Recordset.MoveNext
If datPerson.Recordset.EOF Then
datPerson.Recordset.MoveLast
End If
Case "last"
datPerson.Recordset.MoveLast
End Select
txtNo = datPerson.Recordset("p_no")
txtSeatNo = datPerson.Recordset("p_seatno")
txtName = datPerson.Recordset("p_name")
cboSex.Text = datPerson.Recordset("p_sex")
sSeatNo = datPerson.Recordset("p_seatno")
If datScore.Recordset.RecordCount ＜＞ 0 Then
datScore.Recordset.FindFirst "s_seatno = '" + sSeatNo + "'"
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If Not datScore.Recordset.NoMatch Then
txt_S_SeatNo = datScore.Recordset("s_seatno")
txtChinese = datScore.Recordset("s_chinese")
txtEnglish = datScore.Recordset("s_english")
txtMath = datScore.Recordset("s_math")
txtTotal = datScore.Recordset("s_total")
Else
'datScore.Recordset.MoveFirst
'datScore.Recordset.MoveLast
'datScore.Refresh
txt_S_SeatNo = ""
txtChinese = ""
txtEnglish = ""
txtMath = ""
txtTotal = ""
End If
End If
End Sub
VB不能同時控制8255卡和rs232嗎 救救我吧(編號：8070)
請問一下
我用vb 控制 8255卡 (是利用Inpout32.dll)
但是執行程式後
就不能用 rs232 來傳送字元 或接收字元ㄝ
不知道是哪出錯啦
是相衝嗎
還是哪裡出錯啦
救救我吧
我用vb 控制 8255卡 (是利用Inpout32.dll)
但是執行程式後
就不能用 rs232 來傳送字元 或接收字元ㄝ
不知道是哪出錯啦
是相衝嗎
還是哪裡出錯啦
救救我吧
about Visual Studio 7.0..(編號：8069)
今天去補鐵站上逛逛~~
發現Visual Studio 7.0 Enterprise已經有了..
至於要不要買盜版!!
請各為朋友自行考慮~~
小弟只是提供有這項資訊~~^_^~~
發現Visual Studio 7.0 Enterprise已經有了..
至於要不要買盜版!!
請各為朋友自行考慮~~
小弟只是提供有這項資訊~~^_^~~
如何複製(編號：8067)
請問如何寫vb code--- 複製某folder裡的所有檔案
eg. source files : c:\file\*.*
target folder : d:\file謝謝
eg. source files : c:\file\*.*
target folder : d:\file謝謝
讀取文字檔時的半形及全形問題(編號：8064)
請問前輩, 我讀取文字檔內容如括弧內(0011_中__華), 其中的_是空白, 當我讀取一行文字(aline)後, 取出文字, a=mid(aline,1,4),b=mid(aline,5,7)時, a=0011, 但取出b時, 中文字已不被視為二個字元, 而被視為一個字元, 一般中文都是二個字元, 但VB把它視為一個字元, 請問如何做才可以把中文字視為二個字元, 方便mid()的使用呢.謝謝
緊急問題, 請求各方高手支援(關於 Data Report 列印的資料無法自(編號：8063)
請問 Data Report 列印的來源如果是 Data Environment, 那 Command 物件屬性的資料來源是否一定必須是 Table, 如果是的話, 那如果我的程式因為必須提供使用者查詢, 是否必須每次查詢後的資料都必須要寫到表格, 然後再利用 Data Report 列印呢?
目前我的做法也是如此, 但是我發現如果使用者列印完第一次的資料後, 當重新查詢新的資料時, 然後再列印, Data Report 竟然還是印出第一次的資料, 請問這是什麼問題? 是否有什麼辦法可以解決呢?
請幫幫我吧, 因為我急著要交件? 拜託拜託 !!!
目前我的做法也是如此, 但是我發現如果使用者列印完第一次的資料後, 當重新查詢新的資料時, 然後再列印, Data Report 竟然還是印出第一次的資料, 請問這是什麼問題? 是否有什麼辦法可以解決呢?
請幫幫我吧, 因為我急著要交件? 拜託拜託 !!!
Windows 2000的主机名稱能不能改成IP的型態(編號：8062)
我在Windows NT上可以改主机名稱,改成IP的型態
可是在Windows 2000就不行.
因為我寫了一支DCOM的服務程式,
在製作散發程式時,必須指定ip位置.
Server和Client是跨網域的,
無法使用主机名稱找到Server.
所以要用TCP/IP的協定．
請問諸位高手都是如何決解這樣頭痛問題??
謝謝!!
可是在Windows 2000就不行.
因為我寫了一支DCOM的服務程式,
在製作散發程式時,必須指定ip位置.
Server和Client是跨網域的,
無法使用主机名稱找到Server.
所以要用TCP/IP的協定．
請問諸位高手都是如何決解這樣頭痛問題??
謝謝!!
在SQL Sever 7.0 中如何在特定時間自動啟動一個Stored Procedure(編號：8061)
如標題
由於系統特殊需要, 所以想請問各位高手是否有碰過此問題.
如果有的話, 你們又是如何解決的呢?
方便的話, 麻煩請告知.
謝謝.
由於系統特殊需要, 所以想請問各位高手是否有碰過此問題.
如果有的話, 你們又是如何解決的呢?
方便的話, 麻煩請告知.
謝謝.
請問?DataGrid無法顯示Access 2000的資料?(編號：8057)
我已經在程式中把AdoCn.ConnectionString設為:
PROVIDER=Microsoft,Jet.OLEDB.4.0
可是當我:
Set AdoRs = New ADODB.Recordset
With AdoRs
.ActiveConnection = AdoCn
.Source = "myTableName"
.LockType = adLockOptimistic
.CursorType = adOpenStatic
.Open
End With
set DataGrid1.DataSource = AdoRs
DataGrid1卻無法顯示資料?我大約半年沒寫資料庫了!
一定是忘了什么,請幫我把腦袋里的記憶找回來!謝謝!!!
PROVIDER=Microsoft,Jet.OLEDB.4.0
可是當我:
Set AdoRs = New ADODB.Recordset
With AdoRs
.ActiveConnection = AdoCn
.Source = "myTableName"
.LockType = adLockOptimistic
.CursorType = adOpenStatic
.Open
End With
set DataGrid1.DataSource = AdoRs
DataGrid1卻無法顯示資料?我大約半年沒寫資料庫了!
一定是忘了什么,請幫我把腦袋里的記憶找回來!謝謝!!!
請問在以 DataGrid 顯示資料，不知是否可以能以某一行(COL)之資(編號：8055)
我以Access 2000之.mdb 之資料表以設定某field當索引，但以 DataGrid 顯示時卻以輸入順序顯示，無法按該field之值排序顯示；是否可請各位先進解答．
ComboBox 控制項(編號：8054)
請問ComboBox 控制項中,其若含有10個項目,若我選了其中一個項目
,我要如何知道該項目為ComboBox 控制項內涵項目中的第幾個Index
並將該項目內容更改.(例如:我選了"JEFF"項,而我想將其更改為"Chen"),請高手指教,謝謝!!
,我要如何知道該項目為ComboBox 控制項內涵項目中的第幾個Index
並將該項目內容更改.(例如:我選了"JEFF"項,而我想將其更改為"Chen"),請高手指教,謝謝!!
機碼 RunServices 的問題?(編號：8051)
為什麼機碼 RunServices 在 Windows2000/NT 無效? 有何解決的方法? 即在 user 登入之前就已經執行了!! 謝謝!
請幫忙偵錯一下(編號：8050)
設計好程式編譯成執行檔後，在另一台沒有安裝VB6.0的機器上執行時出現下列錯誤，請知道的前輩告訴我問題在哪裡，謝謝。
執行階段錯誤'713'
物件類別沒有註冊
尋找具有下列CLSID的物件：{00000010-0000-0010-8000-00AA006D2EA4}
執行階段錯誤'713'
物件類別沒有註冊
尋找具有下列CLSID的物件：{00000010-0000-0010-8000-00AA006D2EA4}
如何讀取萬年曆後一次傳回一年份的星期幾(編號：8049)
如題，一個是要讀取系統的萬年曆，之後可以手動選擇該年的休假日（如星期六或星期日）；另一種是必須自己寫萬年曆之後，再做上述的第二要求，均需要輸出到Access，格式為日期與假日名稱，使用VB6.0
如何由MSCOM接收一連續資料並用圖表顯示大小(編號：8048)
機器RS232之Format:
[SYN][ID ][DATA#1][DATA#2][DATA#3][ Checksum ]
=[16H][23H][DATA#1 ~~ DATA#3][ID+DATA#1+...DATA3]
MSComm1.setting="38400,n,8,1"
DATA# Bit Parameter Range Binary Range#
#1 0 - 7 H_pressure -10...120cmH2O 0...950
#2 0 - 7 L_pressure
#3 0 - 4 Alarm_Point 0...1
[SYN][ID ][DATA#1][DATA#2][DATA#3][ Checksum ]
=[16H][23H][DATA#1 ~~ DATA#3][ID+DATA#1+...DATA3]
MSComm1.setting="38400,n,8,1"
DATA# Bit Parameter Range Binary Range#
#1 0 - 7 H_pressure -10...120cmH2O 0...950
#2 0 - 7 L_pressure
#3 0 - 4 Alarm_Point 0...1
請問截取字串問題?(編號：8047)
有一field是由二個變數相加取10位而來
但此兩變數中英文參雜,所以第10位有可能是
取到中文字的一半,那這樣存到sql會有問題
請問有無方法解決?若第10位是中文字的一半
那就取9位就好了!
我的code如下:
astr=StrConv(LeftB(StrConv(Trim(a1), vbFromUnicode) &
StrConv(Trim(a2), vbFromUnicode), 10), vbUnicode)
謝謝!!
但此兩變數中英文參雜,所以第10位有可能是
取到中文字的一半,那這樣存到sql會有問題
請問有無方法解決?若第10位是中文字的一半
那就取9位就好了!
我的code如下:
astr=StrConv(LeftB(StrConv(Trim(a1), vbFromUnicode) &
StrConv(Trim(a2), vbFromUnicode), 10), vbUnicode)
謝謝!!
vb如何寫byte到檔案?(編號：8046)
請教vb如何開啟一個檔案寫byte資料或asc的string到檔案中才不會被unicode處理(example:寫255,216的asc碼到檔案中會變成255,0)
語音數據機中，如何將PC音效送成電話訊號呢？(編號：8044)
各位先進：
目前小弟有個構想，就是撥電話給別人，當對方拿起話筒後，就將PC音效放給對方聽，但不知道如何將PC音效放到電話線路上呢？
目前小弟利用VB6中的MScomm進行通訊控制！
還望不吝指正
目前小弟有個構想，就是撥電話給別人，當對方拿起話筒後，就將PC音效放給對方聽，但不知道如何將PC音效放到電話線路上呢？
目前小弟利用VB6中的MScomm進行通訊控制！
還望不吝指正
什麼是*.tlb??(編號：8043)
內容如下: // Generated .IDL file (by the OLE/COM Object Viewer)
//
// typelib filename: ＜could not determine filename＞
[
uuid(068B07FF-718C-11D0-8B1A-00A0C91BC90E),
version(1.0),
helpstring("NmManager 2.0 Type Library")
]
library NmManager
{
// TLib : // Forward declare all types defined in this typelib
interface INmManager;
interface IUnknown;
interface INmSysInfo;
interface INmConference;
interface INmMember;
interface IEnumNmMember;
interface IEnumNmChannel;
interface INmChannel;
interface INmChannelData;
interface IEnumNmConference;
interface IEnumNmCall;
interface INmCall;
: : 在VC裡面可以include的, 那在vb裡面要如何使用?? thankx for your help!
//
// typelib filename: ＜could not determine filename＞
[
uuid(068B07FF-718C-11D0-8B1A-00A0C91BC90E),
version(1.0),
helpstring("NmManager 2.0 Type Library")
]
library NmManager
{
// TLib : // Forward declare all types defined in this typelib
interface INmManager;
interface IUnknown;
interface INmSysInfo;
interface INmConference;
interface INmMember;
interface IEnumNmMember;
interface IEnumNmChannel;
interface INmChannel;
interface INmChannelData;
interface IEnumNmConference;
interface IEnumNmCall;
interface INmCall;
: : 在VC裡面可以include的, 那在vb裡面要如何使用?? thankx for your help!
How to use the MSChart function in VB6.0?(編號：8042)
How to use the MSChart function in VB6.0?
and also how to only change one axis in LOG scale?
how to put the data points in the chart with a two dimension array?
and also how to only change one axis in LOG scale?
how to put the data points in the chart with a two dimension array?
如何列出所有的公因數(編號：8040)
請問在這個程式碼中如何加入列出所有公因數的程式碼
text1,text2 = 輸入的值
Private Sub Command1_Click()
Dim max, min, tmp As Long
If Text1 ＞ Text2 Then
max = Text1: min = Text2
Else
max = Text2: min = Text1
End If
Do
tmp = min
min = max - (Int(max / min) * min)
max = tmp
Loop Until min = o
xmin = max
xmax = Text1 * (Text2 / xmin)
Label5 = xmin
Label6 = xmax
End Sub
text1,text2 = 輸入的值
Private Sub Command1_Click()
Dim max, min, tmp As Long
If Text1 ＞ Text2 Then
max = Text1: min = Text2
Else
max = Text2: min = Text1
End If
Do
tmp = min
min = max - (Int(max / min) * min)
max = tmp
Loop Until min = o
xmin = max
xmax = Text1 * (Text2 / xmin)
Label5 = xmin
Label6 = xmax
End Sub
元件詿冊檢查(編號：8034)
有時會發生因為元件在電腦版本不同or 很多很多奇奇怪怪的原因
導致偶可愛的程式不能run
現在小弟想做個前導程式~~例如檢查Winsock Inet等元件是否己經
有詿冊,不知該從何下手 ?
by Peter ^_^
導致偶可愛的程式不能run
現在小弟想做個前導程式~~例如檢查Winsock Inet等元件是否己經
有詿冊,不知該從何下手 ?
by Peter ^_^
Internet上傳送資料用winsock適合嗎?(編號：8033)
請教,我目前需要使用vb完成可以和外縣市(遠方)之server主機
完成固定時間就需自動傳送資料的系統,請問使用winsock元件是否
適合,若不是,可有更好的方式嗎?謝謝
完成固定時間就需自動傳送資料的系統,請問使用winsock元件是否
適合,若不是,可有更好的方式嗎?謝謝
SQL問題???(編號：8032)
有一資料表內容為 訂單號碼 客戶編號 訂貨日期 內容......
01 001 89/1/1 .....
02 001 89/4/1 .....
03 002 89/3/1 .....
04 002 89/9/1 .....
05 003 89/1/1 .....
06 003 89/7/1 .....
: : :
: : :
如果現在是11月請問如何要求出四個月以上沒訂貨的客戶代號呢?
(用SQL的語法)
謝謝~~~
01 001 89/1/1 .....
02 001 89/4/1 .....
03 002 89/3/1 .....
04 002 89/9/1 .....
05 003 89/1/1 .....
06 003 89/7/1 .....
: : :
: : :
如果現在是11月請問如何要求出四個月以上沒訂貨的客戶代號呢?
(用SQL的語法)
謝謝~~~
VB如何截取目前營幕畫面為圖檔 ? ~急(編號：8030)
請問:
1.VB如何截取目前營幕畫面為圖檔 ?
2.營幕抓取程式快速鍵為 F12(Background run) ,VB如何
在不人按下F12 而利用程式去觸發F12來
啟動營幕抓取程式 ?
謝謝
1.VB如何截取目前營幕畫面為圖檔 ?
2.營幕抓取程式快速鍵為 F12(Background run) ,VB如何
在不人按下F12 而利用程式去觸發F12來
啟動營幕抓取程式 ?
謝謝
一直想不通的SQL問題????(編號：8029)
有一資料表內容為 訂單號碼 客戶編號 訂貨日期 內容......
01 001 89/1/1 .....
02 001 89/4/1 .....
03 002 89/3/1 .....
04 002 89/9/1 .....
05 003 89/1/1 .....
06 003 89/7/1 .....
: : :
: : :
如果現在是11月請問如何要求出四個以上沒訂貨的客戶代號呢?
(用SQL的語法)
謝謝~~~
01 001 89/1/1 .....
02 001 89/4/1 .....
03 002 89/3/1 .....
04 002 89/9/1 .....
05 003 89/1/1 .....
06 003 89/7/1 .....
: : :
: : :
如果現在是11月請問如何要求出四個以上沒訂貨的客戶代號呢?
(用SQL的語法)
謝謝~~~
請問 sql 語法 急急急！(編號：8028)
例如
1表格有書號 書名
2表格有書號 出版商
共同 key 是書號
結果：
書號 書名 出版商
0001 vb6.0 松崗
0002 sql 碁峰
0003 vc6.0
就算vc6.0這本書沒有值也能show出來？！了解？
1表格有書號 書名
2表格有書號 出版商
共同 key 是書號
結果：
書號 書名 出版商
0001 vb6.0 松崗
0002 sql 碁峰
0003 vc6.0
就算vc6.0這本書沒有值也能show出來？！了解？
如何製作PopupMenu(編號：8027)
如果不使用Menu Editor,請問一下如何製作PopupMenu
使用Menu Editor所製作的PopupMenu必須是其中的Menu已經定義
若要將各個不同的項目組合,則該如何製作
使用Menu Editor所製作的PopupMenu必須是其中的Menu已經定義
若要將各個不同的項目組合,則該如何製作
winnt會有AciveX Component can't create object(編號：8026)
http://www.vbaccelerator.com/內的ActiveX檔在 WINNT 下執行會有錯誤 如下cNewMenuDLL
連結父子表單的問題(編號：8025)
我己經連好了..是因為資料庫命名的問題.
謝謝你們
小野貓.daniel
但是我可不可以在發問一個問題
(1)如果制作一個表單,然後連結父子表單利用data environment去連結.
那我利用adodc去做新增.刪除.修改.查詢如何去新增二個不同的資料表資料
(2)如何在表單隱藏時間不秀出來.因為在資料庫我也這個欄位.但是目前表單不需要秀出這一個資料..但是如果不理它跳過去.又會無法做新增的一些功能..
拜訪你們幫幫忙哦
謝謝你們
小野貓.daniel
但是我可不可以在發問一個問題
(1)如果制作一個表單,然後連結父子表單利用data environment去連結.
那我利用adodc去做新增.刪除.修改.查詢如何去新增二個不同的資料表資料
(2)如何在表單隱藏時間不秀出來.因為在資料庫我也這個欄位.但是目前表單不需要秀出這一個資料..但是如果不理它跳過去.又會無法做新增的一些功能..
拜訪你們幫幫忙哦
如註冊 msado15.dll 在 win98 ?(編號：8024)
請問我用 regsvr32.exe 或封裝精靈
都無法把 msado15.dll (ver.2.504403.9)
註冊到 win98, 請問怎麼辦 ???
都無法把 msado15.dll (ver.2.504403.9)
註冊到 win98, 請問怎麼辦 ???
遇到棘手問題[vb開發的程式遇到AMD K2-400] 就當機不能RUN(編號：8021)
請教高手
遇到棘手問題
[vb5.0開發的程式(有資料庫)遇到AMD K2-400] 就當機不能RUN
情形是醬子---＞
AUTORUN執行註冊動作後出現EXPLOR.exe 錯誤then 當機
且遇到不只一台AMD主機板不能正常執行VB5.0程式
是否再執行前我該做什麼動作可以避免類似的問題
如果你遇到過相同問題的高手請指點一下...^^!
HELP!
遇到棘手問題
[vb5.0開發的程式(有資料庫)遇到AMD K2-400] 就當機不能RUN
情形是醬子---＞
AUTORUN執行註冊動作後出現EXPLOR.exe 錯誤then 當機
且遇到不只一台AMD主機板不能正常執行VB5.0程式
是否再執行前我該做什麼動作可以避免類似的問題
如果你遇到過相同問題的高手請指點一下...^^!
HELP!
我想 send 文字去另一個視窗(編號：8020)
我想寫一個程式可以把字串傳送到另一個程式上, 例如:
在 vb program 中打了一些字, 要傳到正在使用的 word 視窗內
可以怎樣做? 有沒有類似的 example?
在 vb program 中打了一些字, 要傳到正在使用的 word 視窗內
可以怎樣做? 有沒有類似的 example?
INET的下載(編號：8019)
請教大家 inet ftp get 一個檔案,會被鎖住,
要如何解開呢？
我又用URL的方式去GET
就是不在設計階段指定URL，而在程式中才給
這樣又好了。
是不是我的設定有問題，或者我開怎麼用？
謝謝
要如何解開呢？
我又用URL的方式去GET
就是不在設計階段指定URL，而在程式中才給
這樣又好了。
是不是我的設定有問題，或者我開怎麼用？
謝謝
如何取得Dtat Report 中Text Box 的值(我的DataReport 使用ADODB(編號：8017)
再一次謝謝SPENCER YANG解危,這是我第二次問同樣的問題,就是我的程式是使用ADODB來連結資料庫,DATA REPORT也是使用ADODB來連結資料,但在DataReport 之設計上,有一項必須擷取Text Box的值,作運算,故請是SPENCER YANG,或各位VB武林高手如知道解答,請解救在下吧.
DATAREPORT一問(編號：8016)
各位,
小弟有兩個問題,請各位高手幫忙...
1)在REPORT中第二頁開始,每一頁都印上一段文字, 有何辨法?
2)如何把一個LABEL永遠顥示在A4紙的底部固定位置(如固定在離紙張底部10CM處),因為在此REPORT中有DETAIL SECTION,故資料筆數會直接影響上述LABEL之位置.
KEITH
小弟有兩個問題,請各位高手幫忙...
1)在REPORT中第二頁開始,每一頁都印上一段文字, 有何辨法?
2)如何把一個LABEL永遠顥示在A4紙的底部固定位置(如固定在離紙張底部10CM處),因為在此REPORT中有DETAIL SECTION,故資料筆數會直接影響上述LABEL之位置.
KEITH
請教兩個Crystal Report的問題(已查過全文)(編號：8015)
請問要如何使用Crystal Report來開啟一個含有密碼的Access 2000資料庫呢.!?..查全文的結果,有人提到要使用 報表物件名.Password=Chr(10) & Password,可是我的報表物件卻沒有Password這個屬性,且我用Object Browser去查看去也只找到了 CRAXDRT的ExportOptions的ExchangePassword 和 CRAXDDT的ExportOptions的ODBCDataSourcePassword,請問我該如何做呢.!?
第二個問題是,我使用CrystalReport1.DataBase.SetDataSource可以指定一個Recordset給CrystalReport報表物件,但是如果今天我所設計的報表不止一個Table且有互相關聯,請問我該如何做呢....謝謝
第二個問題是,我使用CrystalReport1.DataBase.SetDataSource可以指定一個Recordset給CrystalReport報表物件,但是如果今天我所設計的報表不止一個Table且有互相關聯,請問我該如何做呢....謝謝
DataGrid儲存格的index(編號：8014)
有哪一位善心人仕可以幫忙解解我的小問題呀?!請問我必須如何才能知道滑鼠點選DataGrid儲存格的位置，及儲存格中的資料??.......先謝謝您啦
我用MSComm時，如何get event ? [Help ~_!](編號：8013)
我用MSComm時，
會有data從com1入來
我用time count住便可get send 入來的data..
but MSComm 本身有此event嗎?
and...MSComm1_oncomm 是否用來check error 的
因此event只在open port 是觸動，
是否我來set好呢?睇唔明個MSDN
會有data從com1入來
我用time count住便可get send 入來的data..
but MSComm 本身有此event嗎?
and...MSComm1_oncomm 是否用來check error 的
因此event只在open port 是觸動，
是否我來set好呢?睇唔明個MSDN
如何在自己的程式中把 test.exe 及 test1.exe 轉做 test.dat, 之(編號：8012)
如何在自己的程式中把 test.exe 及 test1.exe 轉做 test.dat, 之後亦可把 test.dat 還原做 test.exe 及 test1.exe?
請問有辦法用VB讀取影像嗎?(編號：8006)
最近我們學校正要專題制作請問有辦法利用vb程式讀取input之影像呢?或是可以用其他程式比較好協寫的?有高手能馬上回信到我的信箱裡嗎?因為我們這組進度落後蠻多的拜託了各位(kitty0314@kimo.com.tw)
ASP如何判斷USER在INTERNET EXPLORER按下了那些功能鍵?(編號：8005)
請問ASP如何判斷USER在INTERNET EXPLORER按下了那些功能鍵呢?
如"上一頁"、"下一頁" JAVA用HISTORY.GO那VBS呢?是用那一個函數呢?
如"上一頁"、"下一頁" JAVA用HISTORY.GO那VBS呢?是用那一個函數呢?
Access的資料表轉成SQL(編號：7999)
Failed to transfer 1 table(s)
Double Click on the error row to get a detailed description of the error
請問為何會出現此訊息?如何解決?
麻煩請盡速告知,謝謝!
Double Click on the error row to get a detailed description of the error
請問為何會出現此訊息?如何解決?
麻煩請盡速告知,謝謝!
如何用VB發送電子報(編號：7994)
我想用vb寫一個從SQL資料庫找取USER MAIL來發送電子報的code
但是不知道該如何撰寫，請問可以建議我有那些書籍是
有詳細記載的嗎？很急，希望您能為我解答，謝謝！！
但是不知道該如何撰寫，請問可以建議我有那些書籍是
有詳細記載的嗎？很急，希望您能為我解答，謝謝！！
crystal report(編號：7993)
VB6.0 SP3
我用crystal report 7.0 中 OLEDB連接SQL SERVER,我想改SERVER NAME ,不知要用那一個屬性! 謝謝!
我用crystal report 7.0 中 OLEDB連接SQL SERVER,我想改SERVER NAME ,不知要用那一個屬性! 謝謝!
怎樣除錯(編號：7988)
對不起，問個笨問題
如果我要把e槽中的6個*.txt檔換成*.ct檔(1.txt改成1.ct，2.txt改成2.ct，3.txt改成3.ct，.....，6.txt改成6.ct， )
下面的程式為什麼不能RUN，要怎樣改比較簡單
Dim OldName, NewName
Dim j As Integer
----------------------------------------------
Private Sub Command1_Click()
For j = 1 To 6
OldName = "e:\j.txt"
NewName = "e:\j.ct"
Name OldName As NewName
Next j
End Sub
如果我要把e槽中的6個*.txt檔換成*.ct檔(1.txt改成1.ct，2.txt改成2.ct，3.txt改成3.ct，.....，6.txt改成6.ct， )
下面的程式為什麼不能RUN，要怎樣改比較簡單
Dim OldName, NewName
Dim j As Integer
----------------------------------------------
Private Sub Command1_Click()
For j = 1 To 6
OldName = "e:\j.txt"
NewName = "e:\j.ct"
Name OldName As NewName
Next j
End Sub
Dump memory to hard(編號：7985)
win2000某次關閉 vb6.0 後出現
Dump memory to hard(好像是這個訊息, 無法中斷)
然後自動重新開機,
並在 C: 根目錄下出現hiberfil.sys檔案, 用光了硬碟的空間...
這個檔有 255mb 之大, 刪不掉(訊息:資源分享違規, so無法刪除)...
其實是有方法將她移除的, 但害怕造成系統損壞,
請問她是做什麼用的... 而且他好像跟vb沒有很大關係
Dump memory to hard(好像是這個訊息, 無法中斷)
然後自動重新開機,
並在 C: 根目錄下出現hiberfil.sys檔案, 用光了硬碟的空間...
這個檔有 255mb 之大, 刪不掉(訊息:資源分享違規, so無法刪除)...
其實是有方法將她移除的, 但害怕造成系統損壞,
請問她是做什麼用的... 而且他好像跟vb沒有很大關係
如何改一連續的檔名(編號：7984)
Q：有一組連續的檔案（約400個），檔案格式為 *.* 其中副檔名是連續的 ex: i143.1 i144.2 i145.3 i146.4 i147.5 ......
要把它們改成 1.ct 2.ct 3.ct 4.ct 5.ct ......
就是說改完後的檔案名稱主檔名是原先的副檔名，而新的副檔名是.ct，請問先進，我要用那個指令
謝謝
再三感謝
richard@ms32.url.com.tw
richard@mail.bme.ncku.edu.tw
要把它們改成 1.ct 2.ct 3.ct 4.ct 5.ct ......
就是說改完後的檔案名稱主檔名是原先的副檔名，而新的副檔名是.ct，請問先進，我要用那個指令
謝謝
再三感謝
richard@ms32.url.com.tw
richard@mail.bme.ncku.edu.tw
qbasic 如何做出在 ms-dos 下 不啟動 中文系統就能看到中文 ㄉ程(編號：7982)
因為我在設計時 遇到一個問題就是
打入
screen 12
print "這是中文"
卻顯示亂碼
但是我看到別人ㄉ程式 卻可以顯示中文
所以有人知道ㄉ請 e-mail 給我好ㄇ
suo522@pcmail.com.tw
打入
screen 12
print "這是中文"
卻顯示亂碼
但是我看到別人ㄉ程式 卻可以顯示中文
所以有人知道ㄉ請 e-mail 給我好ㄇ
suo522@pcmail.com.tw
qbasic 如何做出在 ms-dos 下 不啟動 中文系統就能看到中文 ㄉ程(編號：7981)
因為我在設計時 遇到一個問題就是
打入
screen 12
print "這是中文"
卻顯示亂碼
但是我看到別人ㄉ程式 卻可以顯示中文
所以有人知道ㄉ請 e-mail 給我好ㄇ
suo522@pcmail.com.tw
打入
screen 12
print "這是中文"
卻顯示亂碼
但是我看到別人ㄉ程式 卻可以顯示中文
所以有人知道ㄉ請 e-mail 給我好ㄇ
suo522@pcmail.com.tw
請問誰能將這個程式寫出~?(完整的哦)(編號：7978)
設計一個程式(從鍵盤輸入一英文句子，然後統計該句子內英文
單字重覆出現的頻率(次數)，大小寫不分、複合字算一字。
EX: 若輸入
You can fool all of the people. Some of the time and some of the
people all of the time , but not all of the people all of the time.
則輸出
you:1
can:1
fool:1
all:4
of:6
以下類推.這個題目我覺得好難，我們班只有一個人寫得出來而已……有誰能完整地將它寫出來嗎???
單字重覆出現的頻率(次數)，大小寫不分、複合字算一字。
EX: 若輸入
You can fool all of the people. Some of the time and some of the
people all of the time , but not all of the people all of the time.
則輸出
you:1
can:1
fool:1
all:4
of:6
以下類推.這個題目我覺得好難，我們班只有一個人寫得出來而已……有誰能完整地將它寫出來嗎???
請問資料錄的問題(編號：7974)
DataControl控制項有個屬性 -- RecordsetType
其中可以設定 1.資料表(Talbe) 2.動態集(Dynaset) 3.快照集(Snapshot)
請問這三者有什麼不同
我記得是不是有一個是唯讀而且最快的,是那個啊?
其中可以設定 1.資料表(Talbe) 2.動態集(Dynaset) 3.快照集(Snapshot)
請問這三者有什麼不同
我記得是不是有一個是唯讀而且最快的,是那個啊?
DataReport(編號：7968)
請教各位一個問題：
我利用DataReport設計一報表(不使用DataEnvironment)搭配程式的RecordSet(利用程式序述將records內fields的資料放入datareport的label)，請問我的label元件應該放在那一個section之內呢？如果我的recordset 有十筆記錄，那麼將label放在詳細資訊內(section1)的話，則會列印十次第一筆記錄。如果將label放在頁面頁首(setction2)，則只會列印一次第一筆記錄其他記錄則無法列出，請問應該如何寫才會將recordset內的資料全部顯示出來呢?
我利用DataReport設計一報表(不使用DataEnvironment)搭配程式的RecordSet(利用程式序述將records內fields的資料放入datareport的label)，請問我的label元件應該放在那一個section之內呢？如果我的recordset 有十筆記錄，那麼將label放在詳細資訊內(section1)的話，則會列印十次第一筆記錄。如果將label放在頁面頁首(setction2)，則只會列印一次第一筆記錄其他記錄則無法列出，請問應該如何寫才會將recordset內的資料全部顯示出來呢?
vb 及 Access 的問題??(編號：7967)
vb6 及 Access 的vba 都可寫程式資料庫,小弟覺到Access方便又
齊全,為何要用vb6 來寫資料庫程式?愚弟請高手指點:
1).那一個易學易用,寫程式時方便好用?
2).那一個執行來比較好?
3).那一個比較安全?
4).未來那一個發展得更好?
謝謝!
齊全,為何要用vb6 來寫資料庫程式?愚弟請高手指點:
1).那一個易學易用,寫程式時方便好用?
2).那一個執行來比較好?
3).那一個比較安全?
4).未來那一個發展得更好?
謝謝!
MSComm問題！拜託！拜託！(編號：7961)
要怎樣利用mscomm寫一個很簡短的"二進碼"傳送呢？
傳送的資料只有整數，例：1,2,3....
而另一端接收到的資料，必須要是..00000001,00000002,....
市要8051能接收到的資料喔！
現在只會接收，但卻寫不出傳送
希望各位前輩，給予指導，謝謝！
傳送的資料只有整數，例：1,2,3....
而另一端接收到的資料，必須要是..00000001,00000002,....
市要8051能接收到的資料喔！
現在只會接收，但卻寫不出傳送
希望各位前輩，給予指導，謝謝！
請教MSI的程式如何在NTWK4.0上面run(編號：7960)
本人因寫一支Com的服務程式.
Server端為Windows2000 advance Server
Client端NT workstation 4.0(SP6)
在Server的元件服務中,滙出一支.msi的散發程式.
可是在Client端卻無法執行.
應該如何解決呢??
請各位高手拔刀相助,感激不盡!!
Server端為Windows2000 advance Server
Client端NT workstation 4.0(SP6)
在Server的元件服務中,滙出一支.msi的散發程式.
可是在Client端卻無法執行.
應該如何解決呢??
請各位高手拔刀相助,感激不盡!!
如何將rdo的資料傳給datagrid?(編號：7958)
我想將rdo的資料傳給datagrid,不知如何設定啊?
我已經可以連上rdo的資料只是我想用datagrid將data display出來
不知datagrid的DataSource & DataMembere該如何用?
Dim rsmovies As rdoResultset
Dim strsql As String
Dim strconnection As String
Dim cn As rdoConnection
With rdoEngine
.rdoDefaultCursorDriver = rdUseClientBatch
.rdoDefaultLoginTimeout = 30
End With
strconnection = "DSN=orc_sal;UID=MGRxxx;PWD=MGRxxxx"
Set cn = rdoEngine.rdoEnvironments(0).OpenConnection _
("orc_sal", rdDriverNoPrompt, False, strconnection)
strsql = "SELECT * FROM TEST21 ORDER BY ID"
Set rsmovies = cn.OpenResultset(strsql, rdOpenStatic, _
rdConcurReadOnly)
set datagrid1.datasouce=??(該如何設)
datagrid1.member=??(該如何設)
我已經可以連上rdo的資料只是我想用datagrid將data display出來
不知datagrid的DataSource & DataMembere該如何用?
Dim rsmovies As rdoResultset
Dim strsql As String
Dim strconnection As String
Dim cn As rdoConnection
With rdoEngine
.rdoDefaultCursorDriver = rdUseClientBatch
.rdoDefaultLoginTimeout = 30
End With
strconnection = "DSN=orc_sal;UID=MGRxxx;PWD=MGRxxxx"
Set cn = rdoEngine.rdoEnvironments(0).OpenConnection _
("orc_sal", rdDriverNoPrompt, False, strconnection)
strsql = "SELECT * FROM TEST21 ORDER BY ID"
Set rsmovies = cn.OpenResultset(strsql, rdOpenStatic, _
rdConcurReadOnly)
set datagrid1.datasouce=??(該如何設)
datagrid1.member=??(該如何設)
再問(如何取得Dtat Report 中Text Box 的值----但不使用DATA ENV(編號：7957)
謝謝SPENCER YANG的解答,但是我的程式是使用ADODB來連結資料庫,DATA REPORT也是使用ADODB來連結資料,故請SPENCER YANG 是否能再賜教,或者十方大德知道解答,請幫幫我吧.
如何一次過insert data into database?(編號：7956)
各位高手,
如何用sql 一次過insert 所有records?
我用ado connect access database.
(請列出 program code)
謝謝
如何用sql 一次過insert 所有records?
我用ado connect access database.
(請列出 program code)
謝謝
資料庫問題(編號：7955)
為什麼用adodc連結資料庫(access2000)利用jet4.0連結可以成功.
但是做新增刪除這一些基本的功能..郤發生
"沒有設定物件變數或with區塊變數"
資料庫:access2000
vb:6.0
ps:請幫這一個新手好嗎感恩不盡
但是做新增刪除這一些基本的功能..郤發生
"沒有設定物件變數或with區塊變數"
資料庫:access2000
vb:6.0
ps:請幫這一個新手好嗎感恩不盡
阿海兄！偶還是搞不定ㄋㄟ(編號：7954)
Private Sub Timer1_Timer()
FontSize = 15
FontName = "細明體"
Cls
CurrentX = 100
Print Time, Date
End Sub
這是我第一個要顯示時間的timer
那我如果在它的底下要顯示字而且是要每次顯示一個字串十秒鐘的時間而不會被上面那個timer牽制到要如何做呢？
FontSize = 15
FontName = "細明體"
Cls
CurrentX = 100
Print Time, Date
End Sub
這是我第一個要顯示時間的timer
那我如果在它的底下要顯示字而且是要每次顯示一個字串十秒鐘的時間而不會被上面那個timer牽制到要如何做呢？
請問如何將bmp圖片丟到記憶體中(編號：7953)
例如我用影像擷取卡取像，取第一張做程式運算，但我第一張影像還沒運算完成，擷取卡又取第二張影像進來，而我的想法是要將第二張影像先存到記憶體中，當第一張程式運算完成後直接到記憶體中抓第二張影像做運算，請問這該怎麼做~~謝謝
如何使Microsoft Netmeeting dcom??(編號：7949)
在SDK中有netmeeting com API object & interface definition 但是我用VB的檢視-＞瀏覽物件只看到一個netmeeting class並沒有看到sdk中的東西,那我要如何使用其中的一個object,使用oleview 看conf.exe(netmeeting執行檔)只有三個interface..thankx..
請問自製控制項如何使parent container上的ADODC??(編號：7948)
請問各位，我現在在作一個ActiveX的控制項，希望可以有一個屬性可以指定DataSource，並在資料有變化時raise控制項裡的事件，例如資料如增刪或作上一筆、下一筆的變化，請問我該如何設計較好？？我的DataSource屬性要設什麼型態較好呢？？
Kill 的使用(編號：7946)
請問Kill 可否刪除在長檔名下的檔案
例如 : C:\My Documents 或者 C:\Program Files 下的檔案
如果我把同樣的檔案放到 C:\ 下去做就沒問題
可是一放到長檔名下就有問題無法刪除
"路徑或檔案存取錯誤"
就算我在VB及時運算視窗去打 Kill "C:\Mydocu~1\aa.xl"
還是有問題..請問我的執行檔是否一定不可放到長檔名目錄下
例如 : C:\My Documents 或者 C:\Program Files 下的檔案
如果我把同樣的檔案放到 C:\ 下去做就沒問題
可是一放到長檔名下就有問題無法刪除
"路徑或檔案存取錯誤"
就算我在VB及時運算視窗去打 Kill "C:\Mydocu~1\aa.xl"
還是有問題..請問我的執行檔是否一定不可放到長檔名目錄下
如何List的列距加寬?(編號：7939)
1.如何List的列距加寬?
2.有什麼控制元件,可包含圖片,超連結,文字但不是webbrowse這個控制元件?
3.什麼API可讓除了目前的表單顯示出來但表單之下都是黑色的?
~ ^.^ ~ 煩請大家,謝謝
2.有什麼控制元件,可包含圖片,超連結,文字但不是webbrowse這個控制元件?
3.什麼API可讓除了目前的表單顯示出來但表單之下都是黑色的?
~ ^.^ ~ 煩請大家,謝謝
如用把sqlquery傳至crystal report 作篩選列印(編號：7938)
各位,
我在vb所寫的如下,但出來的結果是author的全部資料,
而不是au_id=1這一筆,要怎樣才可運作正常?
謝謝...
CrystalReport1.ReportFileName="c:\windows\desktop\test2.rpt"
CrystalReport1.Connect = "C:\Program Files\Microsoft Visual Studio\VB98\biblio.mdb;UID=Admin;PWD=;DSQ="
CrystalReport1.SQLQuery = "SELECT * FROM Author where Au_ID = 1"
CrystalReport1.Action = 1
我在vb所寫的如下,但出來的結果是author的全部資料,
而不是au_id=1這一筆,要怎樣才可運作正常?
謝謝...
CrystalReport1.ReportFileName="c:\windows\desktop\test2.rpt"
CrystalReport1.Connect = "C:\Program Files\Microsoft Visual Studio\VB98\biblio.mdb;UID=Admin;PWD=;DSQ="
CrystalReport1.SQLQuery = "SELECT * FROM Author where Au_ID = 1"
CrystalReport1.Action = 1
想請教有關物件的問題^_^(編號：7937)
我現在正在寫一個小遊戲.......它使我想爆頭了...(累)
但卡在一個最重要的地方，就是說當甲物件向下掉，約3cm後遇到一個寬約4cm的乙物件(乙物件頃斜約45度，若暫時不管頃斜的斜度)，然後甲物件就會向頃斜處下滑，直到過了乙物件的最邊邊後，才繼續向下掉....說的有些怪怪的...不過還是請各位高手幫幫我...thanks
ps.若可以的話連頃斜的度數也一起加進程式中!!!
但卡在一個最重要的地方，就是說當甲物件向下掉，約3cm後遇到一個寬約4cm的乙物件(乙物件頃斜約45度，若暫時不管頃斜的斜度)，然後甲物件就會向頃斜處下滑，直到過了乙物件的最邊邊後，才繼續向下掉....說的有些怪怪的...不過還是請各位高手幫幫我...thanks
ps.若可以的話連頃斜的度數也一起加進程式中!!!
Active 元件無法產生物件(編號：7934)
請問各位:
我在http://www2.vit.edu.tw/vb/抓了一個TCP/IP傳送語音的範例
但是為什麼執行他會出現執行接段錯誤429 Active 元件無法產生物件
請問各位是什麼原因???
謝謝!!!
我在http://www2.vit.edu.tw/vb/抓了一個TCP/IP傳送語音的範例
但是為什麼執行他會出現執行接段錯誤429 Active 元件無法產生物件
請問各位是什麼原因???
謝謝!!!
關於多緒...(編號：7932)
沒想到一進公司..
第一個解決問題的辦法就是MultiThread...
基本上執行都很正常..
但是在主執行緒及子執行緒間不斷切換時..
嘿嘿..所謂的臨界點就出來了!!!!!
哇ㄌㄟ!!藍色windowsㄟ!!
請對這個主題有興趣的各位~~
討論一下~~謝謝~~^_^~~
第一個解決問題的辦法就是MultiThread...
基本上執行都很正常..
但是在主執行緒及子執行緒間不斷切換時..
嘿嘿..所謂的臨界點就出來了!!!!!
哇ㄌㄟ!!藍色windowsㄟ!!
請對這個主題有興趣的各位~~
討論一下~~謝謝~~^_^~~
對不起!請教一個outlook的問題,如果有人知道的話!(編號：7931)
請問一下為什麼重新做了一台exchange server後個人電腦的outlook會有沒有回應的問題(毎當開啟outlook後就沒有回應的問題),或有些開啟後必須等幾分鐘之後才會恢復正常,如果有人知道的話,請幫幫忙!
網頁帳號、密碼(編號：7926)
想請教
我用asp寫了一個確認帳號及密碼的網頁(假設為a網頁)，我想寫成在user登入後，按上一頁回到確認帳號及密碼網頁，再按下一頁時，會要求要輸入帳號及密碼，請問要怎麼寫呢?
目前按下一頁時不會確認，只有第一次才會要求
我用asp寫了一個確認帳號及密碼的網頁(假設為a網頁)，我想寫成在user登入後，按上一頁回到確認帳號及密碼網頁，再按下一頁時，會要求要輸入帳號及密碼，請問要怎麼寫呢?
目前按下一頁時不會確認，只有第一次才會要求
為什麼Data1.recordset.close無效?(編號：7925)
我用FileCopy function 去做一個mdb的backup mdb,但是出現了runtime error "permission denied",但我已在之前已寫了
"Data1.Recordset.Close"
"Set Data1.Recordset = Nothing"
即是Data1仍然被locked,怎樣處理呢?
"Data1.Recordset.Close"
"Set Data1.Recordset = Nothing"
即是Data1仍然被locked,怎樣處理呢?
請問如何如何讓attach的html檔直接顯示在收件內容裡?(編號：7924)
我想讓收信者直接看到HTML格式的文件，而不需要再去開啟附件檔。目前找到的程式範例都是採用附件的方式傳送....
哪位大哥可以教我嗎？
哪位大哥可以教我嗎？
請問CreateObject與New的差別?(編號：7922)
在VB中建立一個物件有兩種方法,一個是CreateObject另一個則為New,聽人說過,可以用New的原因在於引用該DLL時就已先將他的Type Library讀取進來了,而事實上他們的建立方法都是為取得clsID然後去Registry中去取得相對應的資訊,然後再建立起來的...請問,何者效能較高呢.!?..還有詳細的建立方法.謝謝..
ADO的CencelUpdate後,資料殘留在TextBox上.?(編號：7921)
請問.我下了rs.CencleUpdate後可是修改過後的資料都還殘留在Textbox上,之前看過一本書,再下rs.Move 0 可是經我的試驗,在Data Environment中的確是可以將TextBox清成修改前內容,可是我使用ADO則會將資料寫入資料庫中,請問有什麼解決辦法呢.?謝謝
如何計算字串中的某個字元共有幾個(編號：7920)
請較一下：如何計算字串中的某個字元共有幾個？
例如：要得知"Those who use GB code browsers please write your post in English. Sorry for the inconveniences."中共有幾個"o"字。
謝謝！
例如：要得知"Those who use GB code browsers please write your post in English. Sorry for the inconveniences."中共有幾個"o"字。
謝謝！
自動執行的順序!!(編號：7919)
請問如何使 VB 做出來的執行檔, 在 windows 啟動時有第一優先的執行權!!
我已把機碼存在HKLM\Software\Microsoft\Windows\Current Version\Run 中了, 但 Pc-Cillin 還是第一優先執行!
請問如何解決
我已把機碼存在HKLM\Software\Microsoft\Windows\Current Version\Run 中了, 但 Pc-Cillin 還是第一優先執行!
請問如何解決
Asp和Jsp 的比較??(編號：7915)
小弟的公司最近要把ap 換成web base並建構ERP (公司滿大的喔!)，請小弟評估 開發平台、開發工具的優缺點，有沒有人有經驗，是用 win 上的asp 開發好呢還是用linux 的jsp開發還是其他?，在經費、速度負荷、維護上等等，請大家建議一下!!
Treeview的checkboxes的屬性(編號：7914)
Treeview的checkboxes的屬性,若設成True,則
每一個node都有checkbox.
假設Treeview可展開至2層,可否在某一node
的checkbox打勾,其children的checkbox也一
併打勾。
感謝各位的幫忙!!
每一個node都有checkbox.
假設Treeview可展開至2層,可否在某一node
的checkbox打勾,其children的checkbox也一
併打勾。
感謝各位的幫忙!!
動態設定DataEnvironment1??(編號：7912)
使用DataEnvironment1.Connections.Count可得共有幾個Connections,但如何動態設定這些Connections的ConnectionString
DataEnvironment1.Connections(ii).ConnectionString = " ...."
好像不行.
DataEnvironment1.Connections(ii).ConnectionString = " ...."
好像不行.
如何來用modem 傳送資料 給 另一台電腦(編號：7911)
如何來用modem 傳送資料 給 另一台電腦??
這兩台都沒上網 只是單純撥號.... 所以沒ip值
還是說 可強迫 撥號配接卡 之自定ip啊~~ 再利用網芳原理啊??
在dos時代 還有 zmodem 這種協定 可是現在都找不到了??
這兩台都沒上網 只是單純撥號.... 所以沒ip值
還是說 可強迫 撥號配接卡 之自定ip啊~~ 再利用網芳原理啊??
在dos時代 還有 zmodem 這種協定 可是現在都找不到了??
請問一些 有關 VB 6.0 的指令 的問題!! ( 謝謝!! )(編號：7910)
請問大家一些有關 BC++B 4.0 的問題!!
我因為要從 VB 6.0 轉用 BC++B 4.0 而遭遇到了很多的問題，而且有很多的問題是要找書也不見得找的到 ( 而且又因為我的英文很爛，所以我也沒有辦法閱讀 "「BC++B 4.0 的 Help」、「英文書」、...... 等等 " !! ...... 唉!! )，所以我希望大家可以幫幫我 ( 而且我目前又很急，因為找了好久的答案都找不到!! ...... 唉!! ) !!
拜託，拜託請大家一定要幫助我，拜託!!拜託!! ( 謝謝!! )
請問大家 " 9 個有關 BC++B 4.0 的問題 "：
( 我希望大家的回答可以包含 "「WIN32 SDK」、「ANSI C++」、「BC++B 4.0」、「基本用法」、「『必須傳入的值』和『傳回值』」、...... 等等 " 的答案，謝謝!! )
1. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『Stop』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
2. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『DoEvents』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
3. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『Dir』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
4. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『App.PrevInstance』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
5. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『App.Path』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
6. 請問在 BC++B 4.0 的裡面有沒有「比」" VB 6.0 裡面的「『Dir』指令」" 更好的指令 ( 或 " 函數 " !! ) ?? ( 例如：可以把「目錄和子目錄」裡面所有的檔案的「絕對路徑、檔案名稱、檔案副檔名、...... 等等」給取出來、...... 等等!! )
7. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『Print』指令 ( 包括『寫入檔案、在表單顯示文字、...... 等等』!!」" 類似的指令 ( 或 " 函數 " !! ) ??
8. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『Shell』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
9. 請問在 BC++B 4.0 的裡面有沒有 "「延遲 ( 或『暫停』!! )」n 秒的「指令 ( 或『函數』!! )」( 例如：延遲「十分之一」秒、延遲「百分之一」秒、延遲「千分之一」秒、延遲「百分之九」秒、...... 等等!! ) " ??
( 拜託請大家盡量要用 " 詳細的方式 " 回答我，謝謝!! )
抱歉，一次就問大家這麼多的問題，真的是對大家非常的抱歉!! ( 對不起!! )
拜託，拜託請大家一定要幫助我，拜託!!拜託!! ( 謝謝!! )
( 謝謝!! )
我因為要從 VB 6.0 轉用 BC++B 4.0 而遭遇到了很多的問題，而且有很多的問題是要找書也不見得找的到 ( 而且又因為我的英文很爛，所以我也沒有辦法閱讀 "「BC++B 4.0 的 Help」、「英文書」、...... 等等 " !! ...... 唉!! )，所以我希望大家可以幫幫我 ( 而且我目前又很急，因為找了好久的答案都找不到!! ...... 唉!! ) !!
拜託，拜託請大家一定要幫助我，拜託!!拜託!! ( 謝謝!! )
請問大家 " 9 個有關 BC++B 4.0 的問題 "：
( 我希望大家的回答可以包含 "「WIN32 SDK」、「ANSI C++」、「BC++B 4.0」、「基本用法」、「『必須傳入的值』和『傳回值』」、...... 等等 " 的答案，謝謝!! )
1. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『Stop』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
2. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『DoEvents』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
3. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『Dir』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
4. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『App.PrevInstance』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
5. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『App.Path』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
6. 請問在 BC++B 4.0 的裡面有沒有「比」" VB 6.0 裡面的「『Dir』指令」" 更好的指令 ( 或 " 函數 " !! ) ?? ( 例如：可以把「目錄和子目錄」裡面所有的檔案的「絕對路徑、檔案名稱、檔案副檔名、...... 等等」給取出來、...... 等等!! )
7. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『Print』指令 ( 包括『寫入檔案、在表單顯示文字、...... 等等』!!」" 類似的指令 ( 或 " 函數 " !! ) ??
8. 請問在 BC++B 4.0 的裡面有沒有和 " VB 6.0 裡面的「『Shell』指令」" 類似的指令 ( 或 " 函數 " !! ) ??
9. 請問在 BC++B 4.0 的裡面有沒有 "「延遲 ( 或『暫停』!! )」n 秒的「指令 ( 或『函數』!! )」( 例如：延遲「十分之一」秒、延遲「百分之一」秒、延遲「千分之一」秒、延遲「百分之九」秒、...... 等等!! ) " ??
( 拜託請大家盡量要用 " 詳細的方式 " 回答我，謝謝!! )
抱歉，一次就問大家這麼多的問題，真的是對大家非常的抱歉!! ( 對不起!! )
拜託，拜託請大家一定要幫助我，拜託!!拜託!! ( 謝謝!! )
( 謝謝!! )
能否偵測PowerPoint中簡報開始放映與結束放映!?(編號：7908)
請教一下: 如何寫一個程式去偵測,PowerPoint的簡報開始放映了, 及簡報放映結束呢!? 換頁的動作有特別的Event嗎!?還是我只能抓mouse的click!? 希望能指導我一下...感激不盡...
Microsoft excel 8.0 object library (excel97)(編號：7907)
可否告知 Microsoft excel 8.0 object library (excel97)的 完件檔名稱(*.ocx) 可在那裡找到
或可否把完件檔由 E-mail 傳給在下
感激不盡
或可否把完件檔由 E-mail 傳給在下
感激不盡
一個try很就了還是try不出來的功能(編號：7904)
VB似乎有些東西做不到...
以下是從我一開始知道有 PopMenu 這回事之後
就一直在try的一個功能,可是到現在還是沒有結果:
我們都知道在Windows中,一般我們以滑鼠右鍵按下時
Focus 即轉到我們按下的物件上,在滑鼠放開時 PopMenu 才跳出來
例如:我做一個 ListBox ,然後在上面按下右鍵
即跳出一個顯示所按到的 List 的內容的 PopMenu
以上例子中我觀察了很久所有事件的觸發狀況及順序
結論是...做不到......
我在猜如果使用訊息傳遞可能可以.....不過我已經快轟掉了^&%$@#@! 不想搞了~~~
這個問題留給各位 try try 看吧~
各位有什麼好消息再波上來與大家分享囉~~
ps.當然不只ListBox這個例子
很多時候都是這樣,無法在 MouseDown 時就轉移 Focus 到該物件上...
以下是從我一開始知道有 PopMenu 這回事之後
就一直在try的一個功能,可是到現在還是沒有結果:
我們都知道在Windows中,一般我們以滑鼠右鍵按下時
Focus 即轉到我們按下的物件上,在滑鼠放開時 PopMenu 才跳出來
例如:我做一個 ListBox ,然後在上面按下右鍵
即跳出一個顯示所按到的 List 的內容的 PopMenu
以上例子中我觀察了很久所有事件的觸發狀況及順序
結論是...做不到......
我在猜如果使用訊息傳遞可能可以.....不過我已經快轟掉了^&%$@#@! 不想搞了~~~
這個問題留給各位 try try 看吧~
各位有什麼好消息再波上來與大家分享囉~~
ps.當然不只ListBox這個例子
很多時候都是這樣,無法在 MouseDown 時就轉移 Focus 到該物件上...
如何將工具列設定自動#38560;藏(編號：7902)
在工具列中, 可以設定"自動隠藏"的功能
當滑鼠指到螢幕下方時, 工具列會自動跑出來
請問VB的API是否可以設定 "自動隠藏" 為 TRUE OR FALSE
或是 其功能的 Register Key 為何?
當滑鼠指到螢幕下方時, 工具列會自動跑出來
請問VB的API是否可以設定 "自動隠藏" 為 TRUE OR FALSE
或是 其功能的 Register Key 為何?
請問幾個 MDIForm 控制的問題(編號：7901)
1.一般子表單最小化時會自動縮小在 MDIForm 的最左下角
我想讓它縮在 MDIForm 的右下角或者自己設定位置作得到嗎?
2.多個子表單最小化時會按照最小化的順序,依序從最左下角向右一個一個的排列
我想設定它的順序可以嗎?
(如,插在左邊數起第二個與第三個之間,然後第三個之後的自動向右移一個順位)
3.最大化,最小化等動作能以程式碼做到,而不是按下右上角的按鈕嗎?
以上問題有點兒急,麻煩大家幫幫忙了~~ 謝謝!!
我想讓它縮在 MDIForm 的右下角或者自己設定位置作得到嗎?
2.多個子表單最小化時會按照最小化的順序,依序從最左下角向右一個一個的排列
我想設定它的順序可以嗎?
(如,插在左邊數起第二個與第三個之間,然後第三個之後的自動向右移一個順位)
3.最大化,最小化等動作能以程式碼做到,而不是按下右上角的按鈕嗎?
以上問題有點兒急,麻煩大家幫幫忙了~~ 謝謝!!
TreeView Install Tool(編號：7899)
1.最近常在使用MS的TreeView元件,
雖然在使用上沒什麼問題,
但在畫面及顯示上,
總是讓人感到不順眼
而且功能應不止這些吧!!!
2.大家有沒有用過installShield,
如果把vb的install改成installShield
好不好用?
雖然在使用上沒什麼問題,
但在畫面及顯示上,
總是讓人感到不順眼
而且功能應不止這些吧!!!
2.大家有沒有用過installShield,
如果把vb的install改成installShield
好不好用?
要如何更新user電腦的ADO的版本(編號：7898)
今天寫了支簡單的程式, 結果用vb封包後在user端安裝使用, 當程式執行 recordset 的方法 filter 時發生錯誤, 發現自己在VB使用的ADO 2.5元件版本為 2.60.6526.0 , 但 USER 的 WIN95 電腦的 ADO 2.5 元件版本為 2.50.xxx , 且無法直接使用 regsvr32 註冊我 copy 過去的 2.60 版本...windows 的 dll hell 實在很討厭...請問有什麼辦法解決嗎??
插補法求值(編號：7894)
資料庫欄位
A B
--- ---
345 2451844
346 2451874
...
請問有一值2451870位於B欄位2451844,2451874之間，如何用SQL
SELECT出2451870O位於2451844之後。取出A值345
B欄位不是有順序排列。
A B
--- ---
345 2451844
346 2451874
...
請問有一值2451870位於B欄位2451844,2451874之間，如何用SQL
SELECT出2451870O位於2451844之後。取出A值345
B欄位不是有順序排列。
有可能以vb6來對應網頁上的資料嗎(詳內文)(編號：7893)
舉個例子
現在有一個心理測驗的網頁
但我不可以去用網頁去執行
我必需用vb寫一個程式來去對應它 ..(也就是透過vb去run)
好像有點難懂 . . . 拜託拜託了 ^_^
現在有一個心理測驗的網頁
但我不可以去用網頁去執行
我必需用vb寫一個程式來去對應它 ..(也就是透過vb去run)
好像有點難懂 . . . 拜託拜託了 ^_^
MSMQ(編號：7892)
請教一下使用過 MSMQ 的朋友..
我該如何設定或操作才能讓一個獨立的 Client queue 當他和 PEC 重新建立連線之後, 會自動 update PEC 上的 queue? 而在斷線期間,
我到底該送 message 到 PEC 上的 queue or client 的 queue?
我該如何設定或操作才能讓一個獨立的 Client queue 當他和 PEC 重新建立連線之後, 會自動 update PEC 上的 queue? 而在斷線期間,
我到底該送 message 到 PEC 上的 queue or client 的 queue?
關於winsock(編號：7891)
請問各位好手
我用一個winsock控制項來寫client
指定一個IP後做連線然後關閉
再用同一個控制項更改其remotehost
為什麼回應無法取得ip
可是我單步去確定,控制項內的參數已經更改了阿
請告訴我如何解決,謝謝
我用一個winsock控制項來寫client
指定一個IP後做連線然後關閉
再用同一個控制項更改其remotehost
為什麼回應無法取得ip
可是我單步去確定,控制項內的參數已經更改了阿
請告訴我如何解決,謝謝
求救！！ASP 求 IP 的問題(編號：7885)
Request.ServerVariables("REMOTE_ADDR") 求出來的IP 好像有點不一樣。放在自己電腦的 IIS 就沒錯，一放到其他server ，看到的IP 並不是自己的IP。 如何求出自己的 IP 呢？
我看到阿撥羅的聊天室是用ASP 寫的
他那裡的USER IP 有的有兩部分，前部分是你電腦真的IP，後半部就是ServerVariables("Remote_ADDR") 求出來的
到底怎麼求前面真的IP 呢？
請幫忙，謝謝
我看到阿撥羅的聊天室是用ASP 寫的
他那裡的USER IP 有的有兩部分，前部分是你電腦真的IP，後半部就是ServerVariables("Remote_ADDR") 求出來的
到底怎麼求前面真的IP 呢？
請幫忙，謝謝
使用者自訂型態尚未定義(編號：7883)
想用 VB6 處理 Excel 的儲存格資料
Dim MyExe As New Excel.Application
以上定義不成功
為何總是運行 VB6 已經話 "使用者自訂型態尚未定義"
Dim MyExe As New Excel.Application
以上定義不成功
為何總是運行 VB6 已經話 "使用者自訂型態尚未定義"
To: SPENCER YANG == 關於 Shape 問題(編號：7882)
請教前輩:如果想作一出貨單,而用了出貨單主檔、出貨單副檔、客戶檔、產品檔.....,請問 Shape 指令該如何下達呢?煩請舉例!!!
如何運用 VB6 指令？(編號：7879)
在下是用中文 VB6.0 ，在網上跑了幾天都找不到可用的範例︰
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
Dim intRow As Integer
Dim intCol As Integer
請高手幫幫忙
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
Dim intRow As Integer
Dim intCol As Integer
請高手幫幫忙
如何更改 Excel 儲存格資料(編號：7877)
在下是用中文 VB6.0 ，在網上跑了幾天都找不到可用的範例如下︰
Public Sub FlexGrid_To_Excel(TheFlexgrid As MSFlexGrid, _
TheRows As Integer, TheCols As Integer, _
Optional GridStyle As Integer = 1, Optional WorkSheetName _
As String)
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
Dim intRow As Integer ' counter
Dim intCol As Integer ' counter
If Not IsObject(objXL) Then
MsgBox "You need Microsoft Excel to use this function", _
vbExclamation, "Print to Excel"
Exit Sub
End If
'On Error Resume Next is necessary because
'someone may pass more rows
'or columns than the flexgrid has
'you can instead check for this,
'or rewrite the function so that
'it exports all non-fixed cells
'to Excel
On Error Resume Next
' open Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet
' name the worksheet
With wsXL
If Not WorkSheetName = "" Then
.Name = WorkSheetName
End If
End With
' fill worksheet
For intRow = 1 To TheRows
For intCol = 1 To TheCols
With TheFlexgrid
wsXL.Cells(intRow, intCol).Value = _
.TextMatrix(intRow - 1, intCol - 1) & " "
End With
Next
Next
' format the look
For intCol = 1 To TheCols
wsXL.Columns(intCol).AutoFit
'wsXL.Columns(intCol).AutoFormat (1)
wsXL.Range("a1", Right(wsXL.Columns(TheCols).AddressLocal, _
1) & TheRows).AutoFormat GridStyle
Next
End Sub
Automate Excel via VB -- Example---------------------------------------------------------
Set ApExcel = CreateObject("Excel.application") 'Creates an object
ApExcel.Visible = True ' So you can see Excel
ApExcel.Workbooks.Add 'Adds a new book.
ApExcel.cells(1, 1).Formula = "HELLO" 'Add Text to a Cell
'You can use the line above, changing coordenates to go to any
'cell and you can also add Formulas
ApExcel.Range("A1:Z1").BORDERS.Color = RGB(0, 0, 0) 'Use it to
'change the borders.
ApExcel.Columns("A:AY").EntireColumn.AutoFit 'To adjust the
'column's width.
ApExcel.Range("A:Z").Select 'To establish a selection
ApExcel.Selection.NumberFormat = "0" 'Adding different formats
vb開啟一個已存在的excel檔並存入資料-------------------------------------------------------
Private Sub Command1_Click()
Dim temp As Excel.Application
Set temp = CreateObject("Excel.Application")
temp.Workbooks.Open "F:\000-2測試區\vb測試區\abc.xls"
temp.Range("B7") = "570"
temp.Visible = True
End Sub
請高手幫幫忙
Public Sub FlexGrid_To_Excel(TheFlexgrid As MSFlexGrid, _
TheRows As Integer, TheCols As Integer, _
Optional GridStyle As Integer = 1, Optional WorkSheetName _
As String)
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
Dim intRow As Integer ' counter
Dim intCol As Integer ' counter
If Not IsObject(objXL) Then
MsgBox "You need Microsoft Excel to use this function", _
vbExclamation, "Print to Excel"
Exit Sub
End If
'On Error Resume Next is necessary because
'someone may pass more rows
'or columns than the flexgrid has
'you can instead check for this,
'or rewrite the function so that
'it exports all non-fixed cells
'to Excel
On Error Resume Next
' open Excel
objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet
' name the worksheet
With wsXL
If Not WorkSheetName = "" Then
.Name = WorkSheetName
End If
End With
' fill worksheet
For intRow = 1 To TheRows
For intCol = 1 To TheCols
With TheFlexgrid
wsXL.Cells(intRow, intCol).Value = _
.TextMatrix(intRow - 1, intCol - 1) & " "
End With
Next
Next
' format the look
For intCol = 1 To TheCols
wsXL.Columns(intCol).AutoFit
'wsXL.Columns(intCol).AutoFormat (1)
wsXL.Range("a1", Right(wsXL.Columns(TheCols).AddressLocal, _
1) & TheRows).AutoFormat GridStyle
Next
End Sub
Automate Excel via VB -- Example---------------------------------------------------------
Set ApExcel = CreateObject("Excel.application") 'Creates an object
ApExcel.Visible = True ' So you can see Excel
ApExcel.Workbooks.Add 'Adds a new book.
ApExcel.cells(1, 1).Formula = "HELLO" 'Add Text to a Cell
'You can use the line above, changing coordenates to go to any
'cell and you can also add Formulas
ApExcel.Range("A1:Z1").BORDERS.Color = RGB(0, 0, 0) 'Use it to
'change the borders.
ApExcel.Columns("A:AY").EntireColumn.AutoFit 'To adjust the
'column's width.
ApExcel.Range("A:Z").Select 'To establish a selection
ApExcel.Selection.NumberFormat = "0" 'Adding different formats
vb開啟一個已存在的excel檔並存入資料-------------------------------------------------------
Private Sub Command1_Click()
Dim temp As Excel.Application
Set temp = CreateObject("Excel.Application")
temp.Workbooks.Open "F:\000-2測試區\vb測試區\abc.xls"
temp.Range("B7") = "570"
temp.Visible = True
End Sub
請高手幫幫忙
討論: SELECT TOP N問題 (2)(轉貼)(編號：7876)
討論: SELECT TOP N問題 (2)
關鍵字：Sql Server
Hi,everyone:
今天繼續討論SELECT TOP N問題.
1. DB2的M 2
在前一篇討論中提到,由於DB2的SUBQUERY不支援ORDER BY子句,因此無法構造M2. 實際上,DB2提供了一組新的函數,稱爲 OLAP FUNCTIONS, 可以很好的支援TOP N問題.
M2:
SELECT * FROM
( SELECT MYKEY,RANK() OVER (ORDER BY ORD_COL DESC) AS MYRANK
FROM MYTABLE ) AS RANKED_TABLE
WHERE MYRANK＜=N
利用OLAP函數,除了上一篇中所提方法,DB2的M1又可以表示爲:
SELECT * FROM
( SELECT MYKEY,ROW_NUMBER() OVER (ORDER BY ORD_COL DESC) AS MYRANK
FROM MYTABLE ) AS RANKED_TABLE
WHERE MYRANK＜=N
2. 除了M1, M2兩種TOP N外,還有一種被DB2稱爲 DENSE_RANK, (M3). 通過下例分別說明.
M1: TOP 3 -- 1(4,101), 2(5,101), 3(1, 100) 或者1(4,101), 2(5,101), 3(2, 100)
M2: TOP 3 -- 1(4,101), 1(5,101), 3(1, 100), 3(2, 100)
M3: TOP 3 -- 1(4,101), 1(5,101), 2(1, 100), 2(2, 100), 3(3,99)
在DB2中, M3如此實現:
SELECT * FROM
( SELECT MYKEY,DENSE_RANK() OVER (ORDER BY ORD_COL DESC) AS MYRANK
FROM MYTABLE ) AS RANKED_TABLE
WHERE MYRANK＜=N
3. 爲避免DBMSs的方言問題, M2,M3可以有如下標準(SQL 92)表示:
M2:
SELECT * FROM MYTABLE M1 WHERE N＞
( SELECT COUNT(*) FROM MYTABLE M2
WHERE M2.ORD_COL＞M1.ORD_COL);
注意: 兩個比較符都是 ＞
M3:
SELECT * FROM MYTABLE M1 WHERE N＞
( SELECT COUNT(DISTINCT M2.ORD_COL) FROM MYTABLE M2
WHERE M2.ORD_COL＞M1.ORD_COL);
注意: 與M2的不同在於DISTINCT的使用
至於M1, 我目前還沒有想到合適的標準寫法,請補充.
4. 關於MYSQL
相對於各主流RDBMS來說,MYSQL要簡單,幼稚地多. 在運行MYSQL時發現居然不支援SUBQUERY. 因此MYSQL中的TOP N問題要複雜一些.
SELECT * FROM MYTABLE, MYTABLE M2
WHERE M2.ORD_COL＞=M1.ORD_COL
GROUP BY M1.MYKEY
HAVING COUNT(M2.ORD_COL) ＜=N
但是,這個語句是有問題的. 一個極端的例子: 當所有的ORD_COL的數值都一樣時. 如果哪位想到了如何解決這個問題,請補充.
----------------------------------------------------------------------------------
各語句已經測試過, EXAMPLE:
create table mytable(mykey int, ord_col int);
insert into mytable values(1, 100);
insert into mytable values(2, 100);
insert into mytable values(3, 99);
insert into mytable values(4, 101);
insert into mytable values(5, 101);
關鍵字：Sql Server
Hi,everyone:
今天繼續討論SELECT TOP N問題.
1. DB2的M 2
在前一篇討論中提到,由於DB2的SUBQUERY不支援ORDER BY子句,因此無法構造M2. 實際上,DB2提供了一組新的函數,稱爲 OLAP FUNCTIONS, 可以很好的支援TOP N問題.
M2:
SELECT * FROM
( SELECT MYKEY,RANK() OVER (ORDER BY ORD_COL DESC) AS MYRANK
FROM MYTABLE ) AS RANKED_TABLE
WHERE MYRANK＜=N
利用OLAP函數,除了上一篇中所提方法,DB2的M1又可以表示爲:
SELECT * FROM
( SELECT MYKEY,ROW_NUMBER() OVER (ORDER BY ORD_COL DESC) AS MYRANK
FROM MYTABLE ) AS RANKED_TABLE
WHERE MYRANK＜=N
2. 除了M1, M2兩種TOP N外,還有一種被DB2稱爲 DENSE_RANK, (M3). 通過下例分別說明.
M1: TOP 3 -- 1(4,101), 2(5,101), 3(1, 100) 或者1(4,101), 2(5,101), 3(2, 100)
M2: TOP 3 -- 1(4,101), 1(5,101), 3(1, 100), 3(2, 100)
M3: TOP 3 -- 1(4,101), 1(5,101), 2(1, 100), 2(2, 100), 3(3,99)
在DB2中, M3如此實現:
SELECT * FROM
( SELECT MYKEY,DENSE_RANK() OVER (ORDER BY ORD_COL DESC) AS MYRANK
FROM MYTABLE ) AS RANKED_TABLE
WHERE MYRANK＜=N
3. 爲避免DBMSs的方言問題, M2,M3可以有如下標準(SQL 92)表示:
M2:
SELECT * FROM MYTABLE M1 WHERE N＞
( SELECT COUNT(*) FROM MYTABLE M2
WHERE M2.ORD_COL＞M1.ORD_COL);
注意: 兩個比較符都是 ＞
M3:
SELECT * FROM MYTABLE M1 WHERE N＞
( SELECT COUNT(DISTINCT M2.ORD_COL) FROM MYTABLE M2
WHERE M2.ORD_COL＞M1.ORD_COL);
注意: 與M2的不同在於DISTINCT的使用
至於M1, 我目前還沒有想到合適的標準寫法,請補充.
4. 關於MYSQL
相對於各主流RDBMS來說,MYSQL要簡單,幼稚地多. 在運行MYSQL時發現居然不支援SUBQUERY. 因此MYSQL中的TOP N問題要複雜一些.
SELECT * FROM MYTABLE, MYTABLE M2
WHERE M2.ORD_COL＞=M1.ORD_COL
GROUP BY M1.MYKEY
HAVING COUNT(M2.ORD_COL) ＜=N
但是,這個語句是有問題的. 一個極端的例子: 當所有的ORD_COL的數值都一樣時. 如果哪位想到了如何解決這個問題,請補充.
----------------------------------------------------------------------------------
各語句已經測試過, EXAMPLE:
create table mytable(mykey int, ord_col int);
insert into mytable values(1, 100);
insert into mytable values(2, 100);
insert into mytable values(3, 99);
insert into mytable values(4, 101);
insert into mytable values(5, 101);
討論 SELECT TOP N 問題(轉貼)(編號：7875)
討論 SELECT TOP N 問題
關鍵字：Sql Server
Hi, everyone:
本貼討論SELECT TOP N問題.
現在正在一家電腦公司兼職,開發ASP應用. 在最近的一個商業專案裏有這樣一個需求:用戶在查詢時,只需要按照某(些)列排序後TOP 20的紀錄. SQL SERVER 7很好地支援了TOP N 操作,但考慮到系統移植問題, 我又考慮在其他幾個主流DBMSs中如何實現. 鑒於只有DB2 UDB 7,ORACLE 8i,SQL SERVER 7,本貼僅討論這三個DBMS.
簡單地說,TOP N問題就是:在SELECT中,僅選擇按照某(些)列排序後TOP N的紀錄. 考慮到等值問題,又可以分爲兩種: 一是僅僅返回N條紀錄(M 1), 二是還包括所有於第N條等值的紀錄(M 2). 當然最內層的子查詢也可以有其他的子句, 或者TOP N也可以應用在沒有ORDER BY的情況下,這樣更簡單.
1. SQL SERVER 7: 用 TOP N (WITH TIES)
M1:
SELECT TOP N * FROM MYTABLE ORDER BY ORD_COL;
M2:
SELECT TOP N WITH TIES * FROM MYTABLE ORDER BY ORD_COL;
注: SQL SERVER 7提供了PERCENT N WITH TIES, ACCESS 中提供了TOP N,但含義是M 2.
2. ORACLE 8i: 用 ROWNUM＜=N
M1:
SELECT * FROM
( SELECT * FROM MYTABLE ORDER BY ORD_COL DESC)
WHERE ROWNUM＜=N
M2:
SELECT * FROM MYTABLE WHERE ORD_COL＞=
(SELECT MIN(ORD_COL) FROM
( SELECT * FROM MYTABLE ORDER BY ORD_COL DESC)
WHERE ROWNUM＜=N)
ORDER BY ORD_COL DESC
注意以下兩種錯誤用法:
WRONG 1:
SELECT * FROM MYTABLE
WHERE ROWID＜=N
ORDER BY ORD_COL DESC;
WRONG 2:(因爲WHERE ROWNUM＜=N 在ORDER BY 前執行)
SELECT * FROM MYTABLE
WHERE ROWNUM＜=N
ORDER BY ORD_COL DESC;
3: DB2
用FETCH FIRST N ROWS ONLY
M1:
SELECT * FROM MYTABLE
ORDER BY ORD_COL DESC
FETCH FIRST N ROWS ONLY
M2:
沒有找到,因爲DB2不允許在FROM中嵌套有ORDER BY子句的子查詢.
還不清楚ORACLE的M 2有沒有更好的辦法,以及其他的DBMS如何實現TOP N操作,請其他朋友補充.
----------------------------------------------------------------------------------
各語句已經測試過, EXAMPLE:
create table mytable(mykey int, ord_col int);
insert into mytable values(1, 100);
insert into mytable values(2, 100);
insert into mytable values(3, 99);
insert into mytable values(4, 101);
insert into mytable values(5, 101);
關鍵字：Sql Server
Hi, everyone:
本貼討論SELECT TOP N問題.
現在正在一家電腦公司兼職,開發ASP應用. 在最近的一個商業專案裏有這樣一個需求:用戶在查詢時,只需要按照某(些)列排序後TOP 20的紀錄. SQL SERVER 7很好地支援了TOP N 操作,但考慮到系統移植問題, 我又考慮在其他幾個主流DBMSs中如何實現. 鑒於只有DB2 UDB 7,ORACLE 8i,SQL SERVER 7,本貼僅討論這三個DBMS.
簡單地說,TOP N問題就是:在SELECT中,僅選擇按照某(些)列排序後TOP N的紀錄. 考慮到等值問題,又可以分爲兩種: 一是僅僅返回N條紀錄(M 1), 二是還包括所有於第N條等值的紀錄(M 2). 當然最內層的子查詢也可以有其他的子句, 或者TOP N也可以應用在沒有ORDER BY的情況下,這樣更簡單.
1. SQL SERVER 7: 用 TOP N (WITH TIES)
M1:
SELECT TOP N * FROM MYTABLE ORDER BY ORD_COL;
M2:
SELECT TOP N WITH TIES * FROM MYTABLE ORDER BY ORD_COL;
注: SQL SERVER 7提供了PERCENT N WITH TIES, ACCESS 中提供了TOP N,但含義是M 2.
2. ORACLE 8i: 用 ROWNUM＜=N
M1:
SELECT * FROM
( SELECT * FROM MYTABLE ORDER BY ORD_COL DESC)
WHERE ROWNUM＜=N
M2:
SELECT * FROM MYTABLE WHERE ORD_COL＞=
(SELECT MIN(ORD_COL) FROM
( SELECT * FROM MYTABLE ORDER BY ORD_COL DESC)
WHERE ROWNUM＜=N)
ORDER BY ORD_COL DESC
注意以下兩種錯誤用法:
WRONG 1:
SELECT * FROM MYTABLE
WHERE ROWID＜=N
ORDER BY ORD_COL DESC;
WRONG 2:(因爲WHERE ROWNUM＜=N 在ORDER BY 前執行)
SELECT * FROM MYTABLE
WHERE ROWNUM＜=N
ORDER BY ORD_COL DESC;
3: DB2
用FETCH FIRST N ROWS ONLY
M1:
SELECT * FROM MYTABLE
ORDER BY ORD_COL DESC
FETCH FIRST N ROWS ONLY
M2:
沒有找到,因爲DB2不允許在FROM中嵌套有ORDER BY子句的子查詢.
還不清楚ORACLE的M 2有沒有更好的辦法,以及其他的DBMS如何實現TOP N操作,請其他朋友補充.
----------------------------------------------------------------------------------
各語句已經測試過, EXAMPLE:
create table mytable(mykey int, ord_col int);
insert into mytable values(1, 100);
insert into mytable values(2, 100);
insert into mytable values(3, 99);
insert into mytable values(4, 101);
insert into mytable values(5, 101);
傳collection到com(編號：7874)
傳client傳一個collection到MTS中com元件都會產生方法失敗
但用字串就沒問題
下列程式是com寫法
現在連msgbox那型都沒執行
請問如何解決
Public Function BatchSQL(SS As String, CL As Collection)
On Error GoTo www
MsgBox "test"
Dim obj As ObjectContext
Set obj = GetObjectContext()
Dim i As Integer
Dim ww
MsgBox SS
MsgBox CL.Count
For i = 1 To CL.Count
Set cc = CreateObject("Datadata.ADO")
MsgBox "test1"
MsgBox CL(i)
Call cc.Execute(SS, CL(i))
MsgBox "test2"
obj.SetComplete
Next
MsgBox "test3"
obj.SetComplete
Set obj = Nothing
MsgBox "test4"
Set cc = Nothing
Set obj = Nothing
Exit Function
www:
Err.Description = "指令執行失敗"
Err.Raise comError.ExecuteErr, "指令執行失敗"
Set cc = Nothing
If obj Is Nothing Then
Err.Raise NoContextError, "Transaction 失敗", "MTS 未啟動 ,無法取得 ObjectContext"
Else
obj.SetAbort
Err.Raise TransFail, "Transaction 失敗", Err.Description
Set obj = Nothing
End If
End Function
但用字串就沒問題
下列程式是com寫法
現在連msgbox那型都沒執行
請問如何解決
Public Function BatchSQL(SS As String, CL As Collection)
On Error GoTo www
MsgBox "test"
Dim obj As ObjectContext
Set obj = GetObjectContext()
Dim i As Integer
Dim ww
MsgBox SS
MsgBox CL.Count
For i = 1 To CL.Count
Set cc = CreateObject("Datadata.ADO")
MsgBox "test1"
MsgBox CL(i)
Call cc.Execute(SS, CL(i))
MsgBox "test2"
obj.SetComplete
Next
MsgBox "test3"
obj.SetComplete
Set obj = Nothing
MsgBox "test4"
Set cc = Nothing
Set obj = Nothing
Exit Function
www:
Err.Description = "指令執行失敗"
Err.Raise comError.ExecuteErr, "指令執行失敗"
Set cc = Nothing
If obj Is Nothing Then
Err.Raise NoContextError, "Transaction 失敗", "MTS 未啟動 ,無法取得 ObjectContext"
Else
obj.SetAbort
Err.Raise TransFail, "Transaction 失敗", Err.Description
Set obj = Nothing
End If
End Function
為什麼VB與RS232溝通都會有亂碼？？？(編號：7873)
我用的是文魁出版社的VB與RS232的書
然後用它書上的例子去傳RS232的訊號，
可是傳的都是亂碼。不曉得哪裡出了問題，
煩請高手指點，寄到我的 E-Mail 好嗎？？
謝謝！！！
然後用它書上的例子去傳RS232的訊號，
可是傳的都是亂碼。不曉得哪裡出了問題，
煩請高手指點，寄到我的 E-Mail 好嗎？？
謝謝！！！
VB能在未安裝DCOM95/98或IE4的95上做不需安裝的程式嗎？(編號：7872)
請教各位先進
VB能在未安裝DCOM95/98或IE4的WIN95上做不需安裝的程式嗎？
我測試的結果好像至少都要有上列的東西才能RUN 不需安裝的程式耶
請問在這樣的環境下，還有解決的方式嗎？
VB能在未安裝DCOM95/98或IE4的WIN95上做不需安裝的程式嗎？
我測試的結果好像至少都要有上列的東西才能RUN 不需安裝的程式耶
請問在這樣的環境下，還有解決的方式嗎？
有關access與treeview問題??(編號：7871)
我想一access2000中的資料用treeview顯示其資料如rs.fields(0)=父項,rs.fields(1)=name我的程式碼如下,但其顯示是空白的..why??
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "data source=c:\樹.mdb"
cn.Open
Set rs = New ADODB.Recordset
rs.Open "1", cn, adOpenStatic
Dim nodx As Node
If rs.Fields(0) ＜＞ "" Then
Set nodx = TreeView1.Nodes.Add(rs!父項, tvwChild, , _
& "rs!name", rs!Name)
nodx.EnsureVisible
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs.Close
cn.Close
End Sub
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Set nodx = TreeView1.SelectedItem
End Sub
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "data source=c:\樹.mdb"
cn.Open
Set rs = New ADODB.Recordset
rs.Open "1", cn, adOpenStatic
Dim nodx As Node
If rs.Fields(0) ＜＞ "" Then
Set nodx = TreeView1.Nodes.Add(rs!父項, tvwChild, , _
& "rs!name", rs!Name)
nodx.EnsureVisible
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs.Close
cn.Close
End Sub
Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Set nodx = TreeView1.SelectedItem
End Sub
救救我丫....這個問題對大家來說可能是太簡單了(編號：7867)
題目:製作一小老鼠走迷宮程式
功能要求:
1.設計一15 *15的方形迷宮出口與入口固定可任意拆掉或建立分隔牆壁使出口到入口至少有一通道＜無通道也可以＞或可用隨機方式產生迷宮.
2.設計一程式可以自動探索一條從入口到出口的路徑.
3.記錄並顯示探索路徑所花費的時間
4.若路徑探索完畢,下次行走時可以直接由入口走道出口.
可以做出來讓我看一下嗎?
因為我做了好久都做不出來....我再不交,我就要被當了......求求你...救救我吧.......
如果你做出來了請寄到------ ljh99@ms41.hinet.net ----真是太謝謝你了
功能要求:
1.設計一15 *15的方形迷宮出口與入口固定可任意拆掉或建立分隔牆壁使出口到入口至少有一通道＜無通道也可以＞或可用隨機方式產生迷宮.
2.設計一程式可以自動探索一條從入口到出口的路徑.
3.記錄並顯示探索路徑所花費的時間
4.若路徑探索完畢,下次行走時可以直接由入口走道出口.
可以做出來讓我看一下嗎?
因為我做了好久都做不出來....我再不交,我就要被當了......求求你...救救我吧.......
如果你做出來了請寄到------ ljh99@ms41.hinet.net ----真是太謝謝你了
請問一下...有關於DLL的問題(編號：7865)
請問一下...
假如我有一個用C寫成的manual49.dll,內有一個函式為long myFunc(long num)我用VB6.0呼叫此函式,卻發生錯誤.
請問該如何解決?
Public Declare Function myFunc Lib "c:\258dll\manual49.dll" (ByVal num As Long) As Long
Private Sub Form_Load()
Dim a As Long
a = myFunc(99)
End Sub
假如我有一個用C寫成的manual49.dll,內有一個函式為long myFunc(long num)我用VB6.0呼叫此函式,卻發生錯誤.
請問該如何解決?
Public Declare Function myFunc Lib "c:\258dll\manual49.dll" (ByVal num As Long) As Long
Private Sub Form_Load()
Dim a As Long
a = myFunc(99)
End Sub
如何開啟ado(編號：7862)
各位高手,
我的程式是
cn = "provider=microsoft.jet.oledb.4.0;data source =" & app.path & "\database.mdb; persist security info = false"
rs.open "table", cn
set datagrid1.datasource = rs
當執行時, datagrid裡沒有顯示資料, 但table裡確實有data.
是否我程式錯誤?如何開啟呢?
謝謝
我的程式是
cn = "provider=microsoft.jet.oledb.4.0;data source =" & app.path & "\database.mdb; persist security info = false"
rs.open "table", cn
set datagrid1.datasource = rs
當執行時, datagrid裡沒有顯示資料, 但table裡確實有data.
是否我程式錯誤?如何開啟呢?
謝謝
救救我!(編號：7858)
想請問各位高手,如何在VB裡宣告EXCEL物件,是否需要在專案裡引用項目
,另外請問一下那裡可以找到它的相關屬性和方法,因為我想寫一個將文字
檔轉換成.xls的檔案,然後print出來!請各位高手幫幫忙...
,另外請問一下那裡可以找到它的相關屬性和方法,因為我想寫一個將文字
檔轉換成.xls的檔案,然後print出來!請各位高手幫幫忙...
[如何訪問Windows註冊表](編號：7857)
用VB可以對Windows註冊表進行訪問嗎？如果可以，怎麽訪問？又怎樣修改、刪除呢？用VB可以对Windows的注册表进行访问吗？如果可以，怎么访问？又怎样修改、删除呢？请把程序代码写下来。谢谢！
PARAM NAME 對應的事件?(編號：7855)
＜OBJECT classid="clsid:24.....＞
＜PARAM NAME="LOGVAL" VALUE=3＞
＜/OBJECT＞
以上使用ie編輯,那至＜PARAM NAME..時對應的VB active x control 事件是什麼呢?
以下是 VB active x control code
Option Explicit
Public LoginID As Integer
Public vNewValue
Public Property Get LogVal() As Variant
LogVal = LoginID
End Property
Public Property Let LogVal(ByVal vNewValue As Variant)
LoginID = vNewValue
PropertyChanged "LogVal"
Refresh
End Property
thk..
＜PARAM NAME="LOGVAL" VALUE=3＞
＜/OBJECT＞
以上使用ie編輯,那至＜PARAM NAME..時對應的VB active x control 事件是什麼呢?
以下是 VB active x control code
Option Explicit
Public LoginID As Integer
Public vNewValue
Public Property Get LogVal() As Variant
LogVal = LoginID
End Property
Public Property Let LogVal(ByVal vNewValue As Variant)
LoginID = vNewValue
PropertyChanged "LogVal"
Refresh
End Property
thk..
如何呼叫表單模組的程式？(編號：7854)
大家好：
我在主表單frmMain 中，有一個public sub aa() 程序
在MDI表單frmTest1中，欲呼叫aa程序
我的呼叫方法為call frmMain.aa
但系統卻出現「只能允許一個MDI表單」的錯誤訊息，
請問要怎樣呼叫才正確。
我在主表單frmMain 中，有一個public sub aa() 程序
在MDI表單frmTest1中，欲呼叫aa程序
我的呼叫方法為call frmMain.aa
但系統卻出現「只能允許一個MDI表單」的錯誤訊息，
請問要怎樣呼叫才正確。
請問recordset的問題(編號：7850)
請問各位高手，我現在在 vb 寫了一個dll，其中有一個recordset
叫rs，我先用rs.save把recordset save 成一個file, 再用temp.open去開，編輯過後再寫成屬性，在asp呼叫時，一旦recordset的大小過大，就會有錯誤產生，請問recordset有大小的限制嗎?(我想也許是我的recordset size 太大，所以造成error)
我曾試過上萬的data，但也轉出來了呀(只有一個field就是了啦)
叫rs，我先用rs.save把recordset save 成一個file, 再用temp.open去開，編輯過後再寫成屬性，在asp呼叫時，一旦recordset的大小過大，就會有錯誤產生，請問recordset有大小的限制嗎?(我想也許是我的recordset size 太大，所以造成error)
我曾試過上萬的data，但也轉出來了呀(只有一個field就是了啦)
請問要如何取得系統圖示(編號：7848)
我想要做一個類似檔案總管的程式，請問我要如何取得「我的電腦」、「我的文件夾」等的系統圖示？
另外，檔案關聯的圖示亦是要如何取得？例如說：有一個 MIDI 檔，我要取得在電腦上目前 MIDI 檔所用的圖示！
還有，取得的圖示要如何套用到 ListView 或 ImageList？
一連串問了一大堆的問題，先謝謝大家了！ ^_^
另外，檔案關聯的圖示亦是要如何取得？例如說：有一個 MIDI 檔，我要取得在電腦上目前 MIDI 檔所用的圖示！
還有，取得的圖示要如何套用到 ListView 或 ImageList？
一連串問了一大堆的問題，先謝謝大家了！ ^_^
RDS版本的大困擾(編號：7847)
我把RDS做進ActiveX UserControl
在NT40+SP4+VB6可以跑
當時Nt40的msadco.dll是2.0的樣子
後來加灌vb sp3所以mdac update到2.1版
不過不論是2.0或是2.1版都可以正常封裝cab檔
但是在Win2000之下,它內附的mdac是2.5版,
在實做上卻一直失敗,後來他(win2000)跑了一次
nt40下complie出來的.exe;後來在win2000之下
執行vb6跑其他的就可以了,RDS.DataCOntrol機碼
指來指去都是指向
C:\Program Files\Common Files\System\msadc
的msadco.dll
後來在VB6(at win2000)引用舊版RDS 1.5 or 2.0
包來包去也是可以包,但是就是只有win2000自己可以跑
其他的2000 nt40 win98 都不行;不過2000搞了好久
是可以了,但是那是慣了 一大堆亂七八糟的mdac,
我已經搞不清楚他是怎麼出來的.
我之前nt40可以跑,但是他跑了win2000的網頁含有新版
RDS的ActiveX userControl之後,後來就瘋了,也不能跑了
重灌後的nt40+sp4+VB6+vb6sp3包出來的CAB,2000 98 nt
都願意吃.
此外乾淨98聯win2000下載封包後重開,卻發生某個madc
重要元件註冊失敗,我在想是不是mdac管制很嚴?
根據RDS11 Readme.txt中提到:1.5 server版可以主控
1.1 和 1.5 Client版;那是不是指IIS的MSADC虛擬路徑中的
msadoc.dll是Server版,同時在Client端就扮演Client版呢?
是不是2.5無法直接主控2.5以下版本?
謝謝您抽空看這篇問題!!
在NT40+SP4+VB6可以跑
當時Nt40的msadco.dll是2.0的樣子
後來加灌vb sp3所以mdac update到2.1版
不過不論是2.0或是2.1版都可以正常封裝cab檔
但是在Win2000之下,它內附的mdac是2.5版,
在實做上卻一直失敗,後來他(win2000)跑了一次
nt40下complie出來的.exe;後來在win2000之下
執行vb6跑其他的就可以了,RDS.DataCOntrol機碼
指來指去都是指向
C:\Program Files\Common Files\System\msadc
的msadco.dll
後來在VB6(at win2000)引用舊版RDS 1.5 or 2.0
包來包去也是可以包,但是就是只有win2000自己可以跑
其他的2000 nt40 win98 都不行;不過2000搞了好久
是可以了,但是那是慣了 一大堆亂七八糟的mdac,
我已經搞不清楚他是怎麼出來的.
我之前nt40可以跑,但是他跑了win2000的網頁含有新版
RDS的ActiveX userControl之後,後來就瘋了,也不能跑了
重灌後的nt40+sp4+VB6+vb6sp3包出來的CAB,2000 98 nt
都願意吃.
此外乾淨98聯win2000下載封包後重開,卻發生某個madc
重要元件註冊失敗,我在想是不是mdac管制很嚴?
根據RDS11 Readme.txt中提到:1.5 server版可以主控
1.1 和 1.5 Client版;那是不是指IIS的MSADC虛擬路徑中的
msadoc.dll是Server版,同時在Client端就扮演Client版呢?
是不是2.5無法直接主控2.5以下版本?
謝謝您抽空看這篇問題!!
請問一秒到底是多長!?(編號：7846)
請問各位前輩~~
小弟的工作需要很精準的週期..每秒一個波形..
API:GetTickCount..以及Timer控制項..
小弟都試過了..
可惜8254不怎麼精準!!
可否有邏輯上較精準的觀念提供給小弟~~
謝謝~~^_^~~
小弟的工作需要很精準的週期..每秒一個波形..
API:GetTickCount..以及Timer控制項..
小弟都試過了..
可惜8254不怎麼精準!!
可否有邏輯上較精準的觀念提供給小弟~~
謝謝~~^_^~~
幫我解釋一下...(編號：7845)
在開啟vb後會先出現一個小視窗，裡面有"標準執行檔"、"ActiveX 執行檔"、等...可否幫我說明一下所有的意思嗎?
還有就是用"標準執行檔"寫一個程式後，可做成*.exe，做好以後按滑鼠右鍵→內容，可以看到版本，請問一下那個有何用意?
ok,就算有用要如何使用，如:做好的東西想修改...
還有就是用"標準執行檔"寫一個程式後，可做成*.exe，做好以後按滑鼠右鍵→內容，可以看到版本，請問一下那個有何用意?
ok,就算有用要如何使用，如:做好的東西想修改...
vb6.0無法讀取access2000資料表(編號：7844)
各位前輩:
請教以access2000空白資料庫建立資料表無法以vb6.0開啟
vb6.0data1屬性設定如下
connect:access
databasename:c:\123\123.mdb
recordsource:無法辨識資料庫格式:c:\123\123.mdb 說明 :MSDN語言集不存在
問題出在哪裡?請解危,多謝!
請教以access2000空白資料庫建立資料表無法以vb6.0開啟
vb6.0data1屬性設定如下
connect:access
databasename:c:\123\123.mdb
recordsource:無法辨識資料庫格式:c:\123\123.mdb 說明 :MSDN語言集不存在
問題出在哪裡?請解危,多謝!
I don't know how to do some...(編號：7843)
怎樣做?有4個option，如tick其中一個，then按command會出現相關圖片，但見miss做，好像得一個picture box，可能有幾個吧，得一張圖顯示出，其如的按了一個英文，不知是什麼英文，令其他的消失
再請問一下richard 幫我看一下如何改？程式碼在裡面！謝謝！(編號：7839)
' db.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/pcball.mdb")
' db.open "PCBALL"
db.Open "DSN=**;uid=sa;pwd=;database=**"
SQLQuery = "SELECT * FROM 大廣告"
Set rs = db.Execute(SQLQuery)
do while not rs.EOF
num=num+1
rs.MoveNext
loop
%＞
＜script language=vbscript＞
dim v,i,j
dim ary(＜%=num%＞)
＜%rs.MoveFirst%＞
＜% for i=0 to num-1 %＞
＜% IF rs("上檔日期") ＜= DATE and rs("下檔日期") ＞= DATE and rs("刊登與否") = "True" THEN %＞
＜% j=j+1 %＞
ary(＜%=j%＞)="＜a href='http://＜%=rs("連接網址")%＞' target='ttt'＞＜img src='./pictures/＜%=rs("圖檔位置")%＞' Alt='＜%=rs("廠商名稱")%＞' width='468' height='60'＞＜/a＞"
＜% END IF %＞
＜%rs.MoveNext%＞
＜% next %＞
sub pp
v=v mod ＜%=j%＞ +1
nn.innerhtml=ary(v)
end sub
sub window_onLoad
nTimer=SetInterVal("pp",30000,"Vbscript")
end sub
' db.open "PCBALL"
db.Open "DSN=**;uid=sa;pwd=;database=**"
SQLQuery = "SELECT * FROM 大廣告"
Set rs = db.Execute(SQLQuery)
do while not rs.EOF
num=num+1
rs.MoveNext
loop
%＞
＜script language=vbscript＞
dim v,i,j
dim ary(＜%=num%＞)
＜%rs.MoveFirst%＞
＜% for i=0 to num-1 %＞
＜% IF rs("上檔日期") ＜= DATE and rs("下檔日期") ＞= DATE and rs("刊登與否") = "True" THEN %＞
＜% j=j+1 %＞
ary(＜%=j%＞)="＜a href='http://＜%=rs("連接網址")%＞' target='ttt'＞＜img src='./pictures/＜%=rs("圖檔位置")%＞' Alt='＜%=rs("廠商名稱")%＞' width='468' height='60'＞＜/a＞"
＜% END IF %＞
＜%rs.MoveNext%＞
＜% next %＞
sub pp
v=v mod ＜%=j%＞ +1
nn.innerhtml=ary(v)
end sub
sub window_onLoad
nTimer=SetInterVal("pp",30000,"Vbscript")
end sub
可以幫幫我嗎？(編號：7837)
我想要讓網頁上的廣告圖示，在一開始時候先顯示第一張....之後再經過三十秒第二張這樣一直下去, 但我現在寫的VB SCRIPT是一開始出現的那張圖就要等三十秒才出現，各位高手請幫幫我，感激不盡！
請教一個問題.....(編號：7834)
我再vb寫好程式直接執行時,正確的是會顯示"資訊不足，無法繼續執行，請向本公司詢問"的字眼然後結束程式,可是當我編譯成執行檔之後,不只是會出現此字眼,還出現"執行階段錯誤'401';當有強制表單顯示時,無法再顯示非強制回應表單"的字眼,請問,會出現這樣的情況大部分是因為什麼原因呢?
[Win32 API]如何在Windows 2000將電腦關閉?(編號：7833)
我使用了ExitWindowsEx這個API在Windows 2000來關機,可是只能關到"你可以安心的關閉你的電腦",無法如同我們手動關機時連Power一起關掉,請問我該如何才能讓Power一起關掉?
如何在使用active x之前傳一個值給active x?(編號：7832)
小弟作了一個active x control,但要如何在使用這active x control之前,傳一個值給active x control?
thk..
thk..
一個 textbox 的問題(編號：7829)
請問是否在textbox.enabled=false 之下,更改字型的顏色.
我更改forecolor 的設定但只有在textbox..enabled=true 時,
才顯示出color.
我更改forecolor 的設定但只有在textbox..enabled=true 時,
才顯示出color.
如何設定ie的字型大小為適中?(編號：7827)
我用vb程式做成xml檔利用瀏覽器列印，可是如果字型大小不是"適中"，列印就會跑掉，有沒有高手知道如何在 htm 語法或javascript 中或是vb中設定ie的字型大小，謝謝!
請教！請教！(編號：7826)
我目前是vb及java的初學者，一次學兩種語言，覺得負擔滿重的，是否有人可以告訴我，應以那個為重，有人說java比較不會受拘束跨平台作業，但我比較喜歡vb，請問是否有人可以提供意見
AddressOf 的問題(編號：7824)
請教一個問題
小弟在學習關於Timeout的程式 想用SetTimer
Source code 如下
Form1:
Option Explicit
Private Sub Command1_Click()
SetTimer 0, 1, 15000, AddressOf timeout
End Sub
Private Sub Command2_Click()
KillTimer 0, 1
End Sub
在modul內宣告:
Public Sub timeout()
MsgBox "timeout"
End Sub
但在執行後會有違法存取記憶體的錯誤發生,我想是使用 AddressOf 所引發的問題
請問該如何避免這類問題?還是另有原因?
小弟在學習關於Timeout的程式 想用SetTimer
Source code 如下
Form1:
Option Explicit
Private Sub Command1_Click()
SetTimer 0, 1, 15000, AddressOf timeout
End Sub
Private Sub Command2_Click()
KillTimer 0, 1
End Sub
在modul內宣告:
Public Sub timeout()
MsgBox "timeout"
End Sub
但在執行後會有違法存取記憶體的錯誤發生,我想是使用 AddressOf 所引發的問題
請問該如何避免這類問題?還是另有原因?
想要準備把現有程式升級到 VB.NET 嗎？(編號：7823)
Preparing Your Visual Basic 6.0 Applications for the Upgrade to Visual Basic.NET
http://msdn.microsoft.com/library/techart/vb6tovbdotnet.htm
http://msdn.microsoft.com/library/techart/vb6tovbdotnet.htm
請問如何寫一個機制(計算時間)???(編號：7819)
請問如何寫一個機制(計算時間)???
因為本人程式功力尚低,所以想請問高手,如何寫一個可以計算
時間的機制???
它可以不受限制的計算時間(因為timer函數有限制,不能超過~~等)
我想要的機制是可計算天,時,分,秒,且格式是integr,因為要把它
拿去做別的用途~~~
我知道我這樣很沒有研究精神,但是我因為真的沒有太多時間,
且此機制只是我程式中的一個模組,我的程式功力尚低,我們專
題快要檢查了,我希望能得到各位高手的幫忙..謝謝^_^
因為本人程式功力尚低,所以想請問高手,如何寫一個可以計算
時間的機制???
它可以不受限制的計算時間(因為timer函數有限制,不能超過~~等)
我想要的機制是可計算天,時,分,秒,且格式是integr,因為要把它
拿去做別的用途~~~
我知道我這樣很沒有研究精神,但是我因為真的沒有太多時間,
且此機制只是我程式中的一個模組,我的程式功力尚低,我們專
題快要檢查了,我希望能得到各位高手的幫忙..謝謝^_^
100萬筆資料的載入問題?(編號：7816)
若有個資料庫有100萬筆記錄,如果要於form load 時一次載入根本是不可能的事,請問有沒有辦法在form load時先載入幾筆,於按上/下一筆時再載入上/下一筆? 謝謝!
如何將IP轉成domain name形式?(編號：7814)
如果我用winsock1.localip得到了ip存入label1.caption
現在必須將ip轉成domain name形式(ex:computer.aaaa.com.tw)
請問該怎麼做呢?
現在必須將ip轉成domain name形式(ex:computer.aaaa.com.tw)
請問該怎麼做呢?
如何防止瀏覽器偷懶?(編號：7812)
在作網頁超連結時,已下載過的網頁如果再度呼叫連結,並不從伺服端
重新下載,導致有些參數無法更新,現祇有手動按下"重新整理"鍵,才可
解決,不知有何網頁指令寫法可免除按鍵? 煩請高手指點! THANK....
重新下載,導致有些參數無法更新,現祇有手動按下"重新整理"鍵,才可
解決,不知有何網頁指令寫法可免除按鍵? 煩請高手指點! THANK....
使表單右上角的 'X' 按鈕失效的簡便方式 (初學者適用)(編號：7811)
我們都知道運用API函數可以做到將表單右上角的 'X' 按鈕desabled, 也就是不能按
但是此方式要懂得API,還要知道怎麼用,而且撰寫上較麻煩
對於VB的初學者來講太困難
以下程式碼可以不呼叫API而讓 'X' 按了沒作用(是按了沒作用,不是不能按)
給大家參考參考~ ^_^
首先宣告一個Form範圍的Boolean變數:
Dim f_bXX As Boolean
再在標單上佈置一個 CommandButton
將以下程式碼copy到VB中
OK, 讓讓看吧~
Private Sub Form_Load()
Command1.Caption = "關閉表單"
End Sub
Private Sub Command1_Click()
f_bXX = True
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
If f_bXX = False Then Cancel = True
End Sub
但是此方式要懂得API,還要知道怎麼用,而且撰寫上較麻煩
對於VB的初學者來講太困難
以下程式碼可以不呼叫API而讓 'X' 按了沒作用(是按了沒作用,不是不能按)
給大家參考參考~ ^_^
首先宣告一個Form範圍的Boolean變數:
Dim f_bXX As Boolean
再在標單上佈置一個 CommandButton
將以下程式碼copy到VB中
OK, 讓讓看吧~
Private Sub Form_Load()
Command1.Caption = "關閉表單"
End Sub
Private Sub Command1_Click()
f_bXX = True
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
If f_bXX = False Then Cancel = True
End Sub
如何取得Where成立之下一個資料錄??(編號：7808)
Ex:
第一筆資料錄的NowDate Field為"2000/11/10"，第二筆的NowDate
為"2000/12/20"
Adodc1.Recordsource="Select ....... where [NowDate]=#2000/11/10#"
小弟曾想過用FindNext找到"2000/11/10"後再用MoveNext，但若有
幾萬甚至幾十萬的資料錄，用FindNext的效率實在是不怎麼好！
請問各位先進有更好的方法嗎??
第一筆資料錄的NowDate Field為"2000/11/10"，第二筆的NowDate
為"2000/12/20"
Adodc1.Recordsource="Select ....... where [NowDate]=#2000/11/10#"
小弟曾想過用FindNext找到"2000/11/10"後再用MoveNext，但若有
幾萬甚至幾十萬的資料錄，用FindNext的效率實在是不怎麼好！
請問各位先進有更好的方法嗎??
MSHFlexGrid儲存格的顏色(編號：7807)
MSHFlexGrid儲存格的內容可用TextMatrix,請問有無方法可設定其儲存格的forecolor,CellForeColor好像必須滑鼠去點了之後才能更改，或有無屬性可不經過滑鼠click之後而更改MSHFlexGrid的駐點？thanks!(VB6.0:SP3)
how build multiple window program(編號：7806)
Dear ALL,
u know VB itself, the devlopment environment is something like:
left - drawing plattele
right - two boxes for exploring and propeties
some softwares like photoshop, there are similar toolboxes placing on the left and right
leave the middle for displaying the chart or the main contents
So I hope to know how to build such toolboxes
if any one have similar VB source code or reference URL, please kindly help me.
thks for yr geneuie help
u know VB itself, the devlopment environment is something like:
left - drawing plattele
right - two boxes for exploring and propeties
some softwares like photoshop, there are similar toolboxes placing on the left and right
leave the middle for displaying the chart or the main contents
So I hope to know how to build such toolboxes
if any one have similar VB source code or reference URL, please kindly help me.
thks for yr geneuie help
請幫忙: VB的DLL(編號：7805)
請問我要如何用(或有資料), 將一個用VB寫的程式(資料庫查詢), 變成DLL的方式,我有看到VB的DLL(Active X DLL,DHTML.....??), 但不知如何用?和一般所用的"標準執行檔"不同?? 還是有別的FUNCTION
可將 VB程式轉為DLL?? THK!!
可將 VB程式轉為DLL?? THK!!
宣告在同一個物件上(編號：7803)
有一個問題我一直搞不懂
宣告2個東西在同一個物件上
雖然不會衝突到
可是當sfd改成fd時就出錯
不知道sfd和fd有什麼差別??
Private Sub Command1_Click()
Dim fs As New FileSystemObject
Dim fd As Folder
Dim sfd As Folder
Set fd = fs.GetFolder("c:\")
For Each sfd In fd.SubFolders
List1.AddItem sfd.Name
Next
End Sub
宣告2個東西在同一個物件上
雖然不會衝突到
可是當sfd改成fd時就出錯
不知道sfd和fd有什麼差別??
Private Sub Command1_Click()
Dim fs As New FileSystemObject
Dim fd As Folder
Dim sfd As Folder
Set fd = fs.GetFolder("c:\")
For Each sfd In fd.SubFolders
List1.AddItem sfd.Name
Next
End Sub
請問如何可以鎖定輸入法呢?(編號：7802)
請問各位, 如何可以在執行後, 自動設定位倉頡輸入法, 並鎖定,即是使用者按en 位置,或按ctrl shift, 也不能改變輸入法?vb 碼是什麼呢?請問各位, 該如何寫呢? thanks a lot~
請問如何可以存檔,而不用彈出save as對話框呢?(編號：7801)
請問如何可以按一個按鈕, 就可以用abc.txt的檔名,存檔在A drive,而不用彈出save as對話框呢? 請各位前輩幫忙. thanks~
請問如何關閉(鎖定)螢幕小鍵盤呢?(編號：7800)
請問如何關閉(鎖定)螢幕小鍵盤呢?
若我想執行時, 自動轉做倉頡輸入, 並關閉螢幕小鍵盤, 用者不能再開出小鍵盤,請問各位前輩, vb程式碼是怎樣寫呢?謝謝.
若我想執行時, 自動轉做倉頡輸入, 並關閉螢幕小鍵盤, 用者不能再開出小鍵盤,請問各位前輩, vb程式碼是怎樣寫呢?謝謝.
請問一個有關寫入檔案的問題？(編號：7799)
我利用程式將資料寫入文字檔內，可是在文字檔裡會多出" "有辦法消除掉嗎？程式碼以及結果如下：
Open "company" For Output As #1
Write #1, Text1.Text
Close #1
結果： "123456789"
我想得到的結果是 123456789
感謝各位前輩幫我解答。
Open "company" For Output As #1
Write #1, Text1.Text
Close #1
結果： "123456789"
我想得到的結果是 123456789
感謝各位前輩幫我解答。
如何讓表單像winamp的popmenu一樣的方式顯現?(編號：7797)
我想做一張表單像winamp的按右鍵跳出表單一樣的功能....
但不知怎麼表單好像有點delay的方式顯現...
每次表單都會一下子就跳出來...
曾試過讓表單的長寬從0跑到預定大小..
但效果不好~~ 麻煩知道的人告知該如何做呢??
但不知怎麼表單好像有點delay的方式顯現...
每次表單都會一下子就跳出來...
曾試過讓表單的長寬從0跑到預定大小..
但效果不好~~ 麻煩知道的人告知該如何做呢??
關於搜尋2~~~(編號：7796)
請問,如以下之片段程式:
Private Sub Command1_Click()
On Error GoTo selerror
Adodc1.Recordset.Filter = Combo1.Text & "'" & Text1.Text & "'"
Exit Sub
end sub
其中Combo1.Text & "'" & Text1.Text & "'"若要改成combo1.text = text1.text and combo1.text = text2.text
也就是查詢"兩個條件"程式該怎麼寫呢??
小女子先謝謝大家囉~~~
Private Sub Command1_Click()
On Error GoTo selerror
Adodc1.Recordset.Filter = Combo1.Text & "'" & Text1.Text & "'"
Exit Sub
end sub
其中Combo1.Text & "'" & Text1.Text & "'"若要改成combo1.text = text1.text and combo1.text = text2.text
也就是查詢"兩個條件"程式該怎麼寫呢??
小女子先謝謝大家囉~~~
關於搜尋~~~(編號：7795)
請問,如以下之片段程式:
Private Sub Command1_Click()
On Error GoTo selerror
Adodc1.Recordset.Filter = Combo1.Text & "=#" & Text1.Text & "#"
Exit Sub
end sub
其中Combo1.Text & "=#" & Text1.Text & "#"若要改成combo1.text ＞ text1.text and combo1.text ＜ text2.text
也就是查詢"某一段時間"程式該怎麼寫呢??
小女子先謝謝大家囉~~~
Private Sub Command1_Click()
On Error GoTo selerror
Adodc1.Recordset.Filter = Combo1.Text & "=#" & Text1.Text & "#"
Exit Sub
end sub
其中Combo1.Text & "=#" & Text1.Text & "#"若要改成combo1.text ＞ text1.text and combo1.text ＜ text2.text
也就是查詢"某一段時間"程式該怎麼寫呢??
小女子先謝謝大家囉~~~
VB 修改文字檔的問題？(((急件)))(編號：7789)
如果我的 .txt 檔案如下：
1║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║
2║111║222║333║333║555║666║777║888║999║
3║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║
4║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║
5║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║
我想用 VB 去修改第二行的第四個爛位改成 444
其他資料不更動！怎麼寫呢？...
寫的越簡單越好！我只是要一個關念！....
1║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║
2║111║222║333║333║555║666║777║888║999║
3║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║
4║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║
5║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║xxx║
我想用 VB 去修改第二行的第四個爛位改成 444
其他資料不更動！怎麼寫呢？...
寫的越簡單越好！我只是要一個關念！....
幫忙測試天干地支星期函數(DateSerial_RC)是否有誤？(編號：7786)
1)近日因興趣要寫一支可以處理如兩千年中西曆轉換的程式，部份對照資料己在網路
找到，請眾網友測試最基本的天干地支星期函數(DateSerial_RC)
測試方法 ?dateSerial_RC(年,月,日)
資料範圍為西元1年1月日~
2)有錯誤者，請告知。
Public Enum Spencia_Month_value
Normal_Feb = 1
Leap_Feb = 2
Special_Sep = 5
Sepecial_Oct = 6
End Enum
Public Enum Normal_Month_Value
Jan = 1
Feb = 2
Mar = 3
Apr = 4
May = 5
Jun = 6
Jul = 7
Aug = 8
Sep = 9
Oct = 10
Nov = 11
Dec = 12
End Enum
Public Enum Normal_Week_Value
Sunday = 1
Monday = 2
Tuesday = 3
Wednesday = 4
Thursday = 5
Friday = 6
Saturday = 0
End Enum
' ----------------------------
' Global Variables
' ----------------------------
Public gstrMonths(1 To 12) As String
Public gintMonth_Days(1 To 12) As Long
'
'=========================================================================================
' 目 的: 計算天數--天主教國家算法。
' 假 設:
' 效 果:
' 輸 入 值: Integer: lngYear
' Integer lngMonth
' Integer lngDay
' 傳 回 值: Long: DateSerial_AD
' 參考資料: the Mandelbrot Set (International) Limited, "Advanced Microsoft Visual Basic
' Secode Edition", Chapter 8.
'
' 測試資料: (4/2/29),(1582/10/3),(1582/10/4)(1582/10/15)
'
' 日 期 By COMMENT
' ---------- ---- -------
' 2000/11/17 SY 建立
'=========================================================================================
Public Function DateSerial_RC(ByVal lngYear As Long, ByVal lngMonth As Long, ByVal lngDay As Long) As Long
Dim intCount As Integer
Dim lngKan_Day As Long
Dim lngKan_Year As Long
Dim lngLeapYear As Long
Dim lngToYearDay As Long
Dim lngToMonthDay As Long
Dim lngToTotalDay As Long
Dim lngWeekDay As Long
Dim strKan_Year As String
Dim strKan_Day As String
Dim strWeek As String
' 給陣列起始值。
gintMonth_Days(1) = 31
gintMonth_Days(2) = 28
gintMonth_Days(3) = 31
gintMonth_Days(4) = 30
gintMonth_Days(5) = 31
gintMonth_Days(6) = 30
gintMonth_Days(7) = 31
gintMonth_Days(8) = 31
gintMonth_Days(9) = 30
gintMonth_Days(10) = 31
gintMonth_Days(11) = 30
gintMonth_Days(12) = 31
' 給零的起始值。
lngToYearDay = 0
' 先行計算[參數：年]之前，有多少個閏年。
' Int 和 Fix 都會去掉 number 的小數部份而傳回剩下的整數。
Select Case lngYear
Case 4
lngLeapYear = 0
Case 5 To 1582
lngLeapYear = (lngYear - 1) \ 4 - 1
Case Is ＞= 1583
lngLeapYear = Fix((lngYear - 1) / 4 - (lngYear - 1) / 100 + (lngYear - 1) / 400) + 1
End Select
' 計算[參數：年]是否為閏年。
If Leap_RC(lngYear) = Leap_Feb Then
gintMonth_Days(Feb) = 29
End If
' 因為1582年10月只有21天(少10天)。
If lngYear = 1582 Then
gintMonth_Days(Oct) = 21
End If
' 計算年的數字。
lngToYearDay = lngLeapYear + (lngYear - 1) * 365
' 計算月的數字。
For intCount = 1 To lngMonth - 1
lngToMonthDay = lngToMonthDay + gintMonth_Days(intCount)
Next intCount
' 計算天數。
lngToTotalDay = lngToYearDay + lngToMonthDay + lngDay
DateSerial_RC = lngToTotalDay
' 計算星期。
lngWeekDay = lngToTotalDay Mod 7
' 計算天支地支的序號--歲次。
lngKan_Year = (lngYear + 57) Mod 60
' 計算天支地支的序號--紀日。
lngKan_Day = (lngToTotalDay + 14) Mod 60
Select Case lngWeekDay
Case Sunday
strWeek = "星期日"
Case Monday
strWeek = "星期一"
Case Tuesday
strWeek = "星期二"
Case Wednesday
strWeek = "星期三"
Case Thursday
strWeek = "星期四"
Case Friday
strWeek = "星期五"
Case Saturday
strWeek = "星期六"
End Select
strKan_Year = KanChih(lngKan_Year)
strKan_Day = KanChih(lngKan_Day)
Debug.Print "星期: ", strWeek, "歲次", strKan_Year, "紀日: ", strKan_Day
End Function
'=========================================================================================
' 目 的: 判斷是否為閏年--天主教國家算法。
' 假 設:
' 效 果:
' 輸 入 值: Long: lngYear
' 傳 回 值: Long: Leap_RC
' 參考資料:
' 測試資料: 4,8,100,400,1582,1600,1700
'
' 日 期 By COMMENT
' ---------- ---- -------
' 2000/11/17 SY 建立
'=========================================================================================
Public Function Leap_RC(ByVal lngYear As Integer) As Long
If lngYear ＜＞ 4 Then
Select Case (lngYear - 1582)
Case Is ＜ 0
If (lngYear Mod 4 = 0) Then
Leap_RC = Leap_Feb
Else
Leap_RC = Normal_Feb
End If
Case Is ＞ 0
If ((lngYear Mod 4 = 0) And (lngYear Mod 100 ＜＞ 0) Or (lngYear Mod 400 = 0)) Then
Leap_RC = Leap_Feb
Else
Leap_RC = Normal_Feb
End If
Case Is = 0
Leap_RC = Normal_Feb
End Select
Else
' 西曆4年（該年為閏年：被4整除且不被100整除），因羅馬皇帝「奧古斯都帝」停閏，故該年
' 二月只有二十八天，而非二十九天
Leap_RC = Normal_Feb
End If
End Function
'=========================================================================================
' 目 的: 判斷是否為閏年。(1899/12/30 00:00:00之後算法)
' 參考資料: 簡易型。
'
' 日 期 By COMMENT
' ---------- ---- -------
' 2000/11/17 SY 建立
'=========================================================================================
Public Function IsLeapYear(TestYear As Integer) As Boolean
IsLeapYear = (Day(DateSerial(TestYear, 3, 0)) = 29)
End Function
'=========================================================================================
' 目 的: 列示天干地支字串。
' 參考資料:
'
' 日 期 By COMMENT
' ---------- ---- -------
' 2000/11/17 SY 建立
'=========================================================================================
Public Function KanChih(ByVal lngKan As Long) As String
Dim strKan(1 To 60) As String
strKan(1) = "甲子"
strKan(2) = "乙丑"
strKan(3) = "丙寅"
strKan(4) = "丁卯"
strKan(5) = "戊辰"
strKan(6) = "己巳"
strKan(7) = "庚午"
strKan(8) = "辛未"
strKan(9) = "壬申"
strKan(10) = "癸酉"
strKan(11) = "甲戌"
strKan(12) = "乙亥"
strKan(13) = "丙子"
strKan(14) = "丁丑"
strKan(15) = "戊寅"
strKan(16) = "己卯"
strKan(17) = "庚辰"
strKan(18) = "辛巳"
strKan(19) = "壬午"
strKan(20) = "癸未"
strKan(21) = "甲申"
strKan(22) = "乙酉"
strKan(23) = "丙戌"
strKan(24) = "丁亥"
strKan(25) = "戊子"
strKan(26) = "己丑"
strKan(27) = "庚寅"
strKan(28) = "辛卯"
strKan(29) = "壬辰"
strKan(30) = "癸巳"
strKan(31) = "甲午"
strKan(32) = "乙未"
strKan(33) = "丙申"
strKan(34) = "丁酉"
strKan(35) = "戊戌"
strKan(36) = "己亥"
strKan(37) = "庚子"
strKan(38) = "辛丑"
strKan(39) = "壬寅"
strKan(40) = "癸卯"
strKan(41) = "甲辰"
strKan(42) = "乙巳"
strKan(43) = "丙午"
strKan(44) = "丁未"
strKan(45) = "戊申"
strKan(46) = "己酉"
strKan(47) = "庚戌"
strKan(48) = "辛亥"
strKan(49) = "壬子"
strKan(50) = "癸丑"
strKan(51) = "甲寅"
strKan(52) = "乙卯"
strKan(53) = "丙辰"
strKan(54) = "丁巳"
strKan(55) = "戊午"
strKan(56) = "己未"
strKan(57) = "庚申"
strKan(58) = "辛酉"
strKan(59) = "壬戌"
strKan(60) = "癸亥"
KanChih = strKan(lngKan)
End Function
找到，請眾網友測試最基本的天干地支星期函數(DateSerial_RC)
測試方法 ?dateSerial_RC(年,月,日)
資料範圍為西元1年1月日~
2)有錯誤者，請告知。
Public Enum Spencia_Month_value
Normal_Feb = 1
Leap_Feb = 2
Special_Sep = 5
Sepecial_Oct = 6
End Enum
Public Enum Normal_Month_Value
Jan = 1
Feb = 2
Mar = 3
Apr = 4
May = 5
Jun = 6
Jul = 7
Aug = 8
Sep = 9
Oct = 10
Nov = 11
Dec = 12
End Enum
Public Enum Normal_Week_Value
Sunday = 1
Monday = 2
Tuesday = 3
Wednesday = 4
Thursday = 5
Friday = 6
Saturday = 0
End Enum
' ----------------------------
' Global Variables
' ----------------------------
Public gstrMonths(1 To 12) As String
Public gintMonth_Days(1 To 12) As Long
'
'=========================================================================================
' 目 的: 計算天數--天主教國家算法。
' 假 設:
' 效 果:
' 輸 入 值: Integer: lngYear
' Integer lngMonth
' Integer lngDay
' 傳 回 值: Long: DateSerial_AD
' 參考資料: the Mandelbrot Set (International) Limited, "Advanced Microsoft Visual Basic
' Secode Edition", Chapter 8.
'
' 測試資料: (4/2/29),(1582/10/3),(1582/10/4)(1582/10/15)
'
' 日 期 By COMMENT
' ---------- ---- -------
' 2000/11/17 SY 建立
'=========================================================================================
Public Function DateSerial_RC(ByVal lngYear As Long, ByVal lngMonth As Long, ByVal lngDay As Long) As Long
Dim intCount As Integer
Dim lngKan_Day As Long
Dim lngKan_Year As Long
Dim lngLeapYear As Long
Dim lngToYearDay As Long
Dim lngToMonthDay As Long
Dim lngToTotalDay As Long
Dim lngWeekDay As Long
Dim strKan_Year As String
Dim strKan_Day As String
Dim strWeek As String
' 給陣列起始值。
gintMonth_Days(1) = 31
gintMonth_Days(2) = 28
gintMonth_Days(3) = 31
gintMonth_Days(4) = 30
gintMonth_Days(5) = 31
gintMonth_Days(6) = 30
gintMonth_Days(7) = 31
gintMonth_Days(8) = 31
gintMonth_Days(9) = 30
gintMonth_Days(10) = 31
gintMonth_Days(11) = 30
gintMonth_Days(12) = 31
' 給零的起始值。
lngToYearDay = 0
' 先行計算[參數：年]之前，有多少個閏年。
' Int 和 Fix 都會去掉 number 的小數部份而傳回剩下的整數。
Select Case lngYear
Case 4
lngLeapYear = 0
Case 5 To 1582
lngLeapYear = (lngYear - 1) \ 4 - 1
Case Is ＞= 1583
lngLeapYear = Fix((lngYear - 1) / 4 - (lngYear - 1) / 100 + (lngYear - 1) / 400) + 1
End Select
' 計算[參數：年]是否為閏年。
If Leap_RC(lngYear) = Leap_Feb Then
gintMonth_Days(Feb) = 29
End If
' 因為1582年10月只有21天(少10天)。
If lngYear = 1582 Then
gintMonth_Days(Oct) = 21
End If
' 計算年的數字。
lngToYearDay = lngLeapYear + (lngYear - 1) * 365
' 計算月的數字。
For intCount = 1 To lngMonth - 1
lngToMonthDay = lngToMonthDay + gintMonth_Days(intCount)
Next intCount
' 計算天數。
lngToTotalDay = lngToYearDay + lngToMonthDay + lngDay
DateSerial_RC = lngToTotalDay
' 計算星期。
lngWeekDay = lngToTotalDay Mod 7
' 計算天支地支的序號--歲次。
lngKan_Year = (lngYear + 57) Mod 60
' 計算天支地支的序號--紀日。
lngKan_Day = (lngToTotalDay + 14) Mod 60
Select Case lngWeekDay
Case Sunday
strWeek = "星期日"
Case Monday
strWeek = "星期一"
Case Tuesday
strWeek = "星期二"
Case Wednesday
strWeek = "星期三"
Case Thursday
strWeek = "星期四"
Case Friday
strWeek = "星期五"
Case Saturday
strWeek = "星期六"
End Select
strKan_Year = KanChih(lngKan_Year)
strKan_Day = KanChih(lngKan_Day)
Debug.Print "星期: ", strWeek, "歲次", strKan_Year, "紀日: ", strKan_Day
End Function
'=========================================================================================
' 目 的: 判斷是否為閏年--天主教國家算法。
' 假 設:
' 效 果:
' 輸 入 值: Long: lngYear
' 傳 回 值: Long: Leap_RC
' 參考資料:
' 測試資料: 4,8,100,400,1582,1600,1700
'
' 日 期 By COMMENT
' ---------- ---- -------
' 2000/11/17 SY 建立
'=========================================================================================
Public Function Leap_RC(ByVal lngYear As Integer) As Long
If lngYear ＜＞ 4 Then
Select Case (lngYear - 1582)
Case Is ＜ 0
If (lngYear Mod 4 = 0) Then
Leap_RC = Leap_Feb
Else
Leap_RC = Normal_Feb
End If
Case Is ＞ 0
If ((lngYear Mod 4 = 0) And (lngYear Mod 100 ＜＞ 0) Or (lngYear Mod 400 = 0)) Then
Leap_RC = Leap_Feb
Else
Leap_RC = Normal_Feb
End If
Case Is = 0
Leap_RC = Normal_Feb
End Select
Else
' 西曆4年（該年為閏年：被4整除且不被100整除），因羅馬皇帝「奧古斯都帝」停閏，故該年
' 二月只有二十八天，而非二十九天
Leap_RC = Normal_Feb
End If
End Function
'=========================================================================================
' 目 的: 判斷是否為閏年。(1899/12/30 00:00:00之後算法)
' 參考資料: 簡易型。
'
' 日 期 By COMMENT
' ---------- ---- -------
' 2000/11/17 SY 建立
'=========================================================================================
Public Function IsLeapYear(TestYear As Integer) As Boolean
IsLeapYear = (Day(DateSerial(TestYear, 3, 0)) = 29)
End Function
'=========================================================================================
' 目 的: 列示天干地支字串。
' 參考資料:
'
' 日 期 By COMMENT
' ---------- ---- -------
' 2000/11/17 SY 建立
'=========================================================================================
Public Function KanChih(ByVal lngKan As Long) As String
Dim strKan(1 To 60) As String
strKan(1) = "甲子"
strKan(2) = "乙丑"
strKan(3) = "丙寅"
strKan(4) = "丁卯"
strKan(5) = "戊辰"
strKan(6) = "己巳"
strKan(7) = "庚午"
strKan(8) = "辛未"
strKan(9) = "壬申"
strKan(10) = "癸酉"
strKan(11) = "甲戌"
strKan(12) = "乙亥"
strKan(13) = "丙子"
strKan(14) = "丁丑"
strKan(15) = "戊寅"
strKan(16) = "己卯"
strKan(17) = "庚辰"
strKan(18) = "辛巳"
strKan(19) = "壬午"
strKan(20) = "癸未"
strKan(21) = "甲申"
strKan(22) = "乙酉"
strKan(23) = "丙戌"
strKan(24) = "丁亥"
strKan(25) = "戊子"
strKan(26) = "己丑"
strKan(27) = "庚寅"
strKan(28) = "辛卯"
strKan(29) = "壬辰"
strKan(30) = "癸巳"
strKan(31) = "甲午"
strKan(32) = "乙未"
strKan(33) = "丙申"
strKan(34) = "丁酉"
strKan(35) = "戊戌"
strKan(36) = "己亥"
strKan(37) = "庚子"
strKan(38) = "辛丑"
strKan(39) = "壬寅"
strKan(40) = "癸卯"
strKan(41) = "甲辰"
strKan(42) = "乙巳"
strKan(43) = "丙午"
strKan(44) = "丁未"
strKan(45) = "戊申"
strKan(46) = "己酉"
strKan(47) = "庚戌"
strKan(48) = "辛亥"
strKan(49) = "壬子"
strKan(50) = "癸丑"
strKan(51) = "甲寅"
strKan(52) = "乙卯"
strKan(53) = "丙辰"
strKan(54) = "丁巳"
strKan(55) = "戊午"
strKan(56) = "己未"
strKan(57) = "庚申"
strKan(58) = "辛酉"
strKan(59) = "壬戌"
strKan(60) = "癸亥"
KanChih = strKan(lngKan)
End Function
如何將from 的Title 移到左邊呢？(編號：7784)
我記得之前看過範例！
好像是用 API 做到的！
有人可以教我嗎？把範例 Post 出來 謝謝。
我知道王國榮API 的書有！但有沒有書！
有人可以把範例 貼出來或是 E-mail 到我的
信箱嗎？ 謝謝~yuchiehlee@joymail.com
好像是用 API 做到的！
有人可以教我嗎？把範例 Post 出來 謝謝。
我知道王國榮API 的書有！但有沒有書！
有人可以把範例 貼出來或是 E-mail 到我的
信箱嗎？ 謝謝~yuchiehlee@joymail.com
如何做出類似acdsee的秀圖功能(編號：7782)
如何做出類似acdsee的秀圖功能,可以顯示某目錄中的檔名,可用scrllbar)向下移動,在檔名上方有小圖,點小圖之後可顯示大圖,其架構是如何........是否可請大家指點指點
鎖定特定鍵ALT(編號：7781)
各位網友好,感謝上次各位網友的協助,問題已經差不多解決...只是還有兩個問題想要請教各位..(1)可否完全鎖定ALT鍵?當使用者按下ALT後先攔截並且取消這個鍵的作用?還是有其他方法..?(2)小弟我試了好幾次就是不成功,關於視窗不會被遮蓋的技巧,我知道Win API一書中有提到,但是我始終無法成功..希望各位高手能指導一下,謝謝!@!!!!
請問各位!你們覺得是寫一般的應用程式比較難!還是資料庫?(編號：7778)
請問各位!你們覺得是寫一般的應用程式比較難!還是資料庫?
我所謂的一般的應用程式,是指比如Notepad`RichWin`GetRight
等等的...
謝謝.
我所謂的一般的應用程式,是指比如Notepad`RichWin`GetRight
等等的...
謝謝.
Oracle 有沒有儲存STORED PROCEDURE????(編號：7777)
在SQL Server 7.0 the STORED PROCEDURE is LIKE
The Stored Procedure name is "GET_EMP_NO"
st = "GET_EMP_NO '123'"
Set rs = DB.OpenRecordSet( st, 64)
.....
.....
In Oracle?
How to Create the "GET_EMP_NO"???
有冇人知道?
The Stored Procedure name is "GET_EMP_NO"
st = "GET_EMP_NO '123'"
Set rs = DB.OpenRecordSet( st, 64)
.....
.....
In Oracle?
How to Create the "GET_EMP_NO"???
有冇人知道?
Inet object FTP 急...(編號：7776)
請教各位 :當我用 Inet object 執行 .Execute, "get" xxx aaa 一個檔案,可以成功 ,可是 server 想 kill 檔案 xxx 確被 lock 住,一定要重開機才行, .Execute,"close " 也執行了, Inet.cancel 也執行了,為何不行,救火一下,拜拖!洩洩!
如何做字串分割(編號：7775)
現在我得到一個字串 是e-mail格式的
string1="AAAA@XXXX.XXX.XX"
請問我該怎麼寫將"@"前面的帳號存入string2
"@"後面的主機存入string3
使得string2="AAAA"
string3="XXXX.XXX.XX"
???
string1="AAAA@XXXX.XXX.XX"
請問我該怎麼寫將"@"前面的帳號存入string2
"@"後面的主機存入string3
使得string2="AAAA"
string3="XXXX.XXX.XX"
???
如何做字串分割(編號：7774)
現在我得到一個字串 是e-mail格式的
string1="AAAA@XXXX.XXX.XX"
請問我該怎麼寫將"@"前面的帳號存入string2
"@"後面的主機存入string3
使得string2="AAAA"
string3="XXXX.XXX.XX"
???
string1="AAAA@XXXX.XXX.XX"
請問我該怎麼寫將"@"前面的帳號存入string2
"@"後面的主機存入string3
使得string2="AAAA"
string3="XXXX.XXX.XX"
???
誰殺了odbc資料來源管理員?真的是我嗎?(編號：7773)
請問我用vb5製作安裝程式後,安裝至PC後竟然WIN98的odbc資料來源管理員損壞,要將其恢復正常98要重灌,但不是安裝到美每一部都會.
有人知道怎麼回嗎?或要恢復odbc資料來源管理員正常WORK如何不需重灌,help me !
有人知道怎麼回嗎?或要恢復odbc資料來源管理員正常WORK如何不需重灌,help me !
在請教程式的問題？(編號：7770)
我在程式裡面寫要載圖形檔，如果在VB裡執行可以執行，可是編譯成EXE檔後就告訴我找不到檔案，請問知道的前輩，為什麼呢？程式檔如下：
If Dir("logo.jpg") ＜＞ "" Then
Image1.Picture = LoadPicture("logo.jpg")
End If
If Dir("company") ＜＞ "" Then
Open "company" For Input As #1
Do While Not EOF(1)
Line Input #1, TmpStr
Label1 = TmpStr
Loop
Close #1
End If
If Dir("logo.jpg") ＜＞ "" Then
Image1.Picture = LoadPicture("logo.jpg")
End If
If Dir("company") ＜＞ "" Then
Open "company" For Input As #1
Do While Not EOF(1)
Line Input #1, TmpStr
Label1 = TmpStr
Loop
Close #1
End If
請問APEX DBGRID和VB內的DBGRID有那些差異?(編號：7769)
我想知道APEX DBGRID和VB內建的DBGRID有什麼差異,是不是APEXDBGRID有那些地方比VB的DBGRID好用?另外那裡有APEX DBGRID的使用方法?
請教封裝精靈的問題？(編號：7768)
我在執行封裝時，結果在"請選擇封裝後存放的資料夾"的時候，程式就沒有回應了（我已經選好存放位置，按下一步之後才發生），我真的不知道我哪裡弄錯了，請知道的人告訴我好嗎？感激不盡！
使用 DAO 元件 DataControl 如何存取 Access 2000?(編號：7763)
VB6安裝SP4之後,DataControl之Connect屬性多了Access 2000;可正常存取Access 2000, 但Compiler之後郤發生'找不到可安裝的ISAM',有誰可解此問題? (因用DAO開發之系統非常龐大,要全面換ADO實質上有困難?) 感激不盡 !!!
另是否有其他方法用 DAO 存取 Access 2000?
另是否有其他方法用 DAO 存取 Access 2000?
請問如何在Data Report 中,動態改變Text Box 的大小(編號：7761)
在我的資料庫table中的某個欄位,是記錄產品的說明敘述,因此在VB6.0程式撰寫及資料庫欄位的設計是允許多行輸入,但是,使用Data Report 來設計報表時,發現Data Report 中Text Box 的大小在設計初就固定死了,以致造成該項較多行資料無法完全印出,請各位高手不吝賜教.
請問如何.........將 datareport 的 label 設成變數！急！(編號：7759)
請問如何.........將 datareport 的 label 不要事先給
值，要每次給的
值都不一樣！謝謝！
值，要每次給的
值都不一樣！謝謝！
請問如何.........將 datareport 的 label 設成變數(編號：7757)
請問如何.........將 datareport 的 label 不要事先給
值，要每次給的
值都不一樣！謝謝！
值，要每次給的
值都不一樣！謝謝！
Runtime barcode(編號：7756)
小弟用vb6 & Access Barcode control 開發程式完成後,想用
http://www.vbguide.com.tw/的Runtime 執行,出現barcode.ocx
找不到,不知各位先進有沒有好方法,不用自行封裝,可以快速安裝?
http://www.vbguide.com.tw/的Runtime 執行,出現barcode.ocx
找不到,不知各位先進有沒有好方法,不用自行封裝,可以快速安裝?
嗚嗚~~誰有工程型計算機的程式…像win98那種(編號：7751)
拜託…可不可以寄給我…小弟一定感激不盡啊~~＞.＜
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...謝謝...
那裡有萬年曆程式(編號：7747)
那位大哥大姐，有現成萬年曆程式，要計算現在距離西元一年一月一日為多少天
(不是用任何物件)，萬年曆程式條件
1752為特殊的一年(曆法上有點兒更改)
1752之前為四年一閏
1752之9月只有19天 (1.2.14.15.......)沒有3~13號
1752以後之閏年規則為:是4的倍數，不是100的倍數而是400的倍數
ex. 1800不是閏年(100的倍數)但2000是閏年(因是400的倍數)
thk!
(不是用任何物件)，萬年曆程式條件
1752為特殊的一年(曆法上有點兒更改)
1752之前為四年一閏
1752之9月只有19天 (1.2.14.15.......)沒有3~13號
1752以後之閏年規則為:是4的倍數，不是100的倍數而是400的倍數
ex. 1800不是閏年(100的倍數)但2000是閏年(因是400的倍數)
thk!
VB讀EXCEL檔(編號：7741)
請問各位先進:
我是使用VB6,EXCEL 2000,使用ADODC跟DATAGRID去設計
讀出一個800K左右的EXCEL檔
可是當檔案在DATAGRID上顯示的時候,
有的欄位會變成空的,而且不是一個二個,大慨有20幾個欄位不見
不一定是文字,也有數字...
請問各位,有無方法可解
我是使用VB6,EXCEL 2000,使用ADODC跟DATAGRID去設計
讀出一個800K左右的EXCEL檔
可是當檔案在DATAGRID上顯示的時候,
有的欄位會變成空的,而且不是一個二個,大慨有20幾個欄位不見
不一定是文字,也有數字...
請問各位,有無方法可解
傳遞表單物件 至 模組內一個公共函數(編號：7729)
TO ALL:
傳遞表單物件 至 模組內一個公共函數
因為 這個 函數 可以動態產生物件
如果 把這函數 加至 各個表單下 都能正確執行
又因為 表單眾多 而函數卻是 固定的 所以想把它獨立放在
模組內 供各個表單呼叫用
可是 呼叫時 缺乏 表單物件 .....
傳遞表單物件 至 模組內一個公共函數
因為 這個 函數 可以動態產生物件
如果 把這函數 加至 各個表單下 都能正確執行
又因為 表單眾多 而函數卻是 固定的 所以想把它獨立放在
模組內 供各個表單呼叫用
可是 呼叫時 缺乏 表單物件 .....
以 Excel 為資料庫,如何控制 Insert Into 的資料格式?(編號：7728)
我以 Excel 為資料庫,利用 Insert Into [Sheet1$] values('ABC',123, 日期時間) 加入資料,但所得的結果都會變成文字,請問我要如何控制其格式呢?我試過數字兩邊不加',但還是文字. 日期時間則試過加' 或#,都無效,請那位高手幫忙一下吧!謝了.
請問各位高手資料庫資料傳輸和Access Application的問題(編號：7724)
我有十幾萬筆的資料於Access資料庫中，要以程式控制將資料轉入
SQL Server，若是開recordset，然後以迴圈去一筆一筆insert into
的話，效率並不好，請問除了用select...into之外，有什麼好的辦
法嗎？
另外，我在用VB呼叫Access時，是否可以不要開啟Access視窗呢，
我已經將Access的Application物件的Visable屬性設為False，但是
還是會開啟一個Access視窗？
SQL Server，若是開recordset，然後以迴圈去一筆一筆insert into
的話，效率並不好，請問除了用select...into之外，有什麼好的辦
法嗎？
另外，我在用VB呼叫Access時，是否可以不要開啟Access視窗呢，
我已經將Access的Application物件的Visable屬性設為False，但是
還是會開啟一個Access視窗？
一個SQL的問題(編號：7723)
如何在Trigger中抓到新增的記錄？？
假設在某個Table中設一個Insert的Trigger(就是新增時就會觸發)
如何抓到這個新增的記錄？？
例：insert table1(col1,col2) values('123','345')
如何在Trigger得知此新增的記錄col1='123',col2='345'呢？？
PS.因為我需要這些值做其他的判斷。
假設在某個Table中設一個Insert的Trigger(就是新增時就會觸發)
如何抓到這個新增的記錄？？
例：insert table1(col1,col2) values('123','345')
如何在Trigger得知此新增的記錄col1='123',col2='345'呢？？
PS.因為我需要這些值做其他的判斷。
有關SQL語法(編號：7722)
各位前輩, 請教一下:
我在下SQL :"Select * from job WHERE SERNO='" + TEXT1.TETX+ "'"
是可以執行 ,
但"Select * from job WHERE ADDRH LIKE '*" + TEXT1.TEXT+ "*'"
就無法執行??
我用Set objRec = objConn.Execute(SQLSTR)
??? THKS!!
我在下SQL :"Select * from job WHERE SERNO='" + TEXT1.TETX+ "'"
是可以執行 ,
但"Select * from job WHERE ADDRH LIKE '*" + TEXT1.TEXT+ "*'"
就無法執行??
我用Set objRec = objConn.Execute(SQLSTR)
??? THKS!!
MSHFlexGrid 顏色(編號：7720)
請問一下在 MSHFlexGrid 中如果我凍結某行後顏色會跟首行一樣，不知是否有屬性可以更改其顏色不要一樣的????另在 MSHFlexGrid 中的移動棒(不管上下或左右)是否有屬性可以控制其移動的格數????
可否從程式中讀取數碼相機memory裏的data(photo)??(編號：7719)
可否從程式中讀取數碼相機memory裏的data(photo)或將相機中的photo放落picturebox中??
小弟還有一條問題,能否把視像鏡頭拍到的影像從vb中顯示出來??
請各位高手幫幫忙
小弟還有一條問題,能否把視像鏡頭拍到的影像從vb中顯示出來??
請各位高手幫幫忙
拜託各位VB的前輩幫幫忙,看看錯在那?(編號：7717)
拜託各位VB的前輩幫幫忙,看看錯在那?
我使用下列程式執行時無錯誤訊息,但也無刪任何符合條件的紀錄,請問為何會這樣?
Dim conn As New ADODB.Connection
Test1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\123.mdb" & ";Jet OLEDB:Database Password=123"
Set conn = New ADODB.Connection
conn.Open Test1
conn.Execute "DELETE 客戶.生日 FROM 客戶 WHERE 生日 ＜ " & Date & " "
conn.Close
ps.生日欄位型態為"日期"(包含時間)
我使用下列程式執行時無錯誤訊息,但也無刪任何符合條件的紀錄,請問為何會這樣?
Dim conn As New ADODB.Connection
Test1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\123.mdb" & ";Jet OLEDB:Database Password=123"
Set conn = New ADODB.Connection
conn.Open Test1
conn.Execute "DELETE 客戶.生日 FROM 客戶 WHERE 生日 ＜ " & Date & " "
conn.Close
ps.生日欄位型態為"日期"(包含時間)
MSHFlexGrid 之問題(編號：7716)
1.是否有辦法把MSHFlexGrid 的左邊之標題欄位隱藏
2.是否有辦法更改上邊之欄位名稱
我用 MSHFlexGrid.ColHeaderCaption(0, 1) = "編號"
但顯示不出來
2.是否有辦法更改上邊之欄位名稱
我用 MSHFlexGrid.ColHeaderCaption(0, 1) = "編號"
但顯示不出來
請問文件檔問題(編號：7715)
小弟想要將A.cma的內容(除了第一行外)COPY到B.txt,但是為什麼 print #2,context 這行總是發生 '不正確的檔案模式' 的錯誤,請各位高手教教小弟,謝謝!以下附上小弟的程式:
Open "d:\A.cma" For Input As #1
Open "d:\B.txt" For Input As #2
p_flg = "N"
Do Until EOF(1)
context = ""
Line Input #1, context
If p_flg = "N" Then
p_flg = "Y"
Else
Print #2, context
End If
Loop
Close #1
Close #2
Open "d:\A.cma" For Input As #1
Open "d:\B.txt" For Input As #2
p_flg = "N"
Do Until EOF(1)
context = ""
Line Input #1, context
If p_flg = "N" Then
p_flg = "Y"
Else
Print #2, context
End If
Loop
Close #1
Close #2
請問有無其他較好用的MaskEditBox(編號：7714)
我使用VB內提供的MaskEdBox連結到一個Table的日期欄位,可是卻錯誤百出,我是使用ADO物件,然後使用Data Binding..
Set mskDate.DataSource = rs
mskDate.DataField = "cDate"
可是我在儲存資料時,下rs.Update該欄位的資料卻沒有寫入資料庫中,當該欄位有日期資料時我將mskDate.PromptInclude = True,而該欄位無資料時mskDate.PromptInclude = False,可是現在不管如何我下rs.Update就是不會將資料寫入資料庫中,但如果rs.Move????卻又會把資料寫入
且MaskEdBox的PromptInclude = True時,在Move資料時,如果上一筆有內容,而下一筆沒內容的話,會發生資料殘留在MaskEdBox的現象,還有其他問題實在是懶的說了..請救救我吧..謝謝...!!
Set mskDate.DataSource = rs
mskDate.DataField = "cDate"
可是我在儲存資料時,下rs.Update該欄位的資料卻沒有寫入資料庫中,當該欄位有日期資料時我將mskDate.PromptInclude = True,而該欄位無資料時mskDate.PromptInclude = False,可是現在不管如何我下rs.Update就是不會將資料寫入資料庫中,但如果rs.Move????卻又會把資料寫入
且MaskEdBox的PromptInclude = True時,在Move資料時,如果上一筆有內容,而下一筆沒內容的話,會發生資料殘留在MaskEdBox的現象,還有其他問題實在是懶的說了..請救救我吧..謝謝...!!
關於RECORDSET 怪問題及CRYSTAL REPORT 4.6 !(編號：7710)
各位,
1. 本人在新增資料到TABLE的時候, 發現有一個怪問題, 就是第一筆資料的第一欄總是沒有資料, 第二筆及之後的完全正常, 將MOUSE POINTER放在沒有資料的欄位按了幾下ESC之後, 資料又出現, 試過在第二部機執行又沒有這個問題發生, 請問該如何解決?
2. 本人需要用CRYSTAL REPORT重覆多次PREVIEW報表, 但有一個執行錯誤28,OUT OF STACK, 請問應如何解決?
THANKS VERY MUCH !
1. 本人在新增資料到TABLE的時候, 發現有一個怪問題, 就是第一筆資料的第一欄總是沒有資料, 第二筆及之後的完全正常, 將MOUSE POINTER放在沒有資料的欄位按了幾下ESC之後, 資料又出現, 試過在第二部機執行又沒有這個問題發生, 請問該如何解決?
2. 本人需要用CRYSTAL REPORT重覆多次PREVIEW報表, 但有一個執行錯誤28,OUT OF STACK, 請問應如何解決?
THANKS VERY MUCH !
Use VB to Open HTML(編號：7705)
I have written a Homepage, I want to write on a CD which is open by VB , How can i Do it ?
請問Crystal Report是否有提供報表繼承的功能?(編號：7703)
請問Crystal Report是否有提供報表繼承的功能?
或是有任何報表工具有提供?
謝謝
Remark
所謂的報表繼承,就是假設我有報表A和報表B,因為報表B和報表A非常像,只因為客戶的某些要求而稍做改變,若我將報表B繼承自報表A,我只須將報表B稍做修改即可,而不需用Copy&Paste的方式,而且若以後需要修改報表,只須修改報表A即可,不須另外修改報表B,因為報表B會自動反映報表A的修改
或是有任何報表工具有提供?
謝謝
Remark
所謂的報表繼承,就是假設我有報表A和報表B,因為報表B和報表A非常像,只因為客戶的某些要求而稍做改變,若我將報表B繼承自報表A,我只須將報表B稍做修改即可,而不需用Copy&Paste的方式,而且若以後需要修改報表,只須修改報表A即可,不須另外修改報表B,因為報表B會自動反映報表A的修改
關於combo與List的問題~~~(編號：7702)
我想做一個處方籤,想用三個combo來選取藥品名稱,單位,用法;再用一個text輸入數量;並將以上所選取的結果show在List上,但是小女子不才,每次再作第二次選取與輸入時都會將第一次所選的結果覆蓋了
不知道各位高手們是否能幫幫忙.....小女子感激不盡
不知道各位高手們是否能幫幫忙.....小女子感激不盡
如何將Select出來的值丟進Crystal Report(編號：7701)
例如,select number,(money1+money2) as money
請問我要如何將money的值丟入crystal report中
謝謝
請問我要如何將money的值丟入crystal report中
謝謝
用VB攔Ctrl + Alt + Del..(編號：7700)
因之前有人問這個問題
小弟之前所看到的範例似乎都只是"取消" Ctrl + Alt + Del ?
於是小弟做了個實驗,環境 : VB5(no SP) + Me
設計兩個程式,一個攔Del,一個攔"Ctrl + Alt"(我發現似乎一個表單不能同時攔到..?)
一個程式如下 : (錄自cww站中攔Hook範例,修的就是這部份而己,http://sunh.hosp.ncku.edu.tw/~cww/htmapi46.htm)
Public Function MyKBHFunc(ByVal iCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
MyKBHFunc = 0 '訊息要處理
If iCode ＜ 0 Then
MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
Exit Function
End If
If wParam = 46 Then
Open "c:\c" For Append As #1
Close #1
End If
Call CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
End Function
另一個程式則是這樣 : (表單上有一個Timer,值為1000)
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 17 Then
Open "c:\a" For Append As #1
Close #1
End If
If KeyCode = 17 Then
Open "c:\b" For Append As #1
Close #1
End If
End Sub
Private Sub t1_Timer()
If Dir("c:\a") ＜＞ "" And Dir("c:\b") ＜＞ "" And Dir("c:\c") ＜＞ "" Then
Debug.Print "aasfkjadsdjkasfl;asjf"
Call KillNow
Else
Call KillNow
End If
End Sub
Sub KillNow()
On Error Resume Next
Kill "c:\a"
Kill "c:\b"
Kill "c:\c"
End Sub
我不知這樣"理論"上是不是行得通,但在"實際上"我run時.第二個程式只要有keydown
就會掛掉!!??..(這個程式..無效..)
不知各位先進是否有更好的方法 ? (我沒有在其他os try..may be its Me 的問題...)
by Peter ^_^
小弟之前所看到的範例似乎都只是"取消" Ctrl + Alt + Del ?
於是小弟做了個實驗,環境 : VB5(no SP) + Me
設計兩個程式,一個攔Del,一個攔"Ctrl + Alt"(我發現似乎一個表單不能同時攔到..?)
一個程式如下 : (錄自cww站中攔Hook範例,修的就是這部份而己,http://sunh.hosp.ncku.edu.tw/~cww/htmapi46.htm)
Public Function MyKBHFunc(ByVal iCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
MyKBHFunc = 0 '訊息要處理
If iCode ＜ 0 Then
MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
Exit Function
End If
If wParam = 46 Then
Open "c:\c" For Append As #1
Close #1
End If
Call CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
End Function
另一個程式則是這樣 : (表單上有一個Timer,值為1000)
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 17 Then
Open "c:\a" For Append As #1
Close #1
End If
If KeyCode = 17 Then
Open "c:\b" For Append As #1
Close #1
End If
End Sub
Private Sub t1_Timer()
If Dir("c:\a") ＜＞ "" And Dir("c:\b") ＜＞ "" And Dir("c:\c") ＜＞ "" Then
Debug.Print "aasfkjadsdjkasfl;asjf"
Call KillNow
Else
Call KillNow
End If
End Sub
Sub KillNow()
On Error Resume Next
Kill "c:\a"
Kill "c:\b"
Kill "c:\c"
End Sub
我不知這樣"理論"上是不是行得通,但在"實際上"我run時.第二個程式只要有keydown
就會掛掉!!??..(這個程式..無效..)
不知各位先進是否有更好的方法 ? (我沒有在其他os try..may be its Me 的問題...)
by Peter ^_^
可否把掃瞄器掃人的圖像放進picturebox裏??(編號：7699)
可否把掃瞄器掃人的圖像真接放進picturebox裏,就像photoshop、paint shop pro等等圖像處理軟件的import function 一樣?? 請各位高手幫幫忙
MSADO20.TLB ???(編號：7698)
請教
INTERNET封裝時,出現"找不到MSADO20.TLB 依存檔資訊",
使執行程式時出現 "載入 DLL 時錯誤" 而當機.
請問少了那個 DLL ? 名稱是甚麼 ? 如何取得 ?
請指教.
INTERNET封裝時,出現"找不到MSADO20.TLB 依存檔資訊",
使執行程式時出現 "載入 DLL 時錯誤" 而當機.
請問少了那個 DLL ? 名稱是甚麼 ? 如何取得 ?
請指教.
簡繁體及多國語言版開發問題.(編號：7697)
請問..
我將一些簡體(gb碼)文字顯示放在資源檔(Resource File, *.rc)內, 然後將此程式製成EXE檔後. 在簡體版的Win98上執行. 發現有些字可以正常顯示簡體字,但有些字卻無法正常顯示. 不知是何原因? 敬請賜教. tks!!
ps: 我使用的是VB6.0中文版.
我將一些簡體(gb碼)文字顯示放在資源檔(Resource File, *.rc)內, 然後將此程式製成EXE檔後. 在簡體版的Win98上執行. 發現有些字可以正常顯示簡體字,但有些字卻無法正常顯示. 不知是何原因? 敬請賜教. tks!!
ps: 我使用的是VB6.0中文版.
執行Setup1.exe時的錯誤訊息(編號：7696)
請問..
我用封裝部署精靈將專案封裝成可安裝執行的程式. (即使用VB附贈的安裝程式).
我試著在Win98 SE下安裝. 一共試了6部(有不同的軟體). 其中有2部在執行Setup1.exe的階段時會出現錯誤訊息如下:
系統錯誤 &H80004005 (-2147467259). 未指定的錯誤.
不知此錯誤訊息所指為何種錯誤. 在另外4部中又無此情形, 是否因另外2部為少了某些DLL檔? 煩請協助解答. TKS!!
我用封裝部署精靈將專案封裝成可安裝執行的程式. (即使用VB附贈的安裝程式).
我試著在Win98 SE下安裝. 一共試了6部(有不同的軟體). 其中有2部在執行Setup1.exe的階段時會出現錯誤訊息如下:
系統錯誤 &H80004005 (-2147467259). 未指定的錯誤.
不知此錯誤訊息所指為何種錯誤. 在另外4部中又無此情形, 是否因另外2部為少了某些DLL檔? 煩請協助解答. TKS!!
insert into 外部資料庫 可以是 odbc ?(編號：7694)
我想重 SQL SERVER 中將某些資料取出存在一*.MDB資料庫內,但不知如何下指令? THANKS
INSERT INTO [T1]([FIELD1],[FIELD2]) SELECT [FIELD1],[FIELD2] FROM [T1] IN ???? WHERE [T1].[ID]='A001'"
INSERT INTO [T1]([FIELD1],[FIELD2]) SELECT [FIELD1],[FIELD2] FROM [T1] IN ???? WHERE [T1].[ID]='A001'"
Windows 說明發生錯誤…(編號：7690)
我於編輯 hlp 檔用的 rtf 檔中使用單底線(顯示於整個視窗)的連結與雙底線(只有小提示)的連結。直接開啟 hlp 檔瀏覽時，這些底線都正常。在 vb 中使用 ShowWhatsThis 方法顯示也正常，但當我要再點其中的單底線時，沒發生任何事，提示就消失了。點雙底線時，發生了一個錯誤：
Windows 說明
沒有足夠的記憶體供這個作業使用。
請結束一或數個應用程式，增加可用的記憶體，然後重試。(2)
請問我是否那裡作錯了？
Windows 說明
沒有足夠的記憶體供這個作業使用。
請結束一或數個應用程式，增加可用的記憶體，然後重試。(2)
請問我是否那裡作錯了？
SQL的JOIN語法(編號：7683)
請問RIGHT JOIN,LEFT JOIN ,INNER JOIN, OUTER JOIN...等等..有什麼差別呢.!?..我查了全文檢所後..只查到有人下這個語法,可是我卻看不太出來他們的差別,而查 MSDN 就又都是英文的...謝謝
如何將EXCEL中之chart以自動化方式另存成影像檔（如BMP,WMF..）(編號：7682)
各位先進：
小弟最近以Excel的marco寫的繪製3D charts 但想將其產生的圖表
以程式自動存成想要的格式，我該如何下手....謝謝！
小弟最近以Excel的marco寫的繪製3D charts 但想將其產生的圖表
以程式自動存成想要的格式，我該如何下手....謝謝！
請問怎麼在程式中改變 Textbox 的scrollbar屬性(編號：7678)
請問怎麼在程式中改變 Textbox 的scrollbar屬性
run 程式時是唯讀屬性
那請問有沒有其他方法達到呢
或者怎麼知道textbox裡的行數呢
可行嗎
請高手指點
run 程式時是唯讀屬性
那請問有沒有其他方法達到呢
或者怎麼知道textbox裡的行數呢
可行嗎
請高手指點
用VB開SQL-ODBC(編號：7677)
請問各位先進,能否透過VB寫個可以不用手動的方式來開資料庫的程式..,小弟想說因為如果有二十個資料庫要開真的好麻煩而且又浪費時間,能寫個程式不用手動的方式來開資料庫就能節省開資料庫的時間..不知道各位先進有沒有範例或有知道的網站有介紹類似這樣的文章可以參考的,感謝賜教
如何將sql server資料庫轉成txt檔(編號：7676)
您好，
有一個很急的問題想請教您，目前我要寫一個VB程式，
將SQL SEVER資料庫轉檔成TXT檔，並以格線列印出來，
因此程式很急，希望能幫我解決，在此感激不盡，謝謝。
有一個很急的問題想請教您，目前我要寫一個VB程式，
將SQL SEVER資料庫轉檔成TXT檔，並以格線列印出來，
因此程式很急，希望能幫我解決，在此感激不盡，謝謝。
SQL語法問題(編號：7674)
想請教問兩個vb問題
table a 有欄位 aid 和 adate (aid是身份證號)
set rs=db.openrecordset("select aid,max(adate) from a group by aid")
然後 temp=rs("adate")
但是確出現無現用紀錄的訊息
是不是用總合函數所取的column 實際上不存在
請問要如何才能取得rs("adate")的資料呢 有何解法
另一個問題是
table 中有name 及 address 兩個欄位
有好幾個人同住在一個住址,要做列印郵寄標籤的動作
我想一個住址只寄一封,同一戶人的名字都列印出來
東想西想都不知怎辦
table a 有欄位 aid 和 adate (aid是身份證號)
set rs=db.openrecordset("select aid,max(adate) from a group by aid")
然後 temp=rs("adate")
但是確出現無現用紀錄的訊息
是不是用總合函數所取的column 實際上不存在
請問要如何才能取得rs("adate")的資料呢 有何解法
另一個問題是
table 中有name 及 address 兩個欄位
有好幾個人同住在一個住址,要做列印郵寄標籤的動作
我想一個住址只寄一封,同一戶人的名字都列印出來
東想西想都不知怎辦
如何VB6.0寫測試某數字是否為質數(prime)的程式(編號：7671)
Hi, I am a novice in VB 6.0 from the US.
Do me a favor please. I don't know how to write a program to (1)determine if a number is prime (2)determine all the prime below the number....Thanks for your help.
Do me a favor please. I don't know how to write a program to (1)determine if a number is prime (2)determine all the prime below the number....Thanks for your help.
哪個ActiveX元件可插入像MS IE 的 Stop, Reload... Button?(編號：7668)
哪個ActiveX元件可插入像MS Internet Explorer 的 Stop, Home, Reload... Button??
小弟不才問個ASP的問題和一個不相關的.(編號：7665)
最近聽網友說ASP可以加密說..(辜落寡問.請別見怪)
得到一個像這樣的ASP File :
＜%@ LANGUAGE = VBScript.Encode %＞
＜META name="description" content=""＞
＜META name="keywords" content=""＞
＜META name="generator" content="Microsoft FrontPage 4.0"＞
＜STYLE TYPE="text/css"＞
＜%=#@~^DwAAAA==j/dbW `JglsnJ*+gQAAA==^#~@%＞＜%=#@~^BAAAAA==HKh~VAEAAA==^#~@%＞＜%=#@~^JgAAAA==];;/DR?D7nDjl.km4snk`J"3H}K2!u6?:J*JQ0AAA==^#~@%＞
不知有沒有人可以告訴我..像這樣的ASP是如何執行,可能還原回來嗎 ?
另外一個問題是
請問像這樣的句子是代表執行什麼 ?
Rundll32.exe powrprof.dll,LoadCurrentPwrScheme
by Peter ^_^
得到一個像這樣的ASP File :
＜%@ LANGUAGE = VBScript.Encode %＞
＜META name="description" content=""＞
＜META name="keywords" content=""＞
＜META name="generator" content="Microsoft FrontPage 4.0"＞
＜STYLE TYPE="text/css"＞
＜%=#@~^DwAAAA==j/dbW `JglsnJ*+gQAAA==^#~@%＞＜%=#@~^BAAAAA==HKh~VAEAAA==^#~@%＞＜%=#@~^JgAAAA==];;/DR?D7nDjl.km4snk`J"3H}K2!u6?:J*JQ0AAA==^#~@%＞
不知有沒有人可以告訴我..像這樣的ASP是如何執行,可能還原回來嗎 ?
另外一個問題是
請問像這樣的句子是代表執行什麼 ?
Rundll32.exe powrprof.dll,LoadCurrentPwrScheme
by Peter ^_^
關於電腦鍵盤控制以及鎖定(編號：7664)
各位網友好,
請教各位網友,是否可以以其他方式來偵測
使用者用鍵盤打入的字(VB程式不論是否在背景工作
的狀態下),之前小弟我試過Windows API一書中的
keyxxxxx.dll程式,但是似乎有點問題,偵測後會發生程式錯誤的問題,所以希望能以其他方式來進行
如果各位可以提供新的偵測程式,或是告訴小弟其他的方法來偵測..
另一個問題,
各位網友都應該知道只要使用API即可讓Ctrl+alt+del失效,但是小弟我不只希望他失效,還希望再使用者按下這三個鍵後啟動的是小弟所寫的程式(也就是以小弟的程式來代替先前的關閉工作視窗)
還有就是,
如何偵測某個程式現在是否在執行?(此程式不一定是VB所寫成的)
最後還有一個非VB技術問題,
請問可以讓開始鍵失效嗎?因為小弟我不希望來觀光的人隨意改變或關閉系統.
ps小弟我的電腦是使用Win98系統....謝謝
以上的問題...蠻重要的(至少對小弟而言),希望各位能指導一下,謝謝!!!!!!!!!!!!!!
請教各位網友,是否可以以其他方式來偵測
使用者用鍵盤打入的字(VB程式不論是否在背景工作
的狀態下),之前小弟我試過Windows API一書中的
keyxxxxx.dll程式,但是似乎有點問題,偵測後會發生程式錯誤的問題,所以希望能以其他方式來進行
如果各位可以提供新的偵測程式,或是告訴小弟其他的方法來偵測..
另一個問題,
各位網友都應該知道只要使用API即可讓Ctrl+alt+del失效,但是小弟我不只希望他失效,還希望再使用者按下這三個鍵後啟動的是小弟所寫的程式(也就是以小弟的程式來代替先前的關閉工作視窗)
還有就是,
如何偵測某個程式現在是否在執行?(此程式不一定是VB所寫成的)
最後還有一個非VB技術問題,
請問可以讓開始鍵失效嗎?因為小弟我不希望來觀光的人隨意改變或關閉系統.
ps小弟我的電腦是使用Win98系統....謝謝
以上的問題...蠻重要的(至少對小弟而言),希望各位能指導一下,謝謝!!!!!!!!!!!!!!
請問DataReport分組之DataSource如何動態產生?(編號：7663)
因為報表比較複雜, 用Select語法無法做出需要的RecordSet, 只能動態產生一個Recordset再將所需之資料填上, 但這樣的資料無法在DataReport上做分組,試用過 shape append new(DataReport不接受這個RecordSet), 以及在data environment做一個shape append new的分組command(分組command不接受 Data Provider=None),兩個方法都不行, 而因為資料量也不少,也不想在mdb上開一個temp table暫存資料...暈頭了, 有人能幫幫忙嗎 :...-(
如何列舉某個網域下所有使用者名稱?(編號：7660)
在http://www.freevbcode.com/showCode.Asp?ID=868&NoBox=True有"Enumerate ALL Users on an NT Domain"文章,試過之後好像只能列舉某一機器(nt)上登記之使用者帳號,我想列舉某一網域(不知在那一台server管理)的使用者帳號有無可能?
如何用最快的方法把一萬筆的資料直接丟進資料庫?(編號：7659)
有一個文字檔含有 10000 筆的資料, 都是固定格式, 而且都連在一起, 比如說：
12345678901234567890
22345678903234567890
....
.....
共有一萬筆
每一行正好是一欄的資料(換句話說還要切開分欄位放)
該怎樣一次丟進資料庫的table裡面去? : )
請建議
謝謝.
12345678901234567890
22345678903234567890
....
.....
共有一萬筆
每一行正好是一欄的資料(換句話說還要切開分欄位放)
該怎樣一次丟進資料庫的table裡面去? : )
請建議
謝謝.
請問封裝精靈封裝後為何到沒有VB的Win98電腦還會要求Msvbvm60.dl(編號：7658)
請問封裝精靈封裝後為何到沒有VB的Win98電腦還會要求Msvbvm60.dll 此檔案,如果還要求此檔案那封裝精靈還有何用處??..我實在想不透..VB難道就是永遠如此麻煩嗎??..想跳槽到DELPHI的浪漫...
TO:Sean 另起主題看看還會不會有亂碼??(編號：7656)
又出現亂碼了!
再POST一次!!
1.由於您所產的資料集為Cient RecordSet,但是Client RecordSet只是一個結果集,是不能直接和另一個結果集比較(運算)的,但可試試將這個結果集的ActiveConnection直向和欲比較的資料庫做BatchUpdate(類似RDO的用法)(但資料表要存在且結構要相符),之後再以這二個資料表做OUTER JOIN(找出不符合條件的資料集).但不要這樣做,好像太累了,但速度絕對比用廻圈快多了!!
像這種屬於DisConnection的的應用技術(類似RDO),不但可減輕SERVER的負擔,也加快了運算的速度.
2.MDX--＞Muti-Dimension Extensions,事實上我指的是Data haping(我一向認為它是屬於MDX的一部分),它可用來傳叵階層式的資料(Master/Detail),扯遠了!就此打住哦!!
再POST一次!!
1.由於您所產的資料集為Cient RecordSet,但是Client RecordSet只是一個結果集,是不能直接和另一個結果集比較(運算)的,但可試試將這個結果集的ActiveConnection直向和欲比較的資料庫做BatchUpdate(類似RDO的用法)(但資料表要存在且結構要相符),之後再以這二個資料表做OUTER JOIN(找出不符合條件的資料集).但不要這樣做,好像太累了,但速度絕對比用廻圈快多了!!
像這種屬於DisConnection的的應用技術(類似RDO),不但可減輕SERVER的負擔,也加快了運算的速度.
2.MDX--＞Muti-Dimension Extensions,事實上我指的是Data haping(我一向認為它是屬於MDX的一部分),它可用來傳叵階層式的資料(Master/Detail),扯遠了!就此打住哦!!
關於用shell 呼叫 exe(編號：7654)
我程式原本是按下command1後
就會執行一個exe檔(此exe檔是用BCB做的)
現在這個exe檔裡有個button1
我想要改寫成
按下vb程式裡的command1後
就執行此exe 並同時自動按下 exex中的button1
請問這該怎麼做呢?
就會執行一個exe檔(此exe檔是用BCB做的)
現在這個exe檔裡有個button1
我想要改寫成
按下vb程式裡的command1後
就執行此exe 並同時自動按下 exex中的button1
請問這該怎麼做呢?
一個簡單的 Data report問題(編號：7653)
我用data report寫了一支程式，但我一直找不出方法去判斷group
exp(報表格式如下)
001 aa
bb
002 aa
cc
PS:我不用DataEnvironment，單純用程式判斷
請問有什麼事件可以寫或者有什麼比較好的方法可以寫......
exp(報表格式如下)
001 aa
bb
002 aa
cc
PS:我不用DataEnvironment，單純用程式判斷
請問有什麼事件可以寫或者有什麼比較好的方法可以寫......
字串與陣列的比較..(編號：7652)
請問....我有一字串要與一陣列資料比較是否有相同,不知道VB有沒有什麼函數直接比較,並且得知是否有相同呢?
如:string data -＞ "abc"
array data -＞ ("ttt","zzz","yyy") ==＞比較結果回False
array data -＞ ("ttt","abc","yyy") ==＞比較結果回True
謝謝...^_^
如:string data -＞ "abc"
array data -＞ ("ttt","zzz","yyy") ==＞比較結果回False
array data -＞ ("ttt","abc","yyy") ==＞比較結果回True
謝謝...^_^
紀先生請幫幫忙(編號：7651)
您在VB入門網的問題310:你知道Microsoft agent嗎?,我download程式碼後,測試後出現error,因為找到CommonDialog1,能不能請告訴我是屬於什麼元件(因為download後它為picturebox,我想它應不是picturebox,謝謝!
TO:Sean(編號：7650)
由於主題已經不知捲到那裡去了,所以另起主題!
針對您的問題,我的看法如下:
1.您要使用者輸入盤點的資料,但資料中卻無對應的基本資料供比對...怪怪的??? 因為盤點總要有個安全存量或正常存量的對照機制啊!
2.如果是在同一個SQL SEREVR中(不管是不是在同一個資料庫,但最好是在同一個資料庫),您便可以使用Join的方式來做盤點的程序(非常快的哦!因為不用讀出來用廻圈跑!)
PS.您可以用(LEFT/RIGHT/FULL) OUTER JOIN來實作!如果您查出來的資料需要傳回程式中做分析處理,我建議您用MDX來實作(雖然只有MS SQL SERVER支援)會比較容易...容易太多了!!
針對您的問題,我的看法如下:
1.您要使用者輸入盤點的資料,但資料中卻無對應的基本資料供比對...怪怪的??? 因為盤點總要有個安全存量或正常存量的對照機制啊!
2.如果是在同一個SQL SEREVR中(不管是不是在同一個資料庫,但最好是在同一個資料庫),您便可以使用Join的方式來做盤點的程序(非常快的哦!因為不用讀出來用廻圈跑!)
PS.您可以用(LEFT/RIGHT/FULL) OUTER JOIN來實作!如果您查出來的資料需要傳回程式中做分析處理,我建議您用MDX來實作(雖然只有MS SQL SERVER支援)會比較容易...容易太多了!!
關聯式資料庫的刪除問題(編號：7649)
有一資料庫,內含兩個Table.為一對一關聯性,分別為TableA(產品庫存檔)與TableB(產品名細)
SELECT TableA.* , TableB.* FROM TableA,TableB WHERE TableA.A=TableB.A
而現在我想刪除一筆產品庫存檔的資料,但產品明細的該筆資料是不能被刪除的,請問我該要如何做呢.!?..是否就不能用如上的SQL語法了呢..!?..如果不是使用如上的SQL語法,我該怎麼將所有內容放在同一個Grid中呢.!?.謝謝....
SELECT TableA.* , TableB.* FROM TableA,TableB WHERE TableA.A=TableB.A
而現在我想刪除一筆產品庫存檔的資料,但產品明細的該筆資料是不能被刪除的,請問我該要如何做呢.!?..是否就不能用如上的SQL語法了呢..!?..如果不是使用如上的SQL語法,我該怎麼將所有內容放在同一個Grid中呢.!?.謝謝....
VB 有沒有 'COPY TO C:\TEXT.TXT SDF' 類似功能(編號：7648)
VB 有沒有 像 xBase 中的 'COPY TO C:\TEXT.TXT SDF' 類似功能
還是要自己寫ㄚ!!
還是要自己寫ㄚ!!
請問檔案的複製、刪除、移動的方法？(編號：7646)
我有用兩個FileList及Dir和Driver物件來控制檔案，請問如何能在File1和File2之間做檔案的複製、刪除、移動呢？煩請告之，謝謝~^^
VB可以寫播放MP3的程式嗎？若可以的話，該怎麼寫？(編號：7645)
我想寫一個用來播放MP3的程式，但是使用MMControl物件時，只能播*.wav及*.mid的檔案而已，請問各位高手，該怎麼開啟*.mp3的檔案格式，有什麼要設定的，及程式碼如何，或者是要引用別的元件，煩請告之，謝謝~~^^
好用的 ico cur icl ani 編輯程式 -- Microangelo 98(編號：7642)
看到不少人對於游標及圖示的建立有問題
阿諦決定將我的 MicroAngelo 98 上載到網頁空間供大家 download
(約1.3MB Zip檔)
http://www.taconet.com.tw/judyhu/ma98.zip
阿諦決定將我的 MicroAngelo 98 上載到網頁空間供大家 download
(約1.3MB Zip檔)
http://www.taconet.com.tw/judyhu/ma98.zip
如何做檔案總管(編號：7641)
我想做一個類似檔案總管的表單
可是我對 TreeView物件 及 ListView物件 完全不了解
可否介紹幾本書讓我參考參考, 或者...寫個範例給我看看, 謝謝!!
我的幾個重點問題:
1.如何設定在 ListView 中能以 大圖示, 小圖示, 清單, 詳細資料, 等四種顯示模式
2.如何取得及設定 TreeView物件 及 ListView物件 的資料夾路徑, 或檔案的路徑
3.ListView能像真正的檔案總管那樣
在檔案上按一下, 再在檔案名稱上按一下, 就變成可以輸入新檔名的狀態嗎?
4.同問題3, TreeView 能嗎?
以上麻煩各為了, 謝謝!!
可是我對 TreeView物件 及 ListView物件 完全不了解
可否介紹幾本書讓我參考參考, 或者...寫個範例給我看看, 謝謝!!
我的幾個重點問題:
1.如何設定在 ListView 中能以 大圖示, 小圖示, 清單, 詳細資料, 等四種顯示模式
2.如何取得及設定 TreeView物件 及 ListView物件 的資料夾路徑, 或檔案的路徑
3.ListView能像真正的檔案總管那樣
在檔案上按一下, 再在檔案名稱上按一下, 就變成可以輸入新檔名的狀態嗎?
4.同問題3, TreeView 能嗎?
以上麻煩各為了, 謝謝!!
To:Sean (有關資料庫盤點的問題)的建議!!(編號：7633)
我先說明一下我的經驗好了:
我在最開發了一套ISP用的[撥接客戶上點入帳系統],就是當使用者撥號上來之後,經過系統的認証後我便要開始計時,一直到使用者離線為止,我便將使用者這次撥接的時間入帳(存入資料庫).
問題是:
1.使用者來自全省,服務的機組不只一個,是很很...多個(商業機密,所以...
).
2.相對的使用者也有好多多...萬(商業機密,所以...)
.
3.我必須隨時去檢查使用者的上線記錄,再將這個使用者的使用時間結合指定的加權指數,計算出點數,並將得到的點數由入帳系統產生SQL QUERY作二段式的資料更新程序(新USER和舊USER有分別),本程序會異動到二個資料庫及至少四個資料表.
4.我必以最佳的方式來進行上述的程式,因為SQL SERVER隨時要接受成千上萬的撥接用戶的上線認証.
不多說了....
總之,不管您目前的作業系統為啥??只要有支援ODBC....反正能和您的SQL SERVER連接的均可以運作(但順不順我可不打包票了:))
至於,我所謂的SQL QUERY指的是:
1.您不是讀了外部的資料嗎
2.依據您的外部資料找出和資料庫一致的關鍵字,也就是說產生SQL QUERY字串,送給SQL SERVER檢查,看有沒有這一筆資料,如果有就異動,否則就新增或是.......(這就是我前面所提的二段式資料更新程序)
3.最好都是以T-SQL方式來進行所有的程序,儘量不要用RECORDSET方式(慢且易出叉...).
4.至於,ADO的非同步功能需配合RECORDSET和事件觸發來設計,可免除CLENT和SERVER之間互相等待的問題!
PS.有人說ADO很簡單,二三下就OK了,但我不這麼覺得!!
如果您在看過了Microsoft Data Access 2.6 SDK 之後還是覺得很簡單的話,歡迎您在板上留下您的心得,與所有同好分享!!
我在最開發了一套ISP用的[撥接客戶上點入帳系統],就是當使用者撥號上來之後,經過系統的認証後我便要開始計時,一直到使用者離線為止,我便將使用者這次撥接的時間入帳(存入資料庫).
問題是:
1.使用者來自全省,服務的機組不只一個,是很很...多個(商業機密,所以...
).
2.相對的使用者也有好多多...萬(商業機密,所以...)
.
3.我必須隨時去檢查使用者的上線記錄,再將這個使用者的使用時間結合指定的加權指數,計算出點數,並將得到的點數由入帳系統產生SQL QUERY作二段式的資料更新程序(新USER和舊USER有分別),本程序會異動到二個資料庫及至少四個資料表.
4.我必以最佳的方式來進行上述的程式,因為SQL SERVER隨時要接受成千上萬的撥接用戶的上線認証.
不多說了....
總之,不管您目前的作業系統為啥??只要有支援ODBC....反正能和您的SQL SERVER連接的均可以運作(但順不順我可不打包票了:))
至於,我所謂的SQL QUERY指的是:
1.您不是讀了外部的資料嗎
2.依據您的外部資料找出和資料庫一致的關鍵字,也就是說產生SQL QUERY字串,送給SQL SERVER檢查,看有沒有這一筆資料,如果有就異動,否則就新增或是.......(這就是我前面所提的二段式資料更新程序)
3.最好都是以T-SQL方式來進行所有的程序,儘量不要用RECORDSET方式(慢且易出叉...).
4.至於,ADO的非同步功能需配合RECORDSET和事件觸發來設計,可免除CLENT和SERVER之間互相等待的問題!
PS.有人說ADO很簡單,二三下就OK了,但我不這麼覺得!!
如果您在看過了Microsoft Data Access 2.6 SDK 之後還是覺得很簡單的話,歡迎您在板上留下您的心得,與所有同好分享!!
numeric identity Query?(編號：7632)
TypeID numeric(9,0) identity Primary Key
使用adodc + datagrid
但發現datagrid內typeid欄位只要是10,20,30...以結尾的,DataGrid所顯示的都為0,其它的值正常,不知如何可取得正確的值?
vb6+sybase
使用adodc + datagrid
但發現datagrid內typeid欄位只要是10,20,30...以結尾的,DataGrid所顯示的都為0,其它的值正常,不知如何可取得正確的值?
vb6+sybase
訂閱：
文章 (Atom)