請教高手
用途---用vb開啟製作好的網頁再本機的路徑
我有使用到WebBrowser1元件.把我做好的網頁呼叫出來
我想這樣就沒有IE的畫面
那我封裝成執行檔且要燒錄到光碟執行
問題1.
需要註冊SHDOCVW.DLL嗎
那要執行的那臺電腦ie版本有沒有影響呢 如IE4.0 IE5.0 IE5.5
問題2.
或者還需要其他的輔助檔案
請教知道這方面的高手指點 謝謝
提供小吳 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 .
請問:如何以Byte方式將檔案透過專線傳輸至另一檔案!(編號：9088)
內容： 目前以 open 之 Binary Mode 開啟循序檔,用 input(byte,#1) 取data(以 Hex 碼) ;用 open 之 output Mode 開啟輸出檔 ,以 print #2,input(byte,#1) ; 語法寫入輸出檔.當所傳檔案為文字檔時皆正確 ,但在傳 .exe , .avi , .mdb , .rar 之測試檔時,都有內容減少 ,請問如何克服! Thanks
有關crviewer之問題(編號：9087)
請問1, crviewer 之enableclose button 已設為true,為何用rviewer開啟crystal報表時,close button("X")仍然為灰色無法使用
2.crviewer 開啟crystal 報表時可不可以預先設定比例大小%
2.crviewer 開啟crystal 報表時可不可以預先設定比例大小%
SQL建一個TABLE的命令如何使用呢?(編號：9086)
小弟想在SQL 7.0裡CREATE NEW TABLE
但書上都只介紹SELECT/UPDATE/INSERT...
VB能夠在執行時建一個TABLE及欄位在MS SQL7.0 DATABASE嗎?
相關的SQL COMMAND該如何使用呢??
請大家指點.謝謝!
但書上都只介紹SELECT/UPDATE/INSERT...
VB能夠在執行時建一個TABLE及欄位在MS SQL7.0 DATABASE嗎?
相關的SQL COMMAND該如何使用呢??
請大家指點.謝謝!
給TAN--查詢太過複雜(編號：9083)
在您的範例中,我還是沒有看到您的程式和那一個元件(如TextBox)作繫結,所以您在程式中所作的addnew與update動作是沒有意義的!
因為您根本就沒有[指定任何一個Fieldsh的值]!!
以下是比較完整的程式碼
Option Explicit
Dim bk As Variant
-----------------------------
Private Sub Command5_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
Command6.Enabled = True
Command5.Enabled = False
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.Update
Command6.Enabled = False
Command5.Enabled = True
End Sub
Private Sub Command7_Click()
公共意外P.Show
End Sub
Private Sub Command8_Click()
bk = Adodc1.Recordset.Bookmark
Command6.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command8.Enabled = True
Text2.SetFocus
End Sub
Private Sub Command9_Click()
If MsgBox("您確定要刪除這筆資料嗎?", vbYesNo, "刪除資料") = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End If
End Sub
Private Sub Command10_Click()
Command5.Caption = "新增"
Command6.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
End Sub
Private Sub Command11_Click()
Adodc1.Recordset.Update
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
Command8.Enabled = False
End Sub
Private Sub Command12_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Command11.Enabled = True
End Sub
Private Sub Text11_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text11.Text = Val(Text10.Text) * 4
End Sub
Private Sub Text13_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text13.Text = Val(Text12.Text) * 5
End Sub
Private Sub Text15_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text15.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text7.Text) + Val(Text9.Text) + Val(Text11.Text) + Val(Text13.Text)
End Sub
Private Sub Text17_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text17.Text = Val(Text16.Text) * 1
End Sub
Private Sub Text19_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text19.Text = Val(Text18.Text) * 2
End Sub
Private Sub Text21_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text21.Text = Val(Text20.Text) * 3
End Sub
Private Sub Text23_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text23.Text = Val(Text22.Text) * 3
End Sub
Private Sub Text25_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text25.Text = Val(Text24.Text) * 4
End Sub
Private Sub Text27_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text27.Text = Val(Text26.Text) * 5
End Sub
Private Sub Text29_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text29.Text = Val(Text17.Text) + Val(Text19.Text) + Val(Text21.Text) + Val(Text23.Text) + Val(Text25.Text) + Val(Text27.Text)
End Sub
Private Sub Text3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text3.Text = Val(Text2.Text) * 1
End Sub
Private Sub Text5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text5.Text = Val(Text4.Text) * 2
End Sub
Private Sub Text7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text7.Text = Val(Text6.Text) * 3
End Sub
Private Sub Text9_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text9.Text = Val(Text8.Text) * 3
End Sub
因為您根本就沒有[指定任何一個Fieldsh的值]!!
以下是比較完整的程式碼
Option Explicit
Dim bk As Variant
-----------------------------
Private Sub Command5_Click()
Adodc1.Recordset.AddNew
Text1.SetFocus
Command6.Enabled = True
Command5.Enabled = False
End Sub
Private Sub Command6_Click()
Adodc1.Recordset.Update
Command6.Enabled = False
Command5.Enabled = True
End Sub
Private Sub Command7_Click()
公共意外P.Show
End Sub
Private Sub Command8_Click()
bk = Adodc1.Recordset.Bookmark
Command6.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command8.Enabled = True
Text2.SetFocus
End Sub
Private Sub Command9_Click()
If MsgBox("您確定要刪除這筆資料嗎?", vbYesNo, "刪除資料") = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
End If
End Sub
Private Sub Command10_Click()
Command5.Caption = "新增"
Command6.Enabled = False
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
Command8.Enabled = False
Command9.Enabled = False
End Sub
Private Sub Command11_Click()
Adodc1.Recordset.Update
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = False
Command8.Enabled = False
End Sub
Private Sub Command12_Click()
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Command11.Enabled = True
End Sub
Private Sub Text11_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text11.Text = Val(Text10.Text) * 4
End Sub
Private Sub Text13_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text13.Text = Val(Text12.Text) * 5
End Sub
Private Sub Text15_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text15.Text = Val(Text3.Text) + Val(Text5.Text) + Val(Text7.Text) + Val(Text9.Text) + Val(Text11.Text) + Val(Text13.Text)
End Sub
Private Sub Text17_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text17.Text = Val(Text16.Text) * 1
End Sub
Private Sub Text19_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text19.Text = Val(Text18.Text) * 2
End Sub
Private Sub Text21_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text21.Text = Val(Text20.Text) * 3
End Sub
Private Sub Text23_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text23.Text = Val(Text22.Text) * 3
End Sub
Private Sub Text25_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text25.Text = Val(Text24.Text) * 4
End Sub
Private Sub Text27_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text27.Text = Val(Text26.Text) * 5
End Sub
Private Sub Text29_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text29.Text = Val(Text17.Text) + Val(Text19.Text) + Val(Text21.Text) + Val(Text23.Text) + Val(Text25.Text) + Val(Text27.Text)
End Sub
Private Sub Text3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text3.Text = Val(Text2.Text) * 1
End Sub
Private Sub Text5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text5.Text = Val(Text4.Text) * 2
End Sub
Private Sub Text7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text7.Text = Val(Text6.Text) * 3
End Sub
Private Sub Text9_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text9.Text = Val(Text8.Text) * 3
End Sub
控制網路卡問題?(重貼)(編號：9082)
抱歉再貼一次詢問是否有網友能幫忙解決以下問題,我目前電腦上插有1張以上的網路卡,我使用winsock元件傳送資料,而且我必須控制資料從指定的網路卡送出,因為這是用於測試系統,請問我應該如何做,才能使資料從指定的網路卡送出,如果不行,還有其他的方式作到嗎?謝謝.
vb5與vb6的問題(編號：9081)
1.我裝vb6，如果安裝vb5寫的程式，它所附的dll,ocx
有可能覆蓋vb6同名的dll,ocx嗎?
2.如果反安裝vb寫的程式,可能移除vb6的dll,ocx嗎?
有可能覆蓋vb6同名的dll,ocx嗎?
2.如果反安裝vb寫的程式,可能移除vb6的dll,ocx嗎?
麻煩各位幫我看一下SHAPE(編號：9080)
各位好我用ADODB連結DataRepor用SHAPE做分組
我想將客戶名稱顯示在群組頁首並將銷貨資料表
資料顯示在詳細資訊區
依下列程式客戶名稱可以顯示在群組頁首但奇怪
只能每次顯示一筆資料麻煩各為教我一下
SQL = "SHAPE {SELECT 銷貨日期,產品名稱,產品規格," _
& "訂購數量,金額,合計FROM 銷貨資料表" _
& "WHERE 客戶名稱='" & na & "'AND 銷貨日期＞=#" _
& dtp & "# } AS Insub " _
& "APPEND ({SELECT 客戶名稱 " _
& "FROM 客戶資料表 } AS Inter " _
& "RELATE 客戶名稱 TO 客戶名稱) "
我想將客戶名稱顯示在群組頁首並將銷貨資料表
資料顯示在詳細資訊區
依下列程式客戶名稱可以顯示在群組頁首但奇怪
只能每次顯示一筆資料麻煩各為教我一下
SQL = "SHAPE {SELECT 銷貨日期,產品名稱,產品規格," _
& "訂購數量,金額,合計FROM 銷貨資料表" _
& "WHERE 客戶名稱='" & na & "'AND 銷貨日期＞=#" _
& dtp & "# } AS Insub " _
& "APPEND ({SELECT 客戶名稱 " _
& "FROM 客戶資料表 } AS Inter " _
& "RELATE 客戶名稱 TO 客戶名稱) "
製成執行檔怎麼這麼難~!為什麼會出現找不到可安裝的ISAM?(編號：9076)
拜託大家幫個忙吧!!我的作業系統是WINDOWS 2000 ,VB6+SP4+ACCESS2000
當我的程式作成執行檔後,想要執行看看,確出現
"找不到可安裝的ISAM"
我有看過這個討論區所有相關"ISAM"的討論,但是還是看不懂
,我知道這可能與"設定使用元件"有關,但是我就是不知道是那個呀!!
拜託~!幫我看看吧,我可以把原始檔寄給您們,可以試試幫我封裝看看嗎?
非常謝謝!!
當我的程式作成執行檔後,想要執行看看,確出現
"找不到可安裝的ISAM"
我有看過這個討論區所有相關"ISAM"的討論,但是還是看不懂
,我知道這可能與"設定使用元件"有關,但是我就是不知道是那個呀!!
拜託~!幫我看看吧,我可以把原始檔寄給您們,可以試試幫我封裝看看嗎?
非常謝謝!!
Microdoft Media Player(編號：9075)
請問各位高手~~
我目前寫了一個撥放程式
但我不知如何讓我的跑馬燈在Media Player
之上顯示我曾嘗試許多方法但都無效
所以請高手教教我ㄅ....
我目前寫了一個撥放程式
但我不知如何讓我的跑馬燈在Media Player
之上顯示我曾嘗試許多方法但都無效
所以請高手教教我ㄅ....
給阿Joy及全體的網友的建議！！！！！！！！！！！！！！！！(編號：9073)
其實妳應該詳細列出妳的需求項目.
比如說:
1.套表的需求是否應用在現有印刷格式的報表紙上??
2.還是要產生一個報表檔後,轉送給某一個人或地方經審核核可後(或需要時)再印出(也有可能走workflow進行公文旅行!)
3.或是要生一個Excel檔,僅供後續特定功能性用途!!
順便要在這裡說明的是:
1.如果要網友幫忙,應該詳細的描述設計需求項目
2.尤其重用的是設計這支程式的"目的"
3.如果只是單方面的提出部分程式碼的問題,實在今人難以回答!!因為要回答的內容,有時候可以寫上一本書,甚至更多本!!
4.最好能像描述某案發現場一樣,一點點線索都不能省略!!
5.因為,有能力回答的人,實際上都是有經驗的人,所以回答前的思考,必須需依妳提的線索,以便[重建案發現場],才能逐一找出妳的問題的真正目的,判斷出妳的需求,如此才能回答.而回答的內容才能切切妳的需求所在!!
6.通常網友會回答的字數,理論上應該是發問人的一半,甚至更少才對!!但實際上剛反過來,難怪沒有網友要回答了(因為無從回答起之故)!!
7.如果有程式碼,最好能附上片斷,以利進行更細部的幫助.
8.而不是來來回回的問題往返,反而愈來愈來偏離主題(像我之前參與的[電梯]一樣,問題不但沒幫人解決,反而搭出別的話題來,使我感到非常不好意思!),而把別人重要而尚未解決的問題給捲到後.....面去了!!
9.有許多網友，有希望人能"教他"一些....的,其實在網路上網友能幫忙得上的真的有限,大部分是觀念的指引或相關參考資料的提供或告知所在位置."教",以目前論壇的功能,能力著實是單薄了點.
10.我一直希望能弄個站,提供一個交談式介面(有點像尋寶圖),讓找解答的人能在不發問的情況下,得到幫助(功課一定要作,老是看解答是不行,因為我也害了不少同事,他們是平時不買書也懶得看書及資料,都是等到有問題要解決時才來問我,問題是處理掉了,但他們看似把問題解決了也學會了[這一招],但我認為[這一招]也沒讓他們長進多少!!,因為這個問題的解法不只[一招],也許[另一招更高招],可省了日的維護或...)
總之,別人回答妳的問題,如果只是應聲答數!其實對您的幫忙是有限的!!
希望小吳站長不會介意才是！！
比如說:
1.套表的需求是否應用在現有印刷格式的報表紙上??
2.還是要產生一個報表檔後,轉送給某一個人或地方經審核核可後(或需要時)再印出(也有可能走workflow進行公文旅行!)
3.或是要生一個Excel檔,僅供後續特定功能性用途!!
順便要在這裡說明的是:
1.如果要網友幫忙,應該詳細的描述設計需求項目
2.尤其重用的是設計這支程式的"目的"
3.如果只是單方面的提出部分程式碼的問題,實在今人難以回答!!因為要回答的內容,有時候可以寫上一本書,甚至更多本!!
4.最好能像描述某案發現場一樣,一點點線索都不能省略!!
5.因為,有能力回答的人,實際上都是有經驗的人,所以回答前的思考,必須需依妳提的線索,以便[重建案發現場],才能逐一找出妳的問題的真正目的,判斷出妳的需求,如此才能回答.而回答的內容才能切切妳的需求所在!!
6.通常網友會回答的字數,理論上應該是發問人的一半,甚至更少才對!!但實際上剛反過來,難怪沒有網友要回答了(因為無從回答起之故)!!
7.如果有程式碼,最好能附上片斷,以利進行更細部的幫助.
8.而不是來來回回的問題往返,反而愈來愈來偏離主題(像我之前參與的[電梯]一樣,問題不但沒幫人解決,反而搭出別的話題來,使我感到非常不好意思!),而把別人重要而尚未解決的問題給捲到後.....面去了!!
9.有許多網友，有希望人能"教他"一些....的,其實在網路上網友能幫忙得上的真的有限,大部分是觀念的指引或相關參考資料的提供或告知所在位置."教",以目前論壇的功能,能力著實是單薄了點.
10.我一直希望能弄個站,提供一個交談式介面(有點像尋寶圖),讓找解答的人能在不發問的情況下,得到幫助(功課一定要作,老是看解答是不行,因為我也害了不少同事,他們是平時不買書也懶得看書及資料,都是等到有問題要解決時才來問我,問題是處理掉了,但他們看似把問題解決了也學會了[這一招],但我認為[這一招]也沒讓他們長進多少!!,因為這個問題的解法不只[一招],也許[另一招更高招],可省了日的維護或...)
總之,別人回答妳的問題,如果只是應聲答數!其實對您的幫忙是有限的!!
希望小吳站長不會介意才是！！
Textbox 的中文顯示?(編號：9071)
請問一下 Textbox 是否有些中文無法正常輸入和顯示?
ie : 峯 ....
有無解法?
煩請告知, Thx.
Environment : VB6.0+SP4+NT Workstation
ie : 峯 ....
有無解法?
煩請告知, Thx.
Environment : VB6.0+SP4+NT Workstation
請問printer.line 問題(編號：9070)
各位前輩,請問一下我執行
printer.line (10,100)-(10000,100)
printer.print "AAA"
執行後:
"AAA"卻不會印出來,請問原因為何?
printer.line (10,100)-(10000,100)
printer.print "AAA"
執行後:
"AAA"卻不會印出來,請問原因為何?
如何像Winamp的播放清單一樣載入整個目錄的檔案？(編號：9067)
Winamp的播放清單有一顆 [Add Dir] 按鈕
按下後選擇目錄就會將目錄下的檔案全部載入
如何做才能像他一樣只需選擇目錄即可載入全部檔案
按下後選擇目錄就會將目錄下的檔案全部載入
如何做才能像他一樣只需選擇目錄即可載入全部檔案
如何利用VB程式讀取Execl或Word表格, 然後再列印出來(編號：9066)
最近遇到一個難題就是想要利用VB程式讀取Excel或Word表格,並且同時讀取資料庫的資料,將其放置在所讀取到Excel或Word表格的欄位空格中,然後再一起將其列印到紙張中,不知這樣是否可行
如何回到crystal report 4.6版本(編號：9065)
原是crystal report4.6版,因不小心install crystal report 5.2 版,請問要如何才能回到crystal report4.6版??
急!!!
急!!!
如何測知在同區段中有多少Client在Run自己寫的程式?(編號：9062)
最簡單的方式當然是在Server端作一個Logon登錄, 但問題是若Client是不正常離線, 則該筆記錄便無法正常消去, 不知有無高手有此處理經驗?
請問使用CDO物件時的問題(編號：9059)
想請教一下，在使用CDO物件時，必須使用一些profile，可是如果說我想在程式中即時設定我要用的SMTP server(或POP3 server)、username、password等資訊時，該怎麼做呢？還是說CDO物件一定要是在outlook中已經設定好了一些email account才可以用？謝謝
請問在一個form層級 內開一個資料庫(編號：9058)
請問在一個form層級 內開一個資料庫
如果 沒有關閉資料連線 就將form unload
為什摸 該資料庫檔案 仍然被暫用啊??
form 關閉後 該層級的私用變數 不是都要釋放嗎??
還是 "物件變數" 比較奇特啊??
如果 沒有關閉資料連線 就將form unload
為什摸 該資料庫檔案 仍然被暫用啊??
form 關閉後 該層級的私用變數 不是都要釋放嗎??
還是 "物件變數" 比較奇特啊??
SQL 語法問題!!(編號：9056)
Table: abc
fld1
====
a
-
f
rs.open "select * from abc order by fld1",conn
RESULT: a,f,-
rs 的排序會有問題 ?? 為何不是 -,a,f
asc("-") = 45 ,asc("a") = 97
所以排序應該是 -,a,f 而不是 a,f,-
請問要如何改才能使排序正常??
fld1
====
a
-
f
rs.open "select * from abc order by fld1",conn
RESULT: a,f,-
rs 的排序會有問題 ?? 為何不是 -,a,f
asc("-") = 45 ,asc("a") = 97
所以排序應該是 -,a,f 而不是 a,f,-
請問要如何改才能使排序正常??
請教網友控制網路卡的問題?(編號：9055)
我目前電腦上插有1張以上的網路卡,我使用winsock元件傳送資料,
而且我必須控制資料從指定的網路卡送出,因為這是用於測試系統
,請問我應該如何做,才能使資料從指定的網路卡送出,如果不行,還
有其他的方式作到嗎?謝謝.
而且我必須控制資料從指定的網路卡送出,因為這是用於測試系統
,請問我應該如何做,才能使資料從指定的網路卡送出,如果不行,還
有其他的方式作到嗎?謝謝.
請教網友控制網路卡的問題?(編號：9054)
我目前電腦上插有1張以上的網路卡,我使用winsock元件傳送資料,
而且我必須控制資料從指定的網路卡送出,因為這是用於測試系統
,請問我應該如何做,才能使資料從指定的網路卡送出,如果不行,還
有其他的方式作到嗎?謝謝.
而且我必須控制資料從指定的網路卡送出,因為這是用於測試系統
,請問我應該如何做,才能使資料從指定的網路卡送出,如果不行,還
有其他的方式作到嗎?謝謝.
如何使用Timer(計時器) ，來計算日期(編號：9050)
假如今天2001/01/10,設定一個圓形會在2001/01/11,會跑出一個圓形出來！如何寫出程式碼！？高手救救我小弟吧~~~~~＞o＜
MDB 有一欄資料型態是 OLE 物件如何顯示於表單上 要用何種控制項(編號：9049)
MDB 有一欄 資料型態是 OLE 物件 如何顯示於表單上,要用何種控制項
我說OLE物件欄位有可能是檔案
也可能是圖片
我在ACESS存入了這些資料,但我不知如何於VB程式中取出來
也不知要用何種控制項顯示出來
我說OLE物件欄位有可能是檔案
也可能是圖片
我在ACESS存入了這些資料,但我不知如何於VB程式中取出來
也不知要用何種控制項顯示出來
mms 的Port ?(Sorry和VB較無關)(編號：9048)
寫個自動下載的程式..
遇到..mms格式開頭的網址
like :mms://ms1.elta.com.tw/ptsorg/0-2000-60.asf
我試過..ms1.elta.com.tw有IP
我想ms的media可能也是延用http的protocol
但是現在我不知道mms的Port(猜想啦..可能有其他問題)
不知各位高手可知mms的port或知道何處有軟體可"下載"(不是觀看)這種檔案 ?
by Peter ^_^
遇到..mms格式開頭的網址
like :mms://ms1.elta.com.tw/ptsorg/0-2000-60.asf
我試過..ms1.elta.com.tw有IP
我想ms的media可能也是延用http的protocol
但是現在我不知道mms的Port(猜想啦..可能有其他問題)
不知各位高手可知mms的port或知道何處有軟體可"下載"(不是觀看)這種檔案 ?
by Peter ^_^
大家來動動腦.....(編號：9047)
要怎樣才能刪除所有的Internat記錄???
我原本是用 kill("c:\windows\history\*.*")
但是會出現 "File Not Found"
要怎麼寫才好???
我原本是用 kill("c:\windows\history\*.*")
但是會出現 "File Not Found"
要怎麼寫才好???
用VB播放VOX格式的聲音檔(編號：9045)
各位大哥....請問有沒有人知道要如何使用VB來播放VOX格式的聲音檔呢??VB使用的MMcontrol只能播放Wav檔......請大家幫幫我....謝謝.......
about printer(編號：9042)
我使用
printer物件作列印---------在我自已的電腦run ok
但將執行檔案copy 到另一臺環境win98 office2000的環境就出現
出現runtime error '248'錯誤
請教高手是我需要再註冊什麼嗎
請給我指點
printer物件作列印---------在我自已的電腦run ok
但將執行檔案copy 到另一臺環境win98 office2000的環境就出現
出現runtime error '248'錯誤
請教高手是我需要再註冊什麼嗎
請給我指點
什麼是使用者資源？和記憶體有什麼不同？(編號：9041)
什麼是使用者資源？和記憶體有什麼不同？
我在使用我寫的VB程式時，會出現記憶體不足的情形，
用FREEMEM釋放記憶體，也無法改善。
改用ON ERRORR GO ERRNUM
卻發現NORTON UNILITY 的訊息是："使用者資源不足"
這時FREEMEM的記憶體使用狀況卻沒有什麼變化。
請各位高手，告訴我WHY？
我在使用我寫的VB程式時，會出現記憶體不足的情形，
用FREEMEM釋放記憶體，也無法改善。
改用ON ERRORR GO ERRNUM
卻發現NORTON UNILITY 的訊息是："使用者資源不足"
這時FREEMEM的記憶體使用狀況卻沒有什麼變化。
請各位高手，告訴我WHY？
'ActiveX無法產生物件!'(編號：9040)
諸位高手,是這樣的,我原本是用這台電腦(PC1)的VB5.0寫程式,後來移到另一台電腦(PC2)繼續寫程式並將PC1的VB5.0移除,最後在PC2寫好了再將Source移回PC1執行,(此時PC1從新Install VB5.0),就出現了該Msg.
Combo的問題(編號：9039)
各位好:
請教該如何把名稱輸入Combo box，因我已在combo1的List加了資料表名稱
但我想在執行中又想使用textbox加入新的名稱到ComboBox裡，雖然可以加入
但在重新執行時新的名稱又會不見,請教各位該如何把加進comboBox的資料名稱
再重新執行時，而加入的名稱會更新.
謝謝!
請教該如何把名稱輸入Combo box，因我已在combo1的List加了資料表名稱
但我想在執行中又想使用textbox加入新的名稱到ComboBox裡，雖然可以加入
但在重新執行時新的名稱又會不見,請教各位該如何把加進comboBox的資料名稱
再重新執行時，而加入的名稱會更新.
謝謝!
請教高手 SetLocaleinfo (如何更改國別?)(編號：9032)
使用 SetLocaleinfo(API),為何無法更改"國別"
而且即使用控制台去改變 "國別"中的"國別設定" ,但用 GetLocaleInfo,卻完全看不出有任何改變.
S = String(256, Chr(0))
S = "English(United States)"
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SENGLANGUAGE, S)
ps: 用 SetLocaleinfo更改時間格式可以成功.
我的環境是 vb6+SP4, NT4, 請問該如何解決? 謝謝.
而且即使用控制台去改變 "國別"中的"國別設定" ,但用 GetLocaleInfo,卻完全看不出有任何改變.
S = String(256, Chr(0))
S = "English(United States)"
SetLocaleInfo(GetSystemDefaultLCID, LOCALE_SENGLANGUAGE, S)
ps: 用 SetLocaleinfo更改時間格式可以成功.
我的環境是 vb6+SP4, NT4, 請問該如何解決? 謝謝.
如何用 Timer 來指定 Mouse Click(編號：9031)
請教各大高手,
假如指定 Timer.Interval = 60000 后,
可以在那裡指其他動作, 如 Mouse-click, senkeys, etc...
假如指定 Timer.Interval = 60000 后,
可以在那裡指其他動作, 如 Mouse-click, senkeys, etc...
關於用VB播放VOX的聲音檔(編號：9030)
各位大哥....請問有沒有人知道要如何使用VB來播放VOX格式的聲音檔呢??VB使用的MMcontrol只能播放Wav檔......請大家幫幫我....謝謝.......
請問如何設定沒有資料來源的grid.....(編號：9028)
請問如何使用沒有datasource的grid,可讓user自行輸入,如開一個
3行3列的grid,可讓user自行於cell中輸入資料????
3行3列的grid,可讓user自行於cell中輸入資料????
VBCE如何顯示圖片?(編號：9026)
VBCE限制使用者使用image
及picture物件....
所以嘗試在form的picture屬性
直接載入圖片
結果於執行時還是無法顯示....
到底要怎麼做ㄋ?
及picture物件....
所以嘗試在form的picture屬性
直接載入圖片
結果於執行時還是無法顯示....
到底要怎麼做ㄋ?
再加碼!!--如何寫一個同時動作的副程式!!(編號：9024)
其實WATCH ME分析的也沒錯!!
但在現實的活上是會有問題的!
請問您向全世界的那個單位說您設計的電梯這麼聰明,所以當您等候的電梯過門而不停時,您會如何破口大X(其實也沒這麼嚴重啦!)
舉個生活上的例子:
1.當阿妹演唱會的門票大賣完了之後,請問會有人體諒主辦單位為了控制人數以免人數太多而導致人踩人之....太跨張了吧!!
2.就像台北的公車司機認為現在車上的人實再太多了,所以在某站便決定來個過站不停!!可以嗎!會被市民及公司給K死!!
3.我每天都要坐的火車(鶯歌-＞台北)擠得跟什麼一樣,火車還是得停下來讓一定上不了車的人擠一下才甘心(我指的是旅客).
4再來轉搭捷運,一樣也是非得停下來讓不了擠不上的人擠一下或乾瞪眼一下也好!就是不能過站不停!
電梯,大分都是採不透明的空間設計(否則我老便每天卡在一樓而忘了上班),所以有關過重或接近載客極限的判斷,似乎是多餘了點(我認為有點過頭了),因為沒有人會體諒或知道這支電梯這麼聰明,所以,自然體貼的往預定的目標前進了.
總之,不管是那一支電梯還是都停一下吧!!
這是從人性出發的系統分析,不知各位網友覺得如何??
備註:
我絕對沒有否決WATCH ME的說法!以本人是機械工程出身,又在製造業待了一段不短的時間(我有接觸過好幾個專作電梯的客戶,我也有好幾個同學也在知名的電梯製造公司擔任設計師,雖然畢業不曾聯絡過),但以我的直覺告訢我,太過自我聰明的設計只會造成使用者的因擾及成本的增加(包括製造及後續維護--＞如汽車的電腦晶片).
就像沒有人會引入FUZZY(我曾研究過)的功能到電梯中一樣,就算您聲明絕對沒問題,但我可不接受FUZZY電梯的控制!!(事實上應該有人將FUZZY的東西給放進電梯了,只是沒說而已!!不然電梯啟動及停止時載重程度及速度的分配會這麼完美嗎??)
就像軟體一樣,使用者有分成DIY玩家型,完全白痴型,半知半覺型,一定要教一次才會型,直到要用時才要學(指軟體的某部分功能).......我受不了!!
畢竟東西是要給人用的,人性才是重點!!
但在現實的活上是會有問題的!
請問您向全世界的那個單位說您設計的電梯這麼聰明,所以當您等候的電梯過門而不停時,您會如何破口大X(其實也沒這麼嚴重啦!)
舉個生活上的例子:
1.當阿妹演唱會的門票大賣完了之後,請問會有人體諒主辦單位為了控制人數以免人數太多而導致人踩人之....太跨張了吧!!
2.就像台北的公車司機認為現在車上的人實再太多了,所以在某站便決定來個過站不停!!可以嗎!會被市民及公司給K死!!
3.我每天都要坐的火車(鶯歌-＞台北)擠得跟什麼一樣,火車還是得停下來讓一定上不了車的人擠一下才甘心(我指的是旅客).
4再來轉搭捷運,一樣也是非得停下來讓不了擠不上的人擠一下或乾瞪眼一下也好!就是不能過站不停!
電梯,大分都是採不透明的空間設計(否則我老便每天卡在一樓而忘了上班),所以有關過重或接近載客極限的判斷,似乎是多餘了點(我認為有點過頭了),因為沒有人會體諒或知道這支電梯這麼聰明,所以,自然體貼的往預定的目標前進了.
總之,不管是那一支電梯還是都停一下吧!!
這是從人性出發的系統分析,不知各位網友覺得如何??
備註:
我絕對沒有否決WATCH ME的說法!以本人是機械工程出身,又在製造業待了一段不短的時間(我有接觸過好幾個專作電梯的客戶,我也有好幾個同學也在知名的電梯製造公司擔任設計師,雖然畢業不曾聯絡過),但以我的直覺告訢我,太過自我聰明的設計只會造成使用者的因擾及成本的增加(包括製造及後續維護--＞如汽車的電腦晶片).
就像沒有人會引入FUZZY(我曾研究過)的功能到電梯中一樣,就算您聲明絕對沒問題,但我可不接受FUZZY電梯的控制!!(事實上應該有人將FUZZY的東西給放進電梯了,只是沒說而已!!不然電梯啟動及停止時載重程度及速度的分配會這麼完美嗎??)
就像軟體一樣,使用者有分成DIY玩家型,完全白痴型,半知半覺型,一定要教一次才會型,直到要用時才要學(指軟體的某部分功能).......我受不了!!
畢竟東西是要給人用的,人性才是重點!!
轉貼:式設計師的困惑(編號：9023)
http://bbs.openfind.com.tw/cgi-bin/x_list?PC=42354&B=0&DISPLEN=10&DB=DEFAULT&SORTBY=0&NO=3
請教 recordset.addnew 的問題(編號：9022)
請教 recordset.addnew 的問題
程式片段如下
ADodc1.Recordset.AddNew
For i = 0 To Customer.Recordset.Fields.Count - 1
ADODC1.Recordset.Fields(i) = Text1(i).Text
Next i
我確定欄位資料型態沒有錯
且欄位數也能對應
理論上應該沒錯
竟然會出現錯誤 錯誤訊息我把它抓成小圖片
放在網頁上
http://home.pchome.com.tw/computer/rogerfly/
WHY
程式片段如下
ADodc1.Recordset.AddNew
For i = 0 To Customer.Recordset.Fields.Count - 1
ADODC1.Recordset.Fields(i) = Text1(i).Text
Next i
我確定欄位資料型態沒有錯
且欄位數也能對應
理論上應該沒錯
竟然會出現錯誤 錯誤訊息我把它抓成小圖片
放在網頁上
http://home.pchome.com.tw/computer/rogerfly/
WHY
請問如何列印 .jpb 的檔案 !(編號：9021)
Hello, everybody:
請問如果我有一個 table, 裡面有某一個欄位的型態是 大型二進位 的欄位型態, 請問像這樣的資料, 該用什麼方法列印呢 ?
請各位高手賜教 ! 謝謝!
請問如果我有一個 table, 裡面有某一個欄位的型態是 大型二進位 的欄位型態, 請問像這樣的資料, 該用什麼方法列印呢 ?
請各位高手賜教 ! 謝謝!
請問如何列印 .jpb 的檔案 !(編號：9020)
Hello, everybody:
請問如果我有一個 table, 裡面有某一個欄位的型態是 大型二進位 的欄位型態, 請問像這樣的資料, 該用什麼方法列印呢 ?
請各位高手賜教 ! 謝謝!
請問如果我有一個 table, 裡面有某一個欄位的型態是 大型二進位 的欄位型態, 請問像這樣的資料, 該用什麼方法列印呢 ?
請各位高手賜教 ! 謝謝!
請問如何列印 .jpb 的檔案 !(編號：9019)
Hello, everybody:
請問如果我有一個 table, 裡面有某一個欄位的型態是 大型二進位 的欄位型態, 請問像這樣的資料, 該用什麼方法列印呢 ?
請各位高手賜教 ! 謝謝!
請問如果我有一個 table, 裡面有某一個欄位的型態是 大型二進位 的欄位型態, 請問像這樣的資料, 該用什麼方法列印呢 ?
請各位高手賜教 ! 謝謝!
要怎麼知道windows工作列上有哪些tab咧?(編號：9018)
我想要做一個跟windows的shell Explorer的工作列(就是通常在螢幕最下方的那一條工作列)類似的程式...要怎麼模擬呢?(包含右下角的工作匣唷)
有辦法知道使用者放入光碟片到光碟機中嗎???(編號：9017)
如果使用timer每隔一段時間便偵測cd-rom的情況(用MCI指令),即可知有無光碟片在光碟機中,但是如果不要用這個方法還有別的更好的方法嗎?...就我所知...當系統放入音樂cd時,windows會依registry中關於cd撥放程式的設定來自動啟動該程式,但如果不是音樂cd,windows也會有什麼訊息嗎...我想要知道的是windows系統會部會發出有關的訊息呢...還有要怎麼判斷光碟片的性質呢?? VCD,Music CD,普通CD...??
請問 SPREAD 的 VIRTUL MODE 跟 一般模式有何不同??(編號：9015)
請問 SPREAD 的 VIRTUL MODE 跟 一般模式有何不同??
小弟 連結 30000筆 的 TABLE 都要等一會 GRID 才會出現
是不是 那邊 屬性 設的不好啊 ??
小弟 連結 30000筆 的 TABLE 都要等一會 GRID 才會出現
是不是 那邊 屬性 設的不好啊 ??
請問何種grid可於程式中設定總列數及總行數....(編號：9013)
請問何種vb中何種Grid可以於程式中動態變更總行數、變列數且可於cell中讓user自行輸入資料????
小弟try的結果如下:
1.datagrid-----------＞ 無法動態設定總行數及總列數
2.MSFlexGrid---------＞無法於Cell中輸入資料
上述為小弟所try,如有誤請各位高手不吝指正。
小弟try的結果如下:
1.datagrid-----------＞ 無法動態設定總行數及總列數
2.MSFlexGrid---------＞無法於Cell中輸入資料
上述為小弟所try,如有誤請各位高手不吝指正。
請問有關 JPG 檔解析度的問題(編號：9012)
由於有大量的照片,而這些照片必須由人工去判斷其顏色均勻度.我將這些照片檔改成了 jpg 檔後,以我自己的電腦看那些照片,其效果和原本的 bmp 檔幾乎一樣,因此我就很高興的把程式散發出去了.但是同事馬上來反應,其效果變成很差,失真太嚴重了.我再去檢查的結果發現果然如此.別台電腦轉換而得的 jpg 檔,在別一台電腦看時可能會失真很嚴重,可能不會,請問有人能解答我可能的原因嗎?
我轉換成 jpg 檔的程式是利用http://dilib.hypermart.net/dl/dijpg.htm 的 dijpg.dll
目前我知道我的電腦設定成高彩(16bit)或全彩(32bit),其結果會差別很大,因為轉換格式的電腦和看圖片的電腦不一定會相同(圖形轉換後,同事可能從任何一台電腦去查看圖形).我不是很確定轉換時電腦的解析度是不是會影響最後轉換的結果,請熟悉於此的高手們能指點一下.謝謝.
我轉換成 jpg 檔的程式是利用http://dilib.hypermart.net/dl/dijpg.htm 的 dijpg.dll
目前我知道我的電腦設定成高彩(16bit)或全彩(32bit),其結果會差別很大,因為轉換格式的電腦和看圖片的電腦不一定會相同(圖形轉換後,同事可能從任何一台電腦去查看圖形).我不是很確定轉換時電腦的解析度是不是會影響最後轉換的結果,請熟悉於此的高手們能指點一下.謝謝.
如何結束其它的執行檔？(編號：9010)
我現在會用FindWindow及SendMessage來關閉其它程式視窗，但是像Serv-U這種程式，它是縮在SystemTray，並沒有視窗，那要怎麼關掉它呢？煩請高手賜教，謝謝！
?ActiveX無法產生物件?(編號：9007)
ㄚ雨兄,是這樣的,我原本是用這台電腦(PC1)的VB5.0寫程式,後來移到另一台電腦(PC2)繼續寫程式並將PC1的VB5.0移除,最後在PC2寫好了再將Source移回PC1執行,(此時PC1從新Install VB5.0),就出現了該Msg.
在gif 檔上放控制項?(編號：9005)
我用gif89a 放了張gif 檔，可是是全螢幕的，它把form 上的控制項蓋住了(command 鈕好像還效，只是看不到)，不知有沒有在gif 檔動時，同時可用表上的其他控制項?
如何建立dock window?(編號：9004)
請問如何用visual basic 建立dock window （dock window 就像在visual basic 6.0 左邊的 Tool Box 或右邊的 Properties View)
謝謝
謝謝
請幫忙看一下這個code 看那裡錯了???(編號：9003)
下面是我要找MIDForm的功能表上的名字,請幫我看一下為什麼不可以好嗎??
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hmenu As Long, ByVal nPos As Long) As Long
Public Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hmenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
Public Declare Function GetMenuItemID Lib "user32" (ByVal hmenu As Long, ByVal nPos As Long) As Long
Private Sub Command3_Click()
Dim hmenu As Long
Dim hsubmenu As Long
Dim aaa As String
Dim menuid As Long
hmenu = GetMenu(frmMain.hwnd)
hsubmenu = GetSubMenu(hmenu, 0)
menuid = GetMenuItemID(hsubmenu, 1)
Call GetMenuString(hsubmenu, menuid, aaa, 256, MF_BYPOSITION)
Form1.Text1.Text = aaa
End Sub
我執行時會出現應用程式發生錯誤，請問各位=高手要如何改進呢???
Public Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetSubMenu Lib "user32" (ByVal hmenu As Long, ByVal nPos As Long) As Long
Public Declare Function GetMenuString Lib "user32" Alias "GetMenuStringA" (ByVal hmenu As Long, ByVal wIDItem As Long, ByVal lpString As String, ByVal nMaxCount As Long, ByVal wFlag As Long) As Long
Public Declare Function GetMenuItemID Lib "user32" (ByVal hmenu As Long, ByVal nPos As Long) As Long
Private Sub Command3_Click()
Dim hmenu As Long
Dim hsubmenu As Long
Dim aaa As String
Dim menuid As Long
hmenu = GetMenu(frmMain.hwnd)
hsubmenu = GetSubMenu(hmenu, 0)
menuid = GetMenuItemID(hsubmenu, 1)
Call GetMenuString(hsubmenu, menuid, aaa, 256, MF_BYPOSITION)
Form1.Text1.Text = aaa
End Sub
我執行時會出現應用程式發生錯誤，請問各位=高手要如何改進呢???
如何建立dock window?(編號：9002)
請問如何用visual basic 建立dock window （dock window 就像在visual basic 6.0 左邊的 Tool Box 或右邊的 Properties View)
謝謝
謝謝
解釋乘法(編號：9001)
1)這是作者的一段話
strOutPut = str1 * str2 using character algorithm, slow but honest. Whole numbers only Inner
loop is optimized and hard to understand, but it works.
2)程式碼如下，本人一直猜不透作者背後的數學依據為何，請各位數學
底子好的高手，幫忙解釋此段。
For intIndex = 0 To intLast - 1
lngK = intLast1 - intIndex
sj = 1 - lngK
If sj ＜ 0 Then
sj = 0
End If
ej = intLast1 - lngK
If ej ＞ intLast2 - 1 Then
ej = intLast2 - 1
End If
3)Private Sub dhMulChar(ByVal str1 As String, ByVal str2 As String, ByRef strOutput As String)
Dim intLast1 As Integer
Dim intLast2 As Integer
Dim intLast As Integer
Dim intIndex As Integer
Dim sj As Integer
Dim ej As Integer
Dim lngJ As Long
Dim lngK As Long
Dim lngProduct As Long
' 計算第一字串長度。
intLast1 = Len(str1)
' 計算第二字串長度。
intLast2 = Len(str2)
' 計算小數點位置。
' 如12.34 * 56.78
' 小算點位數為相加 2 + 2 = 4位。
intLast = intLast1 + intLast2
' 給與空白位置。
strOutput = Space(intLast)
' 給與乘積變數為零。
lngProduct = 0
' 是從個位數開始計算。
For intIndex = 0 To intLast - 1
lngK = intLast1 - intIndex
sj = 1 - lngK
If sj ＜ 0 Then
sj = 0
End If
ej = intLast1 - lngK
If ej ＞ intLast2 - 1 Then
ej = intLast2 - 1
End If
For lngJ = sj To ej
lngProduct = lngProduct + Val(Mid(str1, lngK + lngJ, 1)) * Val(Mid(str2, intLast2 - lngJ, 1))
Next
Mid(strOutput, intLast - intIndex, 1) = Chr(mintAsc0 + CInt(lngProduct Mod 10))
lngProduct = lngProduct \ 10
Next intIndex
If lngProduct Then
strOutput = LTrim(Str(lngProduct)) & strOutput
End If
End Sub
strOutPut = str1 * str2 using character algorithm, slow but honest. Whole numbers only Inner
loop is optimized and hard to understand, but it works.
2)程式碼如下，本人一直猜不透作者背後的數學依據為何，請各位數學
底子好的高手，幫忙解釋此段。
For intIndex = 0 To intLast - 1
lngK = intLast1 - intIndex
sj = 1 - lngK
If sj ＜ 0 Then
sj = 0
End If
ej = intLast1 - lngK
If ej ＞ intLast2 - 1 Then
ej = intLast2 - 1
End If
3)Private Sub dhMulChar(ByVal str1 As String, ByVal str2 As String, ByRef strOutput As String)
Dim intLast1 As Integer
Dim intLast2 As Integer
Dim intLast As Integer
Dim intIndex As Integer
Dim sj As Integer
Dim ej As Integer
Dim lngJ As Long
Dim lngK As Long
Dim lngProduct As Long
' 計算第一字串長度。
intLast1 = Len(str1)
' 計算第二字串長度。
intLast2 = Len(str2)
' 計算小數點位置。
' 如12.34 * 56.78
' 小算點位數為相加 2 + 2 = 4位。
intLast = intLast1 + intLast2
' 給與空白位置。
strOutput = Space(intLast)
' 給與乘積變數為零。
lngProduct = 0
' 是從個位數開始計算。
For intIndex = 0 To intLast - 1
lngK = intLast1 - intIndex
sj = 1 - lngK
If sj ＜ 0 Then
sj = 0
End If
ej = intLast1 - lngK
If ej ＞ intLast2 - 1 Then
ej = intLast2 - 1
End If
For lngJ = sj To ej
lngProduct = lngProduct + Val(Mid(str1, lngK + lngJ, 1)) * Val(Mid(str2, intLast2 - lngJ, 1))
Next
Mid(strOutput, intLast - intIndex, 1) = Chr(mintAsc0 + CInt(lngProduct Mod 10))
lngProduct = lngProduct \ 10
Next intIndex
If lngProduct Then
strOutput = LTrim(Str(lngProduct)) & strOutput
End If
End Sub
散發Com時,出現的訊息.(編號：8999)
我在Win2000Server上產生一個散發程式.
我在WinNTWK4.0上安裝出現下列訊息,
然後就不安裝了.
我之前沒有遇過這種情形.
是在我們Win2000Srv被IT部門重灌之後產生的.
訊息如下:
Component Services(COM+ 1.0) are not installed on
this computer. This installationo requires Component
Services in oder to complete successfully.
Component Services are available on Windows 2000.
請各位前輩不吝賜教.
我在WinNTWK4.0上安裝出現下列訊息,
然後就不安裝了.
我之前沒有遇過這種情形.
是在我們Win2000Srv被IT部門重灌之後產生的.
訊息如下:
Component Services(COM+ 1.0) are not installed on
this computer. This installationo requires Component
Services in oder to complete successfully.
Component Services are available on Windows 2000.
請各位前輩不吝賜教.
如何在dbgrid用enter鍵替代方向鍵(編號：8997)
我在key_press的enent 中寫下
Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
????中間不知道在怎麼寫~
End If
End Sub
還有一個問題下拉式試窗是VB的那一個元件 ~
Private Sub DataGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
????中間不知道在怎麼寫~
End If
End Sub
還有一個問題下拉式試窗是VB的那一個元件 ~
請問如何判斷目前conn的transaction是在何種狀態?(編號：8989)
小弟在程式中對某些異動資料庫的過程中,使用了分散式交易處理,但資料是否Conn.CommitTrans或Conn.RollbackTrans並不一定,請問各位先賢如何判斷目前資料是否在異動中?謝謝!
VB程式免安裝探討(編號：8988)
歡迎大家一起來討論，以下是小弟的實作心得：
工作環境：Win98SE中文版、VB6.0 SP4中文企業版。
程式內容：僅用到VB內建的控制項。
步驟：
1.使用封裝部署精靈後，觀察setup.lst，
在[Bootstrap Files]中有以下八個檔案：
1.VB6STKIT.DLL 2.VB6CHT.DLL 3.COMCAT.DLL 4.STDOLE2.TLB
5.ASYCFILT.DLL 6.OLEPRO32.DLL 7.OLEAUT32.DLL 8.MSVBVM60.DLL
2.在另一台PC上重新安裝一個乾淨的Win98SE，以下簡稱(甲PC)，
其中在Windows\system中已內含STDOLE2.TLB和OLEAUT32.DLL這二個檔。
3.在(甲PC)的根目錄中，建立一個TEST的目錄，將TEST.EXE copy進去，
然後執行，結果是不能RUN。
4.將MSVBVM60.DLL copy進去，再RUN一次，還是不能RUN。
5.經過一連串的測試之後發現，除了TEST.EXE之外，再加上
MSVBVM60.DLL和ASYCFILT.DLL這二個個檔在同一目錄中，
TEST.EXE就可以RUN。
＜未完..待續＞
工作環境：Win98SE中文版、VB6.0 SP4中文企業版。
程式內容：僅用到VB內建的控制項。
步驟：
1.使用封裝部署精靈後，觀察setup.lst，
在[Bootstrap Files]中有以下八個檔案：
1.VB6STKIT.DLL 2.VB6CHT.DLL 3.COMCAT.DLL 4.STDOLE2.TLB
5.ASYCFILT.DLL 6.OLEPRO32.DLL 7.OLEAUT32.DLL 8.MSVBVM60.DLL
2.在另一台PC上重新安裝一個乾淨的Win98SE，以下簡稱(甲PC)，
其中在Windows\system中已內含STDOLE2.TLB和OLEAUT32.DLL這二個檔。
3.在(甲PC)的根目錄中，建立一個TEST的目錄，將TEST.EXE copy進去，
然後執行，結果是不能RUN。
4.將MSVBVM60.DLL copy進去，再RUN一次，還是不能RUN。
5.經過一連串的測試之後發現，除了TEST.EXE之外，再加上
MSVBVM60.DLL和ASYCFILT.DLL這二個個檔在同一目錄中，
TEST.EXE就可以RUN。
＜未完..待續＞
crystal report 8 如何控制每一行的筆數???(編號：8987)
請教各位有緣人,,在一張報表中.有很多筆的資料.當列印到報表底端時.報表右邊會有很大的空白.那我們如何控制目前正在列印這一行的筆數列印完後.再換到右邊空白的位置列印.---Thank You
資料表的union??(編號：8986)
各位VB專家:我有兩個欄位名稱與型態完全一致的資料表A,B,要結合成一個資料表NEW,我使用ADO,SQL STRING 大致是"SELECT XXX,YYY,ZZZ INTO NEW FROM A UNION SELECT XXX,YYY,ZZZ FROM B"結果顯示 " 動作查詢不能當成列來源使用 " 的訊息,請教各位高手有無方法可克服? 謝謝!!
顯示gif圖檔.....(編號：8982)
顯示gif圖檔.....
使用 Gif89.dll。首先在【專案】【設定使用元件】【控制項】頁中使用瀏覽功能加入 Gif89.dll
Gif89a 控制項
使用 gif89a 這個控制項的好處就是您可以不用寫任何程式碼，只要在屬性表中設定 FileName 屬性為副檔名為 .gif 的檔案即可。如果要自動調整大小，將 AutoSize 設為 True 即可。
雖然我趙上面說ㄉ做
但是卻一直顯示不出來他說ㄉ動畫
why??????~~~~~~
是要在什ㄇ屬性下還是模式下.
是標準執行檔ㄇ
還是activex ......
拜託......
thanks
使用 Gif89.dll。首先在【專案】【設定使用元件】【控制項】頁中使用瀏覽功能加入 Gif89.dll
Gif89a 控制項
使用 gif89a 這個控制項的好處就是您可以不用寫任何程式碼，只要在屬性表中設定 FileName 屬性為副檔名為 .gif 的檔案即可。如果要自動調整大小，將 AutoSize 設為 True 即可。
雖然我趙上面說ㄉ做
但是卻一直顯示不出來他說ㄉ動畫
why??????~~~~~~
是要在什ㄇ屬性下還是模式下.
是標準執行檔ㄇ
還是activex ......
拜託......
thanks
DataReport的Group分頁報表如何作 ?????????(編號：8981)
我用DataEnvironment / DataReport已作出Group分頁報表, 但
本頁/總頁 = 1/10, 2/10 , 3/10 .... 10/10
我想改成以Group分頁show 出,
例 :
共3種Group , 共10頁
-＞
(1)Group :
1/3, 2/3, 3/3
(2)Group :
1/4, 2/4, 3/4, 4/4 ...
我用Function 也寫不出此功能, 真快瘋了...
快救救我吧...
本頁/總頁 = 1/10, 2/10 , 3/10 .... 10/10
我想改成以Group分頁show 出,
例 :
共3種Group , 共10頁
-＞
(1)Group :
1/3, 2/3, 3/3
(2)Group :
1/4, 2/4, 3/4, 4/4 ...
我用Function 也寫不出此功能, 真快瘋了...
快救救我吧...
如何寫一個同時動作的副程式!!(編號：8980)
這是個模擬電梯動作的程式碼!!
這只是一部電梯而已
可是我要寫一個很多部的電梯同時在動作的程式
想了好幾了一直想不出個頭緒來..
倒底要怎樣寫一個副程式來完成多部電梯同時動作
麻煩各位前輩指導一下
謝謝!!
Dim counter As Integer
Dim sw As Integer
Dim sw_1 As Integer
Dim ii As Integer
Dim Clicker As Integer
Dim INDEX_1 As Integer
Dim INDEX_2 As Integer
Dim MOVE_ONE_TWO As Integer
Dim SW_ONE As Integer
Private Sub A1_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 1
Timer2.Enabled = True
End Sub
Private Sub A2_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 2
Timer2.Enabled = True
End Sub
Private Sub A3_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 3
Timer2.Enabled = True
End Sub
Private Sub A4_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 4
Timer2.Enabled = True
End Sub
Private Sub A5_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 5
Timer2.Enabled = True
End Sub
Private Sub Command1_Click(Index As Integer)
Clicker = Index
End Sub
Private Sub Command2_Click(Index As Integer)
Clicker = Index
End Sub
Private Sub Form_Load()
Clicker = 0
ii = 0
sw = 0
counter = 0
INDEX_1 = 0
Label2.Caption = "電梯正在移動中......"
For i = 1 To 5
Shape1(i).FillColor = Me.BackColor
'Shape2(i).FillColor = Me.BackColor
Next i
End Sub
Private Sub Timer1_Timer()
If Clicker = 0 Then
MOVE_1
Else
If Clicker = counter Then Timer1.Enabled = False: index_cls_tow
If Clicker ＞ counter Then
counter = counter + 1
showcolor
End If
If Clicker ＜ counter Then
counter = counter - 1
showcolor
End If
End If
End Sub
Public Sub showcolor() '顯示出目前電梯停留在那個樓層
For i = 1 To 5
Shape1(i).FillColor = Me.BackColor
Next i
Shape1(counter).FillColor = RGB(255, 0, 0)
Label1(0).Caption = counter
End Sub
Public Sub INDEX_CLS()
A1(Clicker).Visible = False
A2(Clicker).Visible = False
A3(Clicker).Visible = False
A4(Clicker).Visible = False
A5(Clicker).Visible = False
End Sub
Public Sub INDEX_MOVE()
'Do
'counter
'Loop Until (INDEX_1 = counter)
End Sub
Public Sub MOVE_1() '電梯移動
If counter ＞= 5 Then sw = 1
If sw = 1 Then
counter = counter - 1
If counter ＜= 1 Then sw = 0
showcolor
Else
counter = counter + 1
showcolor
End If
Label1(0).Caption = counter
End Sub
Public Sub index_cls_tow()
A1(Clicker).Visible = True
A2(Clicker).Visible = True
A3(Clicker).Visible = True
A4(Clicker).Visible = True
A5(Clicker).Visible = True
End Sub
Private Sub Timer2_Timer()
If sw_1 = 1 Then
ii = ii + 1
If ii = 3 Then
sw_1 = 0
ii = 0
Clicker = 0
Label2.Caption = "電梯正在移動中......"
Timer1.Enabled = True
Timer2.Enabled = False
End If
Else
If counter ＞ INDEX_1 Then
counter = counter - 1
showcolor
Label2.Caption = "電梯正在前往第 " & INDEX_1 & " 樓層中......"
End If
If counter ＜ INDEX_1 Then
counter = counter + 1
showcolor
Label2.Caption = "電梯正在前往第 " & INDEX_1 & " 樓層中......"
End If
If counter = INDEX_1 Then
Label2.Caption = "電梯已經到達所在樓層!!"
sw_1 = 1
End If
End If
End Sub
這只是一部電梯而已
可是我要寫一個很多部的電梯同時在動作的程式
想了好幾了一直想不出個頭緒來..
倒底要怎樣寫一個副程式來完成多部電梯同時動作
麻煩各位前輩指導一下
謝謝!!
Dim counter As Integer
Dim sw As Integer
Dim sw_1 As Integer
Dim ii As Integer
Dim Clicker As Integer
Dim INDEX_1 As Integer
Dim INDEX_2 As Integer
Dim MOVE_ONE_TWO As Integer
Dim SW_ONE As Integer
Private Sub A1_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 1
Timer2.Enabled = True
End Sub
Private Sub A2_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 2
Timer2.Enabled = True
End Sub
Private Sub A3_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 3
Timer2.Enabled = True
End Sub
Private Sub A4_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 4
Timer2.Enabled = True
End Sub
Private Sub A5_Click(Index As Integer)
INDEX_CLS
INDEX_1 = 5
Timer2.Enabled = True
End Sub
Private Sub Command1_Click(Index As Integer)
Clicker = Index
End Sub
Private Sub Command2_Click(Index As Integer)
Clicker = Index
End Sub
Private Sub Form_Load()
Clicker = 0
ii = 0
sw = 0
counter = 0
INDEX_1 = 0
Label2.Caption = "電梯正在移動中......"
For i = 1 To 5
Shape1(i).FillColor = Me.BackColor
'Shape2(i).FillColor = Me.BackColor
Next i
End Sub
Private Sub Timer1_Timer()
If Clicker = 0 Then
MOVE_1
Else
If Clicker = counter Then Timer1.Enabled = False: index_cls_tow
If Clicker ＞ counter Then
counter = counter + 1
showcolor
End If
If Clicker ＜ counter Then
counter = counter - 1
showcolor
End If
End If
End Sub
Public Sub showcolor() '顯示出目前電梯停留在那個樓層
For i = 1 To 5
Shape1(i).FillColor = Me.BackColor
Next i
Shape1(counter).FillColor = RGB(255, 0, 0)
Label1(0).Caption = counter
End Sub
Public Sub INDEX_CLS()
A1(Clicker).Visible = False
A2(Clicker).Visible = False
A3(Clicker).Visible = False
A4(Clicker).Visible = False
A5(Clicker).Visible = False
End Sub
Public Sub INDEX_MOVE()
'Do
'counter
'Loop Until (INDEX_1 = counter)
End Sub
Public Sub MOVE_1() '電梯移動
If counter ＞= 5 Then sw = 1
If sw = 1 Then
counter = counter - 1
If counter ＜= 1 Then sw = 0
showcolor
Else
counter = counter + 1
showcolor
End If
Label1(0).Caption = counter
End Sub
Public Sub index_cls_tow()
A1(Clicker).Visible = True
A2(Clicker).Visible = True
A3(Clicker).Visible = True
A4(Clicker).Visible = True
A5(Clicker).Visible = True
End Sub
Private Sub Timer2_Timer()
If sw_1 = 1 Then
ii = ii + 1
If ii = 3 Then
sw_1 = 0
ii = 0
Clicker = 0
Label2.Caption = "電梯正在移動中......"
Timer1.Enabled = True
Timer2.Enabled = False
End If
Else
If counter ＞ INDEX_1 Then
counter = counter - 1
showcolor
Label2.Caption = "電梯正在前往第 " & INDEX_1 & " 樓層中......"
End If
If counter ＜ INDEX_1 Then
counter = counter + 1
showcolor
Label2.Caption = "電梯正在前往第 " & INDEX_1 & " 樓層中......"
End If
If counter = INDEX_1 Then
Label2.Caption = "電梯已經到達所在樓層!!"
sw_1 = 1
End If
End If
End Sub
Crystal Report8.0如何在Web上做批次列印(編號：8977)
請問前輩們
在Web上用有無可能批次列印?即使沒View也沒關係.
此外,在SmartViewer上列印,都會進PrintSetup,可以避開嗎?
如果可以避開,小第至少可能用ASP來解決批次列印的問題.
小地上述情況是在不同的report檔下希望批次印出.
謝謝您抽空瀏覽我的問題!
在Web上用有無可能批次列印?即使沒View也沒關係.
此外,在SmartViewer上列印,都會進PrintSetup,可以避開嗎?
如果可以避開,小第至少可能用ASP來解決批次列印的問題.
小地上述情況是在不同的report檔下希望批次印出.
謝謝您抽空瀏覽我的問題!
有關picturebox的問題(編號：8974)
請問一下:要如何在picturebox上面放個imagebox呢???
因為每次一放~~~imagebox就會被picturebox給覆蓋掉了....
請問該如何設定...
還有就是如何把imagebox中的圖 的背景 變成透明圖~~~~
麻煩請說的清楚一些~~~
多謝~^^
因為每次一放~~~imagebox就會被picturebox給覆蓋掉了....
請問該如何設定...
還有就是如何把imagebox中的圖 的背景 變成透明圖~~~~
麻煩請說的清楚一些~~~
多謝~^^
不知如何是好?(編號：8973)
select * from test
where 客戶名稱= '" & v & "'and 日期＞=#" & dt & "#"
會出現找不到運算元日期的錯誤?
debug.print rs.files("日期")
出現在所要求名稱或敘數的相關集合中找不到物件
我檢查過資料庫欄位設定並無問題,不知是何因素造成
懇請各位先進提攜初學後輩感恩不盡
where 客戶名稱= '" & v & "'and 日期＞=#" & dt & "#"
會出現找不到運算元日期的錯誤?
debug.print rs.files("日期")
出現在所要求名稱或敘數的相關集合中找不到物件
我檢查過資料庫欄位設定並無問題,不知是何因素造成
懇請各位先進提攜初學後輩感恩不盡
緊急!!!!!!!!!!!!!!!!!!!!!!(編號：8972)
＜html＞
＜head＞
＜meta http-equiv="Content-Type" content="text/html; charset=big5"＞
＜meta name="GENERATOR" content="Microsoft FrontPage 4.0"＞
＜meta name="ProgId" content="FrontPage.Editor.Document"＞
＜title＞新網頁1＜/title＞
＜/head＞
＜body＞
＜div＞
＜font size="2"＞最近自己向同學要ㄋ＜span class="510193609-06012001"＞
一ㄍ叫 ghost ㄉ程式＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞於是自己便 ....先進到ghost
裡面＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞然後 執行
Local ---＞ Partition ---＞ To Partition＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞於是便開始ㄋ
硬碟對拷...＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞之前我設定 D槽是 目的
.....G槽是 來源地....之後出現ㄋ一ㄍ對話方塊＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞便開始對拷..＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞結果拷到一半 ...電腦當掉ㄋ...＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞便只好強制觀機 .......＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞沒想到開完機之後發現
........＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞我D槽ㄉ東西都不見ㄋ
......＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞但是我看D槽ㄉ使用容量
...還是之前ㄉ3.91GB ㄚ.有 7.31GB 剩下約 3.4GB＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/D槽ㄉ資料.jpg" width="800" height="600"＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞誕就是進去 D槽時 ...卻看不到任何ㄉ檔案....＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/D槽ㄉ資料.jpg" width="800" height="600"＞
＜p＞ ＜/p＞
＜p＞＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/D槽ㄉ內容.jpg" width="800" height="600"＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞只看到一ㄍ
Win386.swp 檔＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞天ㄚ...我ㄉˋ重要檔案及程式都在
D槽ㄟ...＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞拜託這是怎ㄇ一回室ㄚ....我現在正不知所措!!!!＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞我使用ㄉ步驟是 ....＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/ghosT----2.jpg" width="624" height="412"＞＜/span＞＜/font＞
＜p＞ ＜/p＞
＜p＞＜font size="2"＞＜span class="510193609-06012001"＞＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/ghosT----1.jpg" width="617" height="419"＞＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/ghosT----3.jpg" width="617" height="415"＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/ghosT----4.jpg" width="622" height="418"＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞當我按下 YES
後 .....便發生之前我說ㄉ事情ㄋ...............＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞傷腦筋請問如何恢復我D槽之前ㄉ檔案ㄚ....＜/span＞＜/font＞
＜/div＞
＜p＞＜font size="2"＞＜span class="510193609-06012001"＞THANKS...........＜/span＞＜/font＞＜/p＞
＜/body＞
＜/html＞
＜head＞
＜meta http-equiv="Content-Type" content="text/html; charset=big5"＞
＜meta name="GENERATOR" content="Microsoft FrontPage 4.0"＞
＜meta name="ProgId" content="FrontPage.Editor.Document"＞
＜title＞新網頁1＜/title＞
＜/head＞
＜body＞
＜div＞
＜font size="2"＞最近自己向同學要ㄋ＜span class="510193609-06012001"＞
一ㄍ叫 ghost ㄉ程式＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞於是自己便 ....先進到ghost
裡面＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞然後 執行
Local ---＞ Partition ---＞ To Partition＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞於是便開始ㄋ
硬碟對拷...＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞之前我設定 D槽是 目的
.....G槽是 來源地....之後出現ㄋ一ㄍ對話方塊＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞便開始對拷..＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞結果拷到一半 ...電腦當掉ㄋ...＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞便只好強制觀機 .......＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞沒想到開完機之後發現
........＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞我D槽ㄉ東西都不見ㄋ
......＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞但是我看D槽ㄉ使用容量
...還是之前ㄉ3.91GB ㄚ.有 7.31GB 剩下約 3.4GB＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/D槽ㄉ資料.jpg" width="800" height="600"＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞誕就是進去 D槽時 ...卻看不到任何ㄉ檔案....＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/D槽ㄉ資料.jpg" width="800" height="600"＞
＜p＞ ＜/p＞
＜p＞＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/D槽ㄉ內容.jpg" width="800" height="600"＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞只看到一ㄍ
Win386.swp 檔＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞天ㄚ...我ㄉˋ重要檔案及程式都在
D槽ㄟ...＜/span＞＜/font＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞拜託這是怎ㄇ一回室ㄚ....我現在正不知所措!!!!＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞我使用ㄉ步驟是 ....＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/ghosT----2.jpg" width="624" height="412"＞＜/span＞＜/font＞
＜p＞ ＜/p＞
＜p＞＜font size="2"＞＜span class="510193609-06012001"＞＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/ghosT----1.jpg" width="617" height="419"＞＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/ghosT----3.jpg" width="617" height="415"＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜img border="0" src="file:///C:/WINDOWS.000/Desktop/我的純文字夾/給電腦專家ㄉ郵件/ghosT----4.jpg" width="622" height="418"＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞當我按下 YES
後 .....便發生之前我說ㄉ事情ㄋ...............＜/span＞＜/font＞
＜/div＞
＜div＞
＜/div＞
＜div＞
＜font size="2"＞＜span class="510193609-06012001"＞傷腦筋請問如何恢復我D槽之前ㄉ檔案ㄚ....＜/span＞＜/font＞
＜/div＞
＜p＞＜font size="2"＞＜span class="510193609-06012001"＞THANKS...........＜/span＞＜/font＞＜/p＞
＜/body＞
＜/html＞
VB5做的ActiveX Control在Delphi使用有問題?(編號：8971)
我用VB5做了一個ActiveX Control, 安裝到其他電腦後,
若用VB來引用都沒有問題, 但是用Delphi來引用卻有一堆問題:
1. 只有Property(As Integer 與 As String)可以用,
Sub 與 Function(As Integer) 都不能用, 會死當.
2. 若將Function改為Property, 則原本不須要傳參數的可以用,
但須要傳參數的(ByVal xx As String)還是會死當, 不然就是
產生一個'無法在執行階段設定Name屬性'的錯誤, 程式停在:
xxx_TLB.pas (Delphi 自己產生的)
//=======================================================
function Txxx.Get_yyy(const SSS_6: WideString): Smallint;
begin
Result := DefaultInterface.Get_yyy(SSS_6); //(停在這裡)
end;
//=======================================================
VB 的程式碼如下:
'=======================================================
Public Property Get yyy(ByVal SSS_6 As String) As Integer
yyy = CInt(Len(SSS_6))
End Property
'=======================================================
Delphi我並不熟, 不知有無高人可指點? 謝謝!
若用VB來引用都沒有問題, 但是用Delphi來引用卻有一堆問題:
1. 只有Property(As Integer 與 As String)可以用,
Sub 與 Function(As Integer) 都不能用, 會死當.
2. 若將Function改為Property, 則原本不須要傳參數的可以用,
但須要傳參數的(ByVal xx As String)還是會死當, 不然就是
產生一個'無法在執行階段設定Name屬性'的錯誤, 程式停在:
xxx_TLB.pas (Delphi 自己產生的)
//=======================================================
function Txxx.Get_yyy(const SSS_6: WideString): Smallint;
begin
Result := DefaultInterface.Get_yyy(SSS_6); //(停在這裡)
end;
//=======================================================
VB 的程式碼如下:
'=======================================================
Public Property Get yyy(ByVal SSS_6 As String) As Integer
yyy = CInt(Len(SSS_6))
End Property
'=======================================================
Delphi我並不熟, 不知有無高人可指點? 謝謝!
VB for WinCE 用法有差異耶....(編號：8970)
VBCE有些物件及語法不能使用!
像是image及picture物件
連關閉程式ㄉ語法都不一樣....
光是寫一個小程式就花ㄌ我一個禮拜ㄉ時間
是否有專門介紹VB for WinCE的書籍可以買ㄚ?
像是image及picture物件
連關閉程式ㄉ語法都不一樣....
光是寫一個小程式就花ㄌ我一個禮拜ㄉ時間
是否有專門介紹VB for WinCE的書籍可以買ㄚ?
image(編號：8967)
各位高手，我有點問題，請問我的image做成輸入和輸出由程式如下
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Form2.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Image1_Click(Index As Integer)
Form2.Image1.Picture = Form1.Image1(Index).Picture
Form1.Hide
Form2.Show
End Sub
和輸出是
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
但是我想加二個image是用來上一頁和下一頁的，但是我寫完後執行不出來！！所以請幫幫！！(上面沒有問題)
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Form2.Hide
End Sub
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub Image1_Click(Index As Integer)
Form2.Image1.Picture = Form1.Image1(Index).Picture
Form1.Hide
Form2.Show
End Sub
和輸出是
Private Sub Command1_Click()
Form1.Show
Form2.Hide
End Sub
但是我想加二個image是用來上一頁和下一頁的，但是我寫完後執行不出來！！所以請幫幫！！(上面沒有問題)
怪現象!日期錯亂(編號：8966)
大家好!我是用VB6sp3+Access97運作系統,一直都很正常,但是,今年(2001/1/1)開始,程式就不正常了,例如:我在vb輸入#2001/2/3#,它會自動改成#2/3/2001#,運用DataEnvirent更新到資料庫,之後打開access看看...,差點昏倒,居然變成#2002/3/1#....但是,如果用ADO去更新就蠻正常的,請問各位,你們有遇到這麼古怪的狀況嗎?如何解決呢?謝謝!
請問如何以 VB 6.0 建立一個 Access 的 .MDB 檔案呢?(編號：8964)
Hello, everybody!
請問如何以 VB 6.0 建立一個 Access 的 .MDB 檔案呢?
如果同時也有人知道 Sql 的語法那就更好了 !
因為到目前為止, 我只會在已經存在 .mdb 的時候, 建立表格而已
請問如何以 VB 6.0 建立一個 Access 的 .MDB 檔案呢?
如果同時也有人知道 Sql 的語法那就更好了 !
因為到目前為止, 我只會在已經存在 .mdb 的時候, 建立表格而已
為什麼無法修改??(編號：8963)
很奇怪~~有些VB相關書籍內所附的VB程式
明明是原始碼,但為何要改它裡面內容的時候
卻無法更改呢.....
請問該如何解決這種問題....
多謝~~~~~
對了~~~~上述情況,即使把整個程式copy到c槽中也無法修改~~~~
會的人教一下吧~~~
明明是原始碼,但為何要改它裡面內容的時候
卻無法更改呢.....
請問該如何解決這種問題....
多謝~~~~~
對了~~~~上述情況,即使把整個程式copy到c槽中也無法修改~~~~
會的人教一下吧~~~
Modern Lifestyle Hard on People’s Health(編號：8962)
Taiwan has become one of the region’s most developed nations, and its society has, in the process, become increasingly cosmopolitan. While these changes have improved our lifestyle, however, they may also be bringing new health worries.
In the opinion of a student at Taipei Medical University, one culprit is Western food, which has become very popular and common. People are eating much larger portions of meat, as well as cheese, butter, and worse, the fried foods at fast-food restaurants.
Our modern lifestyle also keeps us constantly on the go. There is usually no time for exercise. And the rush-rush-rush outlook also leads to poorer eating habits. Breakfast, if eaten, and lunch may consist of pastries or fast food; square meals are becoming rare.
People need to pay much greater attention to their eating and exercising habits. It is not only a question of waistlines; the way one feels, one’s health, and one’s life expectancy are also on the line.
In the opinion of a student at Taipei Medical University, one culprit is Western food, which has become very popular and common. People are eating much larger portions of meat, as well as cheese, butter, and worse, the fried foods at fast-food restaurants.
Our modern lifestyle also keeps us constantly on the go. There is usually no time for exercise. And the rush-rush-rush outlook also leads to poorer eating habits. Breakfast, if eaten, and lunch may consist of pastries or fast food; square meals are becoming rare.
People need to pay much greater attention to their eating and exercising habits. It is not only a question of waistlines; the way one feels, one’s health, and one’s life expectancy are also on the line.
如何在crystal report 在讀取資料前先做一斷SQL處理(編號：8961)
個位高手~我要在VB6先做一斷SQL處理完後在將資料丟給crystal report 請問這要如果在vb裡面下這一段序述?或是crystal report 可以處理SQL的序述?
thank's~
thank's~
請問有沒有縫圖功能的component for VB使用的?(編號：8955)
小弟最近需要將一些某邊長度相同的圖片把他們合併成一張新的圖片，請問VB中有辦法做到嗎?或是已有現成的component了呢?謝謝
Shell 指令(編號：8954)
我用VB中的shell執行個 A 程式,
結果在 VB 與 A 交互使用下,
就當機了! 我猜想可能是記憶體相衝.
請問: 在執行Shell時, 是否可指定
記憶體相獨立 ?
結果在 VB 與 A 交互使用下,
就當機了! 我猜想可能是記憶體相衝.
請問: 在執行Shell時, 是否可指定
記憶體相獨立 ?
請問那一種GRID可以複選(編號：8953)
我想要用來GRID來選取資料，並可多列複選，且被選取的列可以顯示不同的顏色，請問各路高手，我該要用那一種GRID，並程式該如何寫才行，敬請不吝指教，謝謝!!
如何以ADO使ACCESS的連結資料表保持開啟以增進速度,效率?(編號：8950)
據ACCESS說明如下:
當您開啟主要的資料庫及開啟資料表和表單時，您可以大幅增進執行效能，方法是強制連結資料庫保持開啟。若要如此做，請在連結的資料庫中建立一個空白資料表，並連結在主要的資料庫中的資料表。然後請使用 [OpenRecordset] 方法開啟連結資料表。這樣可以避免 Microsoft Jet 資料庫引擎重複地開啟和關閉連結的資料庫，以及建立和刪除相關的 .ldb 檔案
但ADO該如何做?
當您開啟主要的資料庫及開啟資料表和表單時，您可以大幅增進執行效能，方法是強制連結資料庫保持開啟。若要如此做，請在連結的資料庫中建立一個空白資料表，並連結在主要的資料庫中的資料表。然後請使用 [OpenRecordset] 方法開啟連結資料表。這樣可以避免 Microsoft Jet 資料庫引擎重複地開啟和關閉連結的資料庫，以及建立和刪除相關的 .ldb 檔案
但ADO該如何做?
題目:比大小過五關(編號：8949)
題目:比大小過五關
除去7以後,從1到13中隨機(用亂數)挑五個數字,分別為第一到
第五關的數字.讓遊戲者猜這個數字比7大還是比7小.如果遊戲
者猜對了,就過關,可以繼續猜下一關;如果猜錯了,遊戲結束.
(你可以用圖片顯示數字,這樣畫面會比較吸引人.此外還可以加
入押注的功能,每過一關獎金就增加.)
提示:亂數,文字盒,標籤,功能鈕
除去7以後,從1到13中隨機(用亂數)挑五個數字,分別為第一到
第五關的數字.讓遊戲者猜這個數字比7大還是比7小.如果遊戲
者猜對了,就過關,可以繼續猜下一關;如果猜錯了,遊戲結束.
(你可以用圖片顯示數字,這樣畫面會比較吸引人.此外還可以加
入押注的功能,每過一關獎金就增加.)
提示:亂數,文字盒,標籤,功能鈕
急..一個用vb啟動01.htm檔案fullscreen畫面..............(編號：8946)
請教高手
急..
要做一個用vb啟動01.htm檔案fullscreen畫面..............
學淺的我用javascript 開啟但必須呼叫兩個視窗
這樣關掉視窗的動作如何達到一個呢
亦或者用vb有較簡潔的做法呢
請指點..........
急..
要做一個用vb啟動01.htm檔案fullscreen畫面..............
學淺的我用javascript 開啟但必須呼叫兩個視窗
這樣關掉視窗的動作如何達到一個呢
亦或者用vb有較簡潔的做法呢
請指點..........
當我用jro壓縮後用visdata 工具開啟資料檔其資料表欄位會遺失(編號：8944)
當我用jro壓縮後用visdata 工具開啟資料檔其資料表欄位會遺失
所用語法為:
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\acc\acc.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\acc\acc5.mdb;Jet OLEDB:Engine Type=4"
但手動用visdata所提供的壓縮功能則可正常開啟且資料表內的欄位不會遺失.
其原資料檔及資料表是用visdata所建立.
所用語法為:
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\acc\acc.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\acc\acc5.mdb;Jet OLEDB:Engine Type=4"
但手動用visdata所提供的壓縮功能則可正常開啟且資料表內的欄位不會遺失.
其原資料檔及資料表是用visdata所建立.
壓縮mdb檔後,用visdata 工具開啟資料檔其資料表欄會遺失(編號：8943)
當我用jro壓縮後用visdata 工具開啟資料檔其資料表欄會遺失
所用語法為:
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\acc\acc.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\acc\acc5.mdb;Jet OLEDB:Engine Type=4"
但手動用visdata所提供的壓縮功能則可正常開啟且資料表內的欄位不會遺失.
其原資料檔及資料表是用visdata所建立.
所用語法為:
Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\acc\acc.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\acc\acc5.mdb;Jet OLEDB:Engine Type=4"
但手動用visdata所提供的壓縮功能則可正常開啟且資料表內的欄位不會遺失.
其原資料檔及資料表是用visdata所建立.
請教使用函數傳遞Recordset(編號：8939)
Private Sub Form_Load()
Dim rs1 As ADODB.RecordSet
Set rs1 = Getrs
DataGrid1.DataSource = rs1
End Sub
Private Function Getrs() As ADODB.RecordSet
Dim conn As ADODB.Connection
Dim rs As ADODB.RecordSet
Dim strConn As String
Dim strSQL As String
Set conn = New ADODB.Connection
Set rs = New ADODB.RecordSet
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Sourcece=C:\DB.mdb"
conn.Open strConn
strSQL = "SELECT * FROM Table"
rs.CursorLocation = adUseClient
rs.Open strSQL, conn, adOpenKeyset, adLockBatchOptimistic
Set Getrs = rs
conn.Close
rs.close
Set conn=Nothing
Set rs = Nothing
End Function
可是當我執行到Form_load中的Set DataGrid1.DataSource=rs1
就會出現,參數為不可接受了類型..
可是如果我把Function Getrs內的程式碼(除了rs.close和...)再去掉Form_Load中的再將DataGrid1.DataSource=rs卻可執行..
另外請教一點,如果我在Form_Load中,把rs.CursorLoaction=adUseServer那最後傳回來的rs1會是adUseClient還是adUseServer呢(在Form_Load中已先將rs1設成adUseServer再去呼叫Function Getrs但是Getrs中所設定rs為adUseClient那傳回值是adUseClient但那rs1最後是..?)
謝謝
Dim rs1 As ADODB.RecordSet
Set rs1 = Getrs
DataGrid1.DataSource = rs1
End Sub
Private Function Getrs() As ADODB.RecordSet
Dim conn As ADODB.Connection
Dim rs As ADODB.RecordSet
Dim strConn As String
Dim strSQL As String
Set conn = New ADODB.Connection
Set rs = New ADODB.RecordSet
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Sourcece=C:\DB.mdb"
conn.Open strConn
strSQL = "SELECT * FROM Table"
rs.CursorLocation = adUseClient
rs.Open strSQL, conn, adOpenKeyset, adLockBatchOptimistic
Set Getrs = rs
conn.Close
rs.close
Set conn=Nothing
Set rs = Nothing
End Function
可是當我執行到Form_load中的Set DataGrid1.DataSource=rs1
就會出現,參數為不可接受了類型..
可是如果我把Function Getrs內的程式碼(除了rs.close和...)再去掉Form_Load中的再將DataGrid1.DataSource=rs卻可執行..
另外請教一點,如果我在Form_Load中,把rs.CursorLoaction=adUseServer那最後傳回來的rs1會是adUseClient還是adUseServer呢(在Form_Load中已先將rs1設成adUseServer再去呼叫Function Getrs但是Getrs中所設定rs為adUseClient那傳回值是adUseClient但那rs1最後是..?)
謝謝
dbase 檔案用 vb 時, 索引檔的同步化問題(編號：8937)
請教您:
用 clipper 寫的一些應用程式，有使用一些索引檔，如 .ntx .cdx等，
若要同時用VB開發新程式來讀寫 .DBF的資料庫，會造成這些索引檔的不同步，每次要再用 clipper 的程式時，要再 reindex, 非常麻煩，我問過許多vb書籍的作者都沒辦法解決，希望能聽聽您的看法，謝謝!
用 clipper 寫的一些應用程式，有使用一些索引檔，如 .ntx .cdx等，
若要同時用VB開發新程式來讀寫 .DBF的資料庫，會造成這些索引檔的不同步，每次要再用 clipper 的程式時，要再 reindex, 非常麻煩，我問過許多vb書籍的作者都沒辦法解決，希望能聽聽您的看法，謝謝!
Adodc1.Recordset.AddNew 後若不輸入資料 會錯誤 WHY?(編號：8936)
Adodc1.Recordset.AddNew
後若不輸入資料 會錯誤
錯誤訊息是
執行階段錯誤 -2147467259
不能插入一空列 。列至少需設定一欄位值
WHY
後若不輸入資料 會錯誤
錯誤訊息是
執行階段錯誤 -2147467259
不能插入一空列 。列至少需設定一欄位值
WHY
RDS的迷思(編號：8934)
各位我用RDS寫了一個遠端存取的程式; 但有問題, 狀況是這樣的.
一開始我架了一台NT server(A),Pack 5, 灌好了IIS 4.0, 然後我將目錄權限設定為"執行(包含指令檔)". 然後我在另一台NT server上跑我的
的程式. OK, 沒問題, 都抓的到資料.
然後, 我又因職務需要, 加灌了另一台NT server(B), 不過是pack 6. 結果當我連結到那台 Bserver時, 卻會出現抓取不到資料的錯誤. 程式
位置如下:
public sub rdso_onreadystatechange()
On Error Resume Next
If rdso.ReadyState = adcReadyStateComplete _
Or rdso.ReadyState = adcReadyStateInteractive Then
Set rs = rdso.Recordset ----＞ 會抓不到資料
If rs.State = adStateClosed Then
MsgBox " 錯誤! 讀取不到資料" -----＞然後就出現我自訂的錯誤
Unload Me
Else
CheckUser rs '檢查使用者身分
End If
End If
end sub
後來, 我又裝了一台Win 2000, 照樣給我死在那. 相同的情形一再發生.
所以我想請問各位, 是不是Pack的問題呢? 容我再一次強調, 連結到A server 上跑的可是輕鬆愉快喔....＞＜
請各位救救我吧...
----------------
焦額人
一開始我架了一台NT server(A),Pack 5, 灌好了IIS 4.0, 然後我將目錄權限設定為"執行(包含指令檔)". 然後我在另一台NT server上跑我的
的程式. OK, 沒問題, 都抓的到資料.
然後, 我又因職務需要, 加灌了另一台NT server(B), 不過是pack 6. 結果當我連結到那台 Bserver時, 卻會出現抓取不到資料的錯誤. 程式
位置如下:
public sub rdso_onreadystatechange()
On Error Resume Next
If rdso.ReadyState = adcReadyStateComplete _
Or rdso.ReadyState = adcReadyStateInteractive Then
Set rs = rdso.Recordset ----＞ 會抓不到資料
If rs.State = adStateClosed Then
MsgBox " 錯誤! 讀取不到資料" -----＞然後就出現我自訂的錯誤
Unload Me
Else
CheckUser rs '檢查使用者身分
End If
End If
end sub
後來, 我又裝了一台Win 2000, 照樣給我死在那. 相同的情形一再發生.
所以我想請問各位, 是不是Pack的問題呢? 容我再一次強調, 連結到A server 上跑的可是輕鬆愉快喔....＞＜
請各位救救我吧...
----------------
焦額人
請問關於data environment中的sql問題(編號：8933)
請問要如何讓data environment中的sql指令得知別的表單中的adodc資料?
例如:
我現在執行form1,並且將資料移至第3筆後,我想要列印此筆資料,按下列印按鈕後,data environment中的command1(SQL指令)抓到我現在是在筆3筆資料後,只列印這筆資料!!
拜託幫幫我吧,因為我不知道列印資料一定要有data environment,可是我的所有程式都寫好了呀!!就差這一步了,研究好幾天了,謝謝各位高手的幫忙.
例如:
我現在執行form1,並且將資料移至第3筆後,我想要列印此筆資料,按下列印按鈕後,data environment中的command1(SQL指令)抓到我現在是在筆3筆資料後,只列印這筆資料!!
拜託幫幫我吧,因為我不知道列印資料一定要有data environment,可是我的所有程式都寫好了呀!!就差這一步了,研究好幾天了,謝謝各位高手的幫忙.
如何從VB做crystal report的ODBC登錄(編號：8926)
我用的crystal report是4.6版。想要用SelectionFormula來做資料的篩選。卻出現錯誤訊息"unable to connect:incorrect log on parameters"。加上LogOnServer又出現"引數不為選擇性"。
我用連線方式是ADO 利用"*.dsn"來連接。
我用連線方式是ADO 利用"*.dsn"來連接。
九九乘法表(編號：8925)
九九乘法表
: 題目:
: 在表單上以文字盒作為九九乘法表的輸出。可以讓使用者按下一個功能鈕後
: 顯示輸出。
: 提示:
: 文字盒，功能鈕，文字盒MultiLine設定為True
: 多謝....
: 題目:
: 在表單上以文字盒作為九九乘法表的輸出。可以讓使用者按下一個功能鈕後
: 顯示輸出。
: 提示:
: 文字盒，功能鈕，文字盒MultiLine設定為True
: 多謝....
為什麼會出現 太多用戶端工作(編號：8924)
大家好:
不知道為什麼,有時候在撰寫程式,按下F5時會出現
"3053"
"太多用戶端工作"
這個錯誤!!
把VB關掉,重開之後又好了,是不是記憶體的問題
要怎麼解決呢?
(我在寫有關資料庫的程式,使用的是VB6,SP4)
謝謝!!
不知道為什麼,有時候在撰寫程式,按下F5時會出現
"3053"
"太多用戶端工作"
這個錯誤!!
把VB關掉,重開之後又好了,是不是記憶體的問題
要怎麼解決呢?
(我在寫有關資料庫的程式,使用的是VB6,SP4)
謝謝!!
請教古早的BASIC語法(編號：8920)
取近挑戰超大數(BIG NUMBER)的加減乘除
看了他人古早的BASIC程式，有點不解，各位使用過古早BASIC的各位先進，請幫忙解釋下列程式為何如此用。
Mid(strOutput, intIndex, 1) = Chr(mintAsc0 + CInt(lngProduct Mod 10))
看了他人古早的BASIC程式，有點不解，各位使用過古早BASIC的各位先進，請幫忙解釋下列程式為何如此用。
Mid(strOutput, intIndex, 1) = Chr(mintAsc0 + CInt(lngProduct Mod 10))
ADODC之MoveComplete之疑問???(編號：8919)
想請問一個問題:
小弟在利用ADO串連ADODC,並利用DataGrid來顯示資料時,輸入下列程序:
Private Sub adoData_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
adoData.Caption = "查詢結果" & ":" & _
adoData.Recordset.AbsolutePosition & _
"/" & DataCounts(adoData.Recordset, adoData.RecordSource)
End Sub
可是一執行就會發生編譯錯誤,可是小弟又找不到任何原因,是否ADODC之
MoveComplete事件在使用上有限制?
其中DataCounts為一函數:
Public Function DataCounts(tmpRs As ADODB.Recordset, tmpSQL As String) As Long
Dim countRs As New ADODB.Recordset
Dim StartStr As String
Dim EndStr As String
StartStr = InStr(tmpSQL, "FROM")
EndStr = InStr(tmpSQL, " ORDER")
countRs.Open "SELECT COUNT(*) AS 筆數 " & Mid(tmpSQL, StartStr, EndStr - StartStr), tmpRs.ActiveConnection
DataCounts = countRs("筆數")
countRs.Close
End Function
小弟在利用ADO串連ADODC,並利用DataGrid來顯示資料時,輸入下列程序:
Private Sub adoData_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
adoData.Caption = "查詢結果" & ":" & _
adoData.Recordset.AbsolutePosition & _
"/" & DataCounts(adoData.Recordset, adoData.RecordSource)
End Sub
可是一執行就會發生編譯錯誤,可是小弟又找不到任何原因,是否ADODC之
MoveComplete事件在使用上有限制?
其中DataCounts為一函數:
Public Function DataCounts(tmpRs As ADODB.Recordset, tmpSQL As String) As Long
Dim countRs As New ADODB.Recordset
Dim StartStr As String
Dim EndStr As String
StartStr = InStr(tmpSQL, "FROM")
EndStr = InStr(tmpSQL, " ORDER")
countRs.Open "SELECT COUNT(*) AS 筆數 " & Mid(tmpSQL, StartStr, EndStr - StartStr), tmpRs.ActiveConnection
DataCounts = countRs("筆數")
countRs.Close
End Function
請問DataGrid與MSHFlexGrid(編號：8918)
請問DataGrid可有相等於MSHFlexGrid的TextArray屬性嗎.!?...
另外如何使MSHFlexGrid可以新增資料呀..也就是說Row可以動態增加呢.!?..謝謝
另外如何使MSHFlexGrid可以新增資料呀..也就是說Row可以動態增加呢.!?..謝謝
請問:如何列印搜尋後的東西(編號：8917)
大家好:
本人使用DATA GRID作了搜尋(過慮)後,不知如何將結果列印出來呢?
還有,就是如何列印使用ADODC選擇到的那筆資料呢?
如:
我現在使用ADODC的下筆資料按鈕,選擇到了第30筆資料,我想要只列印這筆資料,不知要如何作?
不好意思,因為我才剛接觸VB沒多久,問題很笨請見諒,謝謝大家!!
本人使用DATA GRID作了搜尋(過慮)後,不知如何將結果列印出來呢?
還有,就是如何列印使用ADODC選擇到的那筆資料呢?
如:
我現在使用ADODC的下筆資料按鈕,選擇到了第30筆資料,我想要只列印這筆資料,不知要如何作?
不好意思,因為我才剛接觸VB沒多久,問題很笨請見諒,謝謝大家!!
問一個SSTAB的問題(編號：8915)
大家好:
小弟有一個關予SSTAB的問題想要發問
例如:
我的SSTAB總共有5個,分別是TAB1,TAB2,TAB3.....
我想要在使用者按下別的TAB時同時作出反應,
如:
1: 按下Tab2時Tab2的資料庫Refresh,按下Tab3時Tab2的資料庫Refresh...
2: Tab2在尚未存檔時,按下Tab3會出現警告視窗,告訢使用者他還沒存檔,才可跳至Tab3...
謝謝大家的幫忙~謝謝~!
小弟有一個關予SSTAB的問題想要發問
例如:
我的SSTAB總共有5個,分別是TAB1,TAB2,TAB3.....
我想要在使用者按下別的TAB時同時作出反應,
如:
1: 按下Tab2時Tab2的資料庫Refresh,按下Tab3時Tab2的資料庫Refresh...
2: Tab2在尚未存檔時,按下Tab3會出現警告視窗,告訢使用者他還沒存檔,才可跳至Tab3...
謝謝大家的幫忙~謝謝~!
SOS for send/receive email via vb.(編號：8914)
Hi,everybody,
I dont know how to send/receive email via vb, could somebody give me a way?
my email address is dimondyt@hotmail.com
I dont know how to send/receive email via vb, could somebody give me a way?
my email address is dimondyt@hotmail.com
crystal report問題(編號：8913)
我用的crystal report是4.6版。想要用SelectionFormula來做資料的篩選。卻出現錯誤訊息"unable to connect:incorrect log on parameters"。加上LogOnServer又出現"引數不為選擇性"。
我用連線方式是ADO 利用"*.dsn"來連接。
我用連線方式是ADO 利用"*.dsn"來連接。
MAPI的發信格式如何設定(編號：8912)
請教一點，若我想收件者收到的皆是html的格式
那麼郵件類型的設定是要如何設定???
不知是不是下列這個用法
MAPIMessages.MsgType=?
若是的話，那他後面是要如何設
因為cdonts裡面的bodyformat=0可設為超本文型態
麻煩若知道的話，可以告知我
謝謝
那麼郵件類型的設定是要如何設定???
不知是不是下列這個用法
MAPIMessages.MsgType=?
若是的話，那他後面是要如何設
因為cdonts裡面的bodyformat=0可設為超本文型態
麻煩若知道的話，可以告知我
謝謝
高手們~~~看看吧(編號：8908)
請問有那一個高手能幫小弟一個忙~~就是用vb寫一個程式，
就是~~~~設計3 部聯動電梯~~~10層樓~~~輸入人在幾樓，電梯就會過來~~~再一次輸入~~~離最近的那部電梯就會過來，一直這樣下去
~~~~~~~~~~~拜託~~~~拜託~~~~~~~等著救命啊~~~~~~
請寄~~~~ edwin505@pchome.com.tw 感激不盡啊~~~
就是~~~~設計3 部聯動電梯~~~10層樓~~~輸入人在幾樓，電梯就會過來~~~再一次輸入~~~離最近的那部電梯就會過來，一直這樣下去
~~~~~~~~~~~拜託~~~~拜託~~~~~~~等著救命啊~~~~~~
請寄~~~~ edwin505@pchome.com.tw 感激不盡啊~~~
如何快速載入文字檔? not do until eof() line input 等敘述語(編號：8903)
小弟曾經在網路上看過快速載入文字檔的方法
也是用過 後來忘記了
很快就可以載入文字檔於 text box
不是以下程式碼
open "檔名" for input as # 1
do until eof()
line input #1,strX
text1=text1+strx+vbcrlf
loop
知道者請引述 謝謝
也是用過 後來忘記了
很快就可以載入文字檔於 text box
不是以下程式碼
open "檔名" for input as # 1
do until eof()
line input #1,strX
text1=text1+strx+vbcrlf
loop
知道者請引述 謝謝
如何做出進度表.....類似.安裝軟體時出現ㄉ ** % ......(編號：8902)
如何做出進度表.....類似.安裝軟體時出現ㄉ ** % ....
而且噹跑到 數字ㄉ部分時..數字會反白 ...
假設只有跑到 數ㄉㄉ一半時..那只有遮掉 一半ㄉ數字(一半是反白一半是原來ㄉ顏色)......
如何做ㄚ....
其實自己是想出來ㄋㄚ...
但是想看看有沒有更快ㄉ方法..
自己ㄉ方法太...煩ㄋ....
^^!!!!!
而且噹跑到 數字ㄉ部分時..數字會反白 ...
假設只有跑到 數ㄉㄉ一半時..那只有遮掉 一半ㄉ數字(一半是反白一半是原來ㄉ顏色)......
如何做ㄚ....
其實自己是想出來ㄋㄚ...
但是想看看有沒有更快ㄉ方法..
自己ㄉ方法太...煩ㄋ....
^^!!!!!
在 NT 中如何自定印表機紙張大小(編號：8901)
請問大家:我在NT之開發環境中使用Crystal Report,但紙張是中一刀的大小,在win95/95 之環境中我可以設定自定紙張,可是在NT印表機中卻沒有這樣子的設定,或是可擇選其他型態的紙張,其大小剛好也是中一刀之大小?如果有人知道的話請告知,Thanks!
在 NT 中如何自定印表機紙張大小(編號：8900)
請問大家:我在NT之開發環境中使用Crystal Report,但紙張是中一刀的大小,在win95/95 之環境中我可以設定自定紙張,可是在NT印表機中卻沒有這樣子的設定,或是可擇選其他型態的紙張,其大小剛好也是中一刀之大小?如果有人知道的話請告知,Thanks!
在 NT 中如何自定印表機紙張大小(編號：8899)
請問大家:我在NT之開發環境中使用Crystal Report,但紙張是中一刀的大小,在win95/95 之環境中我可以設定自定紙張,可是在NT印表機中卻沒有這樣子的設定,或是可擇選其他型態的紙張,其大小剛好也是中一刀之大小?如果有人知道的話請告知,Thanks!
DataGrid vs 隱藏欄位(編號：8897)
Hi~~討論區的各位.想請問大家的是:
我目前已可做出DataGrid的隱藏欄位
(讓使用者利用listbox的核取選項決定欄位是否要隱藏)
不過等下次再開啟時,要如何紀錄使用者上次的核取紀錄(隱藏與否)呢?
我目前已可做出DataGrid的隱藏欄位
(讓使用者利用listbox的核取選項決定欄位是否要隱藏)
不過等下次再開啟時,要如何紀錄使用者上次的核取紀錄(隱藏與否)呢?
DataGrid vs 隱藏欄位(編號：8896)
Hi~~討論區的各位.想請問大家的是:
我目前已可做出DataGrid的隱藏欄位
(讓使用者利用listbox的核取選項決定欄位是否要隱藏)
不過等下次再開啟時,要如何紀錄使用者上次的核取紀錄(隱藏與否)呢?
我目前已可做出DataGrid的隱藏欄位
(讓使用者利用listbox的核取選項決定欄位是否要隱藏)
不過等下次再開啟時,要如何紀錄使用者上次的核取紀錄(隱藏與否)呢?
我修復不了97的mdb(編號：8895)
我修復不了97的mdb...
它是97的mdb 正常的時候 用access97 跟 access2000 都能開啟
結果 它上線到一半掛!!
我用access2000 要修復的時候 它說 "不是有效的密碼"
我用 JRO 來 COMPACT 這一個MDB ,問完密碼 後 也說 資料庫格式無法辨示
有高人說:
在 DAO 3.60 之後，RepairDatabase Method 已經無法使用了，以上的程式碼顯示了 ADO CompactDatabase Method 的用法，而它也取代了 DAO 3.5 時的 RepairDatabase method！
請問該怎摸辦啊 !!
PS: 想不到 ACCESS97 竟然可以修復成功 真是^&%@~@#^*(...
如果 每個方法都修不好 我就認啦!!
偏偏 舊的工具 卻修的好...
它是97的mdb 正常的時候 用access97 跟 access2000 都能開啟
結果 它上線到一半掛!!
我用access2000 要修復的時候 它說 "不是有效的密碼"
我用 JRO 來 COMPACT 這一個MDB ,問完密碼 後 也說 資料庫格式無法辨示
有高人說:
在 DAO 3.60 之後，RepairDatabase Method 已經無法使用了，以上的程式碼顯示了 ADO CompactDatabase Method 的用法，而它也取代了 DAO 3.5 時的 RepairDatabase method！
請問該怎摸辦啊 !!
PS: 想不到 ACCESS97 竟然可以修復成功 真是^&%@~@#^*(...
如果 每個方法都修不好 我就認啦!!
偏偏 舊的工具 卻修的好...
FAX 的程式 在 試傳部份 卡住 不傳回ok(編號：8892)
MSComm1.Handshaking = comRTSXOnXOff
'MSComm1.Settings = "19200,N,8,1"
Call OUT_AT("AT+FTS=8", 5) '//等待80ms
Call OUT_AT("AT+FTM=24", 5) '//設定傳迭速率
T = Timer
For c = 1 To 675
MSComm1.Output = Chr(&H0)
Next
MSComm1.Output = Chr(DLE)
MSComm1.Output = Chr(ETX)
MSComm1.Handshaking = comNone
Call REC_OK("TCF ＞＞", 50)
收不到ok
FAX 的程式 在 試傳部份 卡住 不傳回ok
要怎樣才會傳回ok?
'MSComm1.Settings = "19200,N,8,1"
Call OUT_AT("AT+FTS=8", 5) '//等待80ms
Call OUT_AT("AT+FTM=24", 5) '//設定傳迭速率
T = Timer
For c = 1 To 675
MSComm1.Output = Chr(&H0)
Next
MSComm1.Output = Chr(DLE)
MSComm1.Output = Chr(ETX)
MSComm1.Handshaking = comNone
Call REC_OK("TCF ＞＞", 50)
收不到ok
FAX 的程式 在 試傳部份 卡住 不傳回ok
要怎樣才會傳回ok?
如何抑制特殊鍵?(編號：8891)
現在使用的鍵盤，在空白鍵的旁邊有兩種特殊鍵，分別為window旗標符號(按到了會啟動開始功能表)及選項的符號(相當於滑鼠右鍵)。如何能夠偵測到這類按鍵被按到，且不要有任何回應？另外'Print Screen Sys Rq'是否也可以偵測並抑制？
安裝問題?(編號：8888)
安裝完成之後, 系統修正後重新包裝及安裝, 為何新的執行檔不會覆套舊的執行檔, 每次都需將舊的執行檔先刪除,再安裝,很不方便, 我是那裡作錯了? 請教各位, THANK!
有關ImageList指定到自行開發的物件中(編號：8887)
ＶＢ本身的ToolBar物件﹐若使用了ImageList之後﹐於該ImageList中就會無法刪除已存在的圖片。
若我現在自行開發物件也用與ToolBar的方式引用Form上的ImageList﹐我要如何才能有相同的功能？？？
若我現在自行開發物件也用與ToolBar的方式引用Form上的ImageList﹐我要如何才能有相同的功能？？？
Variant 真好用(編號：8886)
有些人喜歡寫 VB 一定要宣告變數,
我則偏好不宣告 (這是 VB 的特色)
最近常用
ArrayVariant()()()... 的方式傳遞, 設定陣列, 有空寫一篇論 Variant 來發表好了...
舉個例子:
Public Function ReSetDemand(ByVal nIndex As Long)
' 依規線重設需求
For i = 1 To DemandCount
For j = 1 To StageCount
WaterDemand(i)(1)(j) = WaterDemand(i)(1)(j) * WaterDemand(i)(2)(nIndex + 1)
Next
Next
End Function
Public Function ReSetRuleCurve(ByVal hRuleCurve As Variant, ByVal CurveIndex As Long)
' 重設規線
For j = 1 To StageCount
RuleCurve(CurveIndex)(1)(j) = hRuleCurve(j)
Next
End Function
其實每個變數都是陣列... 看不出來吧...
hRuleCurve(j) 是 hRuleCurve(j)(1 To 36) 的陣列喔!
忽然覺得, 各種語言的陣列還是 VB 最簡便又不失靈活!
我則偏好不宣告 (這是 VB 的特色)
最近常用
ArrayVariant()()()... 的方式傳遞, 設定陣列, 有空寫一篇論 Variant 來發表好了...
舉個例子:
Public Function ReSetDemand(ByVal nIndex As Long)
' 依規線重設需求
For i = 1 To DemandCount
For j = 1 To StageCount
WaterDemand(i)(1)(j) = WaterDemand(i)(1)(j) * WaterDemand(i)(2)(nIndex + 1)
Next
Next
End Function
Public Function ReSetRuleCurve(ByVal hRuleCurve As Variant, ByVal CurveIndex As Long)
' 重設規線
For j = 1 To StageCount
RuleCurve(CurveIndex)(1)(j) = hRuleCurve(j)
Next
End Function
其實每個變數都是陣列... 看不出來吧...
hRuleCurve(j) 是 hRuleCurve(j)(1 To 36) 的陣列喔!
忽然覺得, 各種語言的陣列還是 VB 最簡便又不失靈活!
移除setup的小軟體(編號：8885)
我setup了一個自己用vb 寫的小軟體
要如何用程式去移除呢............
或直接call 控制台的[新增/移除程式]
可他的執行檔是什麼 ＞?help me
要如何用程式去移除呢............
或直接call 控制台的[新增/移除程式]
可他的執行檔是什麼 ＞?help me
如何讓Toolbar取得註點(編號：8884)
我要如何做才能讓使用者按Tab鍵時
會跳到Toolbar...
又Toolbar上若有多個按鈕要如何
按一個Tab鍵跳一個按鈕..
我設了TabIndex但看不到功效
會跳到Toolbar...
又Toolbar上若有多個按鈕要如何
按一個Tab鍵跳一個按鈕..
我設了TabIndex但看不到功效
這段程式若要寫成函數該如何?(編號：8881)
這段程式若要寫成函數該如何?
Private Sub Command1_Click()
STRx = "123456789"
For i = 1 To Len(STRx)
S = Mid$(STRx, i, 1)
Print S
Next
End Sub
Private Sub Command1_Click()
STRx = "123456789"
For i = 1 To Len(STRx)
S = Mid$(STRx, i, 1)
Print S
Next
End Sub
crystalreport control(編號：8880)
vb program 用 crystalreport control, 和 pass parameters
但run的時候﹐program 顯示 parameters dialog box,
怎樣可以不顯示出來 ?
謝謝 ﹗
但run的時候﹐program 顯示 parameters dialog box,
怎樣可以不顯示出來 ?
謝謝 ﹗
MDI Form的背景picture如何能置中呢?(編號：8878)
小弟在MDI Form的背景用了一張800*600的picture
若程式在1024*768的的環境執行,如何能讓該圖置中呢?
TKS!!
若程式在1024*768的的環境執行,如何能讓該圖置中呢?
TKS!!
有關條碼的問題....(編號：8877)
各位先進:
因為工作上需要所以在網頁上要用條碼....
但是不曉得各位前輩是否曾在..
ASP網頁上使用條碼的功能...
可否告訴我要如何做呢..
因為這個問題已經困擾我好久了...
謝謝...
因為工作上需要所以在網頁上要用條碼....
但是不曉得各位前輩是否曾在..
ASP網頁上使用條碼的功能...
可否告訴我要如何做呢..
因為這個問題已經困擾我好久了...
謝謝...
[問題] 有關 windows 程式設計使用 VB(編號：8876)
各位先進及精英們,小弟在工作上碰到了瓶頸,外加工作期限快到底限了,所以來這裡向大家求助....是有關 windows 上的 programming . 如下 :
1.如何用程式去開一個新資料夾,但是這個folder的屬性是設為資源分享唯讀 ?? (我知道開一個資料夾實在是簡單不過,但要把它設為資源分享唯讀,小弟不才)
2.在 windows NT/2000 中有個應用程式叫 "使用者管理與群組",我想要讓程式自動去 creat 使用者以及設定一些details ,不要用手動
可以用VB去完成二件工作嗎 ??
小弟的C++實在是破的可以..
如果市面有有書籍可以參考,請順便告知.
謝謝..感激不盡 !!
1.如何用程式去開一個新資料夾,但是這個folder的屬性是設為資源分享唯讀 ?? (我知道開一個資料夾實在是簡單不過,但要把它設為資源分享唯讀,小弟不才)
2.在 windows NT/2000 中有個應用程式叫 "使用者管理與群組",我想要讓程式自動去 creat 使用者以及設定一些details ,不要用手動
可以用VB去完成二件工作嗎 ??
小弟的C++實在是破的可以..
如果市面有有書籍可以參考,請順便告知.
謝謝..感激不盡 !!
MsgBox 如何定位?(編號：8872)
在VB中呼叫MsgBox時,每次出現都一定在整個畫面的正中央
應該有什麼方法可以將其定位吧?
像"小畫家"就可以,請try以下動作:
1.開啟小畫家
2.將視窗還原,不要最大化
3.調整不同的視窗大小及位置
4.隨意編輯圖案,然後關閉視窗
5.出現存檔詢問的對話方塊,按取消,回第3步反覆動作
以上動作可以證明MsgBox能夠定位
不知道VB能不能做到?
應該有什麼方法可以將其定位吧?
像"小畫家"就可以,請try以下動作:
1.開啟小畫家
2.將視窗還原,不要最大化
3.調整不同的視窗大小及位置
4.隨意編輯圖案,然後關閉視窗
5.出現存檔詢問的對話方塊,按取消,回第3步反覆動作
以上動作可以證明MsgBox能夠定位
不知道VB能不能做到?
如何把新值寫入假如 rstRoySched!機台號碼=5 的 rstRoySched!起(編號：8870)
以下是我的程式碼
-----------------------------------------------
Private Sub Command3_Click()
Dim cnn1 As New ADODB.Connection
Dim rstRoySched As New ADODB.Recordset
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Mode=ReadWrite;Persist Security Info=False"
rstRoySched.CursorType = adOpenKeyset
rstRoySched.LockType = adLockOptimistic
rstRoySched.Open "機台表", cnn1
Cls
rstRoySched.MoveFirst
For i = 1 To rstRoySched.RecordCount
Print rstRoySched!機台號碼; rstRoySched!起始時間
rstRoySched.MoveNext
Next i
rstRoySched.Delete
rstRoySched.UpdateBatch
rstRoySched.Close
cnn1.Close
End Sub
-------------------------------------
請問：
1.如何把 Now 寫入假如 rstRoySched!機台號碼=5 的 rstRoySched!起始時間
2.如何把假如 rstRoySched!機台號碼=10 這筆資料刪除
ps rstRoySched!機台號碼 不重複
db1.mdb for access 2000
-----------------------------------------------
Private Sub Command3_Click()
Dim cnn1 As New ADODB.Connection
Dim rstRoySched As New ADODB.Recordset
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Mode=ReadWrite;Persist Security Info=False"
rstRoySched.CursorType = adOpenKeyset
rstRoySched.LockType = adLockOptimistic
rstRoySched.Open "機台表", cnn1
Cls
rstRoySched.MoveFirst
For i = 1 To rstRoySched.RecordCount
Print rstRoySched!機台號碼; rstRoySched!起始時間
rstRoySched.MoveNext
Next i
rstRoySched.Delete
rstRoySched.UpdateBatch
rstRoySched.Close
cnn1.Close
End Sub
-------------------------------------
請問：
1.如何把 Now 寫入假如 rstRoySched!機台號碼=5 的 rstRoySched!起始時間
2.如何把假如 rstRoySched!機台號碼=10 這筆資料刪除
ps rstRoySched!機台號碼 不重複
db1.mdb for access 2000
用Text來跳行的方法?教我吧！？(編號：8869)
我用vb寫出來的程式為什麼無法使用跳行！？
可不可以教我以下我寫出來的文字如何使用跳行↓
在Text1打入三個文字後會跳到Text2在打入五之八個文字會
跳到Text3........教教我吧！？高手！？謝謝您們！？
可不可以教我以下我寫出來的文字如何使用跳行↓
在Text1打入三個文字後會跳到Text2在打入五之八個文字會
跳到Text3........教教我吧！？高手！？謝謝您們！？
hi!偶又來了(編號：8868)
又遇到一個難題了,
請問如何用寫一個從一乘到一百的題目,
只能用Integer作,不能作成double,single,long....等,
既然如此,
溢位要如何處理呢?
老師有跟我們說可以用陣列一個一個丟,
但不知如何作?
請給個邏輯吧!
丫哩丫逗!
請問如何用寫一個從一乘到一百的題目,
只能用Integer作,不能作成double,single,long....等,
既然如此,
溢位要如何處理呢?
老師有跟我們說可以用陣列一個一個丟,
但不知如何作?
請給個邏輯吧!
丫哩丫逗!
ActiveX Controls怎麼在Netscape Browser上執行(編號：8865)
我有一個Windows Media Player 的 ActiveX Controls放在網頁裡
因為某種原因，必須用Netscape的瀏覽器去開啟這個網頁，我已經安裝了Windows Media Player Plug-in 甚至Windows Media Player 7 也裝了結果Netscap 6.0和Netscape Communicator4.51都無法顯示出Windows Media Player請為有人會嗎？可以教一下嗎？謝囉
因為某種原因，必須用Netscape的瀏覽器去開啟這個網頁，我已經安裝了Windows Media Player Plug-in 甚至Windows Media Player 7 也裝了結果Netscap 6.0和Netscape Communicator4.51都無法顯示出Windows Media Player請為有人會嗎？可以教一下嗎？謝囉
如何做出進度表.....類似.安裝軟體時出現ㄉ **%(編號：8863)
如何做出進度表.....類似.安裝軟體時出現ㄉ ** % ....
而且噹跑到 數字ㄉ部分時..數字會反白 ...
假設只有跑到 數ㄉㄉ一半時..那只有遮掉 一半ㄉ數字(一半是反白一半是原來ㄉ顏色)......
如何做ㄚ....
其實自己是想出來ㄋㄚ...
但是想看看有沒有更快ㄉ方法..
自己ㄉ方法太...煩ㄋ....
^^!!!!!
而且噹跑到 數字ㄉ部分時..數字會反白 ...
假設只有跑到 數ㄉㄉ一半時..那只有遮掉 一半ㄉ數字(一半是反白一半是原來ㄉ顏色)......
如何做ㄚ....
其實自己是想出來ㄋㄚ...
但是想看看有沒有更快ㄉ方法..
自己ㄉ方法太...煩ㄋ....
^^!!!!!
簡單任務--SStab的caption之問..(編號：8862)
各位網友好,
現在小弟做了一個小程式,使用SSTab頁籤..而總共有5頁
想請教的是:如何知道每一頁的頁籤的caption是什麼?
謝謝各位!!
現在小弟做了一個小程式,使用SSTab頁籤..而總共有5頁
想請教的是:如何知道每一頁的頁籤的caption是什麼?
謝謝各位!!
簡單任務--Combo List之問(編號：8861)
各位網友好,
想請教各位網友.如何測試說Combo的list是否有某個項目?
如果沒有就將Combo的text加入到list??
而如果有的話就略過additem..
還有如果有重複的項目，自動將之刪除?
謝謝各位^^
想請教各位網友.如何測試說Combo的list是否有某個項目?
如果沒有就將Combo的text加入到list??
而如果有的話就略過additem..
還有如果有重複的項目，自動將之刪除?
謝謝各位^^
crystal report 的 parameters(編號：8856)
VB CODE:
CrystalReport1.ParameterFields(0) = DTPicker1.Value
CRYSTALREPORT﹕
parameter 是 invdate
view SQL 是 select ..... where inv_date = {?invdate}
請問那裡錯呢 ﹖
CrystalReport1.ParameterFields(0) = DTPicker1.Value
CRYSTALREPORT﹕
parameter 是 invdate
view SQL 是 select ..... where inv_date = {?invdate}
請問那裡錯呢 ﹖
IDS_IIS_ObjectNotFound 8209(編號：8855)
IDS_IIS_ObjectNotFound 8209
0x800A2011
Internet 伺服器錯誤：物件/模組找不到。
啥意思啊?
我換個server就變這樣啦......
程式碼完全沒動喔...!
0x800A2011
Internet 伺服器錯誤：物件/模組找不到。
啥意思啊?
我換個server就變這樣啦......
程式碼完全沒動喔...!
不能用 vb 內的 尋找(編號：8853)
大家好, 我用的 OS 是 Windows 2000 / SR1, VB 是 6.0 SP4. 不知為何當我用 "尋找" 或 "取代" 都是找不到要找的字(當然有出現在程式碼內).. 但我用 Windows 98 SE 是沒問題的. 請問有何解決辦法? 先謝.
how to left 事件執行(編號：8852)
我 有一個問題是關於硬體與軟體的問題，其實是事件的起動問題，
是否可以在物件的事件未觸發前 用程式的方法來解決起動的問題
因為我的程式是用硬體的動作來觸發物件的事件，在VB中是否有像asm組合語言的flag一樣來表示事件的起動並且事件一直存在的 thanks for all
是否可以在物件的事件未觸發前 用程式的方法來解決起動的問題
因為我的程式是用硬體的動作來觸發物件的事件，在VB中是否有像asm組合語言的flag一樣來表示事件的起動並且事件一直存在的 thanks for all
如何得知微軟公佈的BUG是否有解決了!!(編號：8850)
我在最新消息的畫面上看到 vb 有 Service Pack 4 了!!
但是困擾了一個多月的問題似乎好像仍然沒有得到解答!!
http://support.microsoft.com/support/kb/articles/q193/0/87.asp
BUG:Cannot Run a Compiled ActiveX DLL From IE
他所提出的方法，是叫人先開啟 VB 的 IDE 環境，然後再開啟 ASP 執行。
問題是：在server上跑的東西怎麼可能另外裝一套 VB 然後才來開啟 ASP 呢!!
有沒有人遇到這個問題呀~~~該怎麼解決呢??
但是困擾了一個多月的問題似乎好像仍然沒有得到解答!!
http://support.microsoft.com/support/kb/articles/q193/0/87.asp
BUG:Cannot Run a Compiled ActiveX DLL From IE
他所提出的方法，是叫人先開啟 VB 的 IDE 環境，然後再開啟 ASP 執行。
問題是：在server上跑的東西怎麼可能另外裝一套 VB 然後才來開啟 ASP 呢!!
有沒有人遇到這個問題呀~~~該怎麼解決呢??
VB高手救救我ㄚ(編號：8848)
各位高手們
老師要求我們做一ㄍvbㄉ迷宮程式
可是我真ㄉ聽不太懂
不想被當掉
拜託各位幫幫忙
幫我做一ㄍ好ㄇ
謝謝
遊戲介面15*15 全螢幕
基本功能
能交就好ㄌ
拜託各位高手們
我ㄉ學分掌控在你手上ㄌㄚㄚㄚㄚ~~~~
拜託嚕
老師要求我們做一ㄍvbㄉ迷宮程式
可是我真ㄉ聽不太懂
不想被當掉
拜託各位幫幫忙
幫我做一ㄍ好ㄇ
謝謝
遊戲介面15*15 全螢幕
基本功能
能交就好ㄌ
拜託各位高手們
我ㄉ學分掌控在你手上ㄌㄚㄚㄚㄚ~~~~
拜託嚕
請教高手關於datareport資料排列的問題(編號：8847)
我的系統為vb6,window2000,sp4.請問要如何才能使datareport的資料排列由原先直的排列變為橫的排列,我試著用report.orientation=2的方式但結果還是為直的排列.希望datareport上由原先
aa a
aa b
aa c
變為
aa a b c
aa a
aa b
aa c
變為
aa a b c
[轉錄]資訊人急呼：為國內營造優質的資訊人才就業環境(編號：8846)
來源: PIG ＜FEVIN.bbs@bbs.csie.nctu.edu.tw＞
時間: 2000年 11月16日 周四 10時43分04秒 CST
標題: [轉錄]資訊人急呼：為國內營造優質的資訊人才就業環境
論壇: tw.bbs.comp.language
※ 本文轉錄自 [graduate] 看板
作者: FEVIN (PIG) 看板: graduate
標題: 資訊人急呼：為國內營造優質的資訊人才就業環境
時間: Thu Nov 16 09:17:11 2000
資訊人急呼：為國內營造優質的資訊人才就業環境
從以前的非資訊科系轉入資訊科系，現在確有種想從資
訊科系跳出來的感慨！為什麼呢？在目前經濟不景氣一片裁
員聲中，資訊科系畢業不是最好找工作的嗎？這話是沒錯！
以目前國內IT 人才供不應求的情況下看來，是比較不受到
不景氣的影響，但在台灣的資訊從業人員有著台灣特有的辛
酸！怎麼說呢？
一、薪資與社會地位皆不若歐美先進國家
別以為在國內Programmer 是薪水高的職業，其實跟美國
比起來低多了！在台灣一個國立大學畢業生，可以拿到
30000-35000 的薪水，出去說是Programer，人家也不會太鳥你，
台灣的生態是先看頭銜，喔是某某課長某某副理，人家才會正
眼一瞧！所以啦！既然台灣人喜歡頭銜，那企業就多給一些頭銜
囉！國內有一堆的工程師，設備工程師啦！助理工程師啦…等等
只需要專科高職來做的工作也叫工程師！所以出去看到高級工程
師別太羨慕，他可能只在園區做滿兩年！
以我的耳聞，我的同事有在跑美國的回來感慨，公司裡面有
很多條件夠可以去美國大企業任職的不少，以WINCE & PDA開
發為例，第一年年薪百萬台幣，做滿四年年薪千萬台幣！不過稅
繳的多，很多人衡量必須長期在外要兼顧家庭女朋友及扣稅後所
得，就做罷先別驚訝！在那邊，大學畢業有點實力的Programmer
要拿到年薪百萬的是很正常的事！我就有學姊朋友不過美國留個
學而已，去到一家知名企業，第一年就年薪7萬美金了！這還是起
薪不包含配股喔！而且愈資深的Programer愈受尊敬！在國內，年
紀大了，公司就會想裁員免得領退休金！在國內，要拿到這樣薪水，
不如去考博士當教授比較有可能！
二、以製造業的心態來管理程式設計師，不尊重程式設計師
台灣向來以製造業聞名，台灣有屬不清的中小企業，就算是
臺X電,聯X,等高科技數一數二的世界級企業也都是半導體的代工製
造業。以製造業管理的特色是，我今天請一個員工，買一台設備，花
了錢我就要在短期內看到產出效果，把他看成是一台機器，希望請來
的新Programmer 三天內就可以有產出，這是不可能的！
一套系統是需要事前分析，規劃，設計，最後才是Coding ! 可是國內中
小企業的老闆往往是錢砸到MIS 部門，就會希望一個禮拜系統就做好了！
又不是生產部門或財會部門，這麼短的時間可以有所產出！ 而要跟老闆
解釋這些東西，往往是MIS部門的痛!
三、上班不打卡背後隱藏的危機：用責任制壓榨員工
奇怪！上班不打卡不是很好嗎？愛幾點倒就幾點到，愛幾點下
班就幾點下班！通常事實相反，通常軟體業都是屬於這類類型，意思
是，你加班的話就別報加班費了，責任制！拜託！責任制是在保障一
定的高額薪水下才能實施的配套方法，那麼低的薪水還要例行責任制！
美國微軟雖然也是責任制工時長，但由於具有股票選擇權及分紅，大家
心甘情願加班！注意喔！微軟是創下全世界有史以來，員工工時最長，
薪資最低的紀錄喔！但是從剛微軟開始的約一百名員工，至今仍有50名留
在微軟喔！流動率和其他企業比起來是低的！
而台灣呢？好的薪資配給什麼沒學到，給我學到責任制，用責任制來
壓榨資訊從業人員！尤其是剛畢業的大學生！
我就有過去台北某一知名企業應徵過程式設計師，老闆說大學剛畢業
開價35000給我，這是不錯的價錢喔！我問：（加班有加班費嗎？）
老班說：（已經包在裡面了）！嚇得我公事包拿了就跑！唉！
四、軟體技術日益千里，資訊人有如夸父追日
當你正沉醉於學好一項新版Language時,
微軟已經準備包裝更新的版本上市！
別以為今天學好一項新技術，就可以洋洋得意，能用個兩年算長，
只用一年也是司空見慣！以WINDOWS來說好了！以前是抱者SDK
在K…要寫WINDOWS AP 就要用SDK…後來視覺化language
是出現後，SDK 被丟到哪裡去了！
再說，曾經流行的Client-server 架構，漸漸也要轉移到3-tier…
一下子出來DCOM,一下子WIN DNA, 偏偏這些東西都是來自於美國，
文件都是英文，有時候真恨微軟！
五、你是以熟悉工具為榮，還是以創意為榮！
當初達文西若花大半時間在熟悉畫筆怎麼拿，
怎會有驚人創意！
IT 從業人員有大半時間在上課及熟悉一套新語言，新技術，
其餘一半時間才是應用！但確有很多資訊人員以為熟悉一套
工具就引以為榮，臭屁得不得了！能應用及產生創意才是資訊
人員的價值！但是偏偏新技術推陳出新太快了，根本就是拿著
手冊照圖施工，均不見很多網站外表及內容程式架構都差不多嗎？
有的還是出自於同一本書呢？（我就看過用王國榮的ASP 那一本
書照圖施工作的網站，用的函數也是王國榮寫的！）
換個話來說，當初的達文西若還要花大半輩子時間去熟悉畫筆如何
拿，哪來的驚世創意作品呢？
.................待續........................待續..........
--
※ Origin: 交大資工鳳凰城資訊站 ＜bbs.csie.nctu.edu.tw＞
◆ From: extmx.itri.org.tw
時間: 2000年 11月16日 周四 10時43分04秒 CST
標題: [轉錄]資訊人急呼：為國內營造優質的資訊人才就業環境
論壇: tw.bbs.comp.language
※ 本文轉錄自 [graduate] 看板
作者: FEVIN (PIG) 看板: graduate
標題: 資訊人急呼：為國內營造優質的資訊人才就業環境
時間: Thu Nov 16 09:17:11 2000
資訊人急呼：為國內營造優質的資訊人才就業環境
從以前的非資訊科系轉入資訊科系，現在確有種想從資
訊科系跳出來的感慨！為什麼呢？在目前經濟不景氣一片裁
員聲中，資訊科系畢業不是最好找工作的嗎？這話是沒錯！
以目前國內IT 人才供不應求的情況下看來，是比較不受到
不景氣的影響，但在台灣的資訊從業人員有著台灣特有的辛
酸！怎麼說呢？
一、薪資與社會地位皆不若歐美先進國家
別以為在國內Programmer 是薪水高的職業，其實跟美國
比起來低多了！在台灣一個國立大學畢業生，可以拿到
30000-35000 的薪水，出去說是Programer，人家也不會太鳥你，
台灣的生態是先看頭銜，喔是某某課長某某副理，人家才會正
眼一瞧！所以啦！既然台灣人喜歡頭銜，那企業就多給一些頭銜
囉！國內有一堆的工程師，設備工程師啦！助理工程師啦…等等
只需要專科高職來做的工作也叫工程師！所以出去看到高級工程
師別太羨慕，他可能只在園區做滿兩年！
以我的耳聞，我的同事有在跑美國的回來感慨，公司裡面有
很多條件夠可以去美國大企業任職的不少，以WINCE & PDA開
發為例，第一年年薪百萬台幣，做滿四年年薪千萬台幣！不過稅
繳的多，很多人衡量必須長期在外要兼顧家庭女朋友及扣稅後所
得，就做罷先別驚訝！在那邊，大學畢業有點實力的Programmer
要拿到年薪百萬的是很正常的事！我就有學姊朋友不過美國留個
學而已，去到一家知名企業，第一年就年薪7萬美金了！這還是起
薪不包含配股喔！而且愈資深的Programer愈受尊敬！在國內，年
紀大了，公司就會想裁員免得領退休金！在國內，要拿到這樣薪水，
不如去考博士當教授比較有可能！
二、以製造業的心態來管理程式設計師，不尊重程式設計師
台灣向來以製造業聞名，台灣有屬不清的中小企業，就算是
臺X電,聯X,等高科技數一數二的世界級企業也都是半導體的代工製
造業。以製造業管理的特色是，我今天請一個員工，買一台設備，花
了錢我就要在短期內看到產出效果，把他看成是一台機器，希望請來
的新Programmer 三天內就可以有產出，這是不可能的！
一套系統是需要事前分析，規劃，設計，最後才是Coding ! 可是國內中
小企業的老闆往往是錢砸到MIS 部門，就會希望一個禮拜系統就做好了！
又不是生產部門或財會部門，這麼短的時間可以有所產出！ 而要跟老闆
解釋這些東西，往往是MIS部門的痛!
三、上班不打卡背後隱藏的危機：用責任制壓榨員工
奇怪！上班不打卡不是很好嗎？愛幾點倒就幾點到，愛幾點下
班就幾點下班！通常事實相反，通常軟體業都是屬於這類類型，意思
是，你加班的話就別報加班費了，責任制！拜託！責任制是在保障一
定的高額薪水下才能實施的配套方法，那麼低的薪水還要例行責任制！
美國微軟雖然也是責任制工時長，但由於具有股票選擇權及分紅，大家
心甘情願加班！注意喔！微軟是創下全世界有史以來，員工工時最長，
薪資最低的紀錄喔！但是從剛微軟開始的約一百名員工，至今仍有50名留
在微軟喔！流動率和其他企業比起來是低的！
而台灣呢？好的薪資配給什麼沒學到，給我學到責任制，用責任制來
壓榨資訊從業人員！尤其是剛畢業的大學生！
我就有過去台北某一知名企業應徵過程式設計師，老闆說大學剛畢業
開價35000給我，這是不錯的價錢喔！我問：（加班有加班費嗎？）
老班說：（已經包在裡面了）！嚇得我公事包拿了就跑！唉！
四、軟體技術日益千里，資訊人有如夸父追日
當你正沉醉於學好一項新版Language時,
微軟已經準備包裝更新的版本上市！
別以為今天學好一項新技術，就可以洋洋得意，能用個兩年算長，
只用一年也是司空見慣！以WINDOWS來說好了！以前是抱者SDK
在K…要寫WINDOWS AP 就要用SDK…後來視覺化language
是出現後，SDK 被丟到哪裡去了！
再說，曾經流行的Client-server 架構，漸漸也要轉移到3-tier…
一下子出來DCOM,一下子WIN DNA, 偏偏這些東西都是來自於美國，
文件都是英文，有時候真恨微軟！
五、你是以熟悉工具為榮，還是以創意為榮！
當初達文西若花大半時間在熟悉畫筆怎麼拿，
怎會有驚人創意！
IT 從業人員有大半時間在上課及熟悉一套新語言，新技術，
其餘一半時間才是應用！但確有很多資訊人員以為熟悉一套
工具就引以為榮，臭屁得不得了！能應用及產生創意才是資訊
人員的價值！但是偏偏新技術推陳出新太快了，根本就是拿著
手冊照圖施工，均不見很多網站外表及內容程式架構都差不多嗎？
有的還是出自於同一本書呢？（我就看過用王國榮的ASP 那一本
書照圖施工作的網站，用的函數也是王國榮寫的！）
換個話來說，當初的達文西若還要花大半輩子時間去熟悉畫筆如何
拿，哪來的驚世創意作品呢？
.................待續........................待續..........
--
※ Origin: 交大資工鳳凰城資訊站 ＜bbs.csie.nctu.edu.tw＞
◆ From: extmx.itri.org.tw
Crystal Reports(編號：8845)
點解我寫左個有用crystal reports的program之後..
其他機setup時會出現問題??
"An error occurred while registering the file 'D:\WINNT\SYSTEM\expsrv.dll'
其他機setup時會出現問題??
"An error occurred while registering the file 'D:\WINNT\SYSTEM\expsrv.dll'
dll在vb中使用的問題(編號：8843)
(OS 2000pro)
VC++ 6 中我用 MFC dll專案--＞regular dll
extern "C" __declspec(dllexport) int MyFunc(int a, int b)
{
return (a+b);
}
VB6中(我把dll放在這個目錄下, 放到winnt/system32下結果一樣)
Public Declare Function MyFunc Lib "MyDll.dll" _
(a As Integer, b As Integer) As Integer
result = MyFunc(1,2)
--＞然後Run的時候會出現 "Bad Dll Calling Convention"
我也試過 MFC dll--＞extention dll 或是 Win32 dynamic-link library的專案方式都不行
我也試過 放一個 .DEF進去, 也是不行
( LIBRARY "MyDll.dll"
EXPORT
MyFunc @1
)
全部改成傳Long的型態也不行
唯一可以的是 上面的那個程式中, 只要傳入的是void就可以正確
VC
extern "C" __declspec(dllexport) int MyFunc(void)
{
return 100;
}
VB
Public Declare Function MyFunc Lib "MyDll.dll" _
() As Integer
result = MyFunc()
--＞這樣就會傳回100, 且不會有錯誤
不知道是不是我程式寫法錯誤或是其他要注意的東西
或是可以寫一個範例給我, 謝謝
謝謝回答!!
VC++ 6 中我用 MFC dll專案--＞regular dll
extern "C" __declspec(dllexport) int MyFunc(int a, int b)
{
return (a+b);
}
VB6中(我把dll放在這個目錄下, 放到winnt/system32下結果一樣)
Public Declare Function MyFunc Lib "MyDll.dll" _
(a As Integer, b As Integer) As Integer
result = MyFunc(1,2)
--＞然後Run的時候會出現 "Bad Dll Calling Convention"
我也試過 MFC dll--＞extention dll 或是 Win32 dynamic-link library的專案方式都不行
我也試過 放一個 .DEF進去, 也是不行
( LIBRARY "MyDll.dll"
EXPORT
MyFunc @1
)
全部改成傳Long的型態也不行
唯一可以的是 上面的那個程式中, 只要傳入的是void就可以正確
VC
extern "C" __declspec(dllexport) int MyFunc(void)
{
return 100;
}
VB
Public Declare Function MyFunc Lib "MyDll.dll" _
() As Integer
result = MyFunc()
--＞這樣就會傳回100, 且不會有錯誤
不知道是不是我程式寫法錯誤或是其他要注意的東西
或是可以寫一個範例給我, 謝謝
謝謝回答!!
如何連續秀出資料？(編號：8842)
請位各位:
如何像CNN 頻道或者財經頻道下方, 秀出
第一列:dow Jones
第二列:nasdaq
第三列:即時新聞
現有網路所見有以bitblt所示範的例子,只能做固定字串或固定長度，無法做到
股票名稱 現價 漲跌(有顏色區分),而且是一個接一個出現。
謝謝！
如何像CNN 頻道或者財經頻道下方, 秀出
第一列:dow Jones
第二列:nasdaq
第三列:即時新聞
現有網路所見有以bitblt所示範的例子,只能做固定字串或固定長度，無法做到
股票名稱 現價 漲跌(有顏色區分),而且是一個接一個出現。
謝謝！
有誰能救救我，續上一次vb程式問題(編號：8841)
'顯示隨機抽取題號'
str = "丙檢試題.題號=" & R(1) & "or"
錯誤出在"From 丙檢試題 WHERE 丙檢試題.題號=str"這段程式，它一直出現(參數太少，預期個數1)這問題。如何改呢???
For i = 1 To 19
str = str & "丙檢試題.題號=" & R(i) & "or"
Next i
str = str & "丙檢試題.題號=" & R(20)
SQL = "SELECT 丙檢試題.題號, 丙檢試題.題目, 丙檢試題.選項一, 丙檢試題.選項二, 丙檢試題.選項三, 丙檢試題.選項四, 丙檢試題.難易度"
SQL = SQL & " From 丙檢試題 WHERE 丙檢試題.題號= str"
Adodc1.RecordSource = SQL
str = "丙檢試題.題號=" & R(1) & "or"
錯誤出在"From 丙檢試題 WHERE 丙檢試題.題號=str"這段程式，它一直出現(參數太少，預期個數1)這問題。如何改呢???
For i = 1 To 19
str = str & "丙檢試題.題號=" & R(i) & "or"
Next i
str = str & "丙檢試題.題號=" & R(20)
SQL = "SELECT 丙檢試題.題號, 丙檢試題.題目, 丙檢試題.選項一, 丙檢試題.選項二, 丙檢試題.選項三, 丙檢試題.選項四, 丙檢試題.難易度"
SQL = SQL & " From 丙檢試題 WHERE 丙檢試題.題號= str"
Adodc1.RecordSource = SQL
請問, IIS 4.0在Service Pack 6可以跑嗎?(編號：8840)
各位先進:
原本Server是Pack 5, 後來改成Pack 6了.
這樣對IIS 4.0有影響嗎?
我用RDS來存取遠端資料庫, 使得我必須考慮這樣的問題.
我還未到Microsoft網站上找尋相關的答案, 想先
請問各位知不知倒問題的答案呢?
-----------------
燃眉人
原本Server是Pack 5, 後來改成Pack 6了.
這樣對IIS 4.0有影響嗎?
我用RDS來存取遠端資料庫, 使得我必須考慮這樣的問題.
我還未到Microsoft網站上找尋相關的答案, 想先
請問各位知不知倒問題的答案呢?
-----------------
燃眉人
訂閱：
文章 (Atom)