我用了 DataGrid 連上了一個開了 Access DB 的 ADO control，
不過在程式碼中用不到 CancelUpdate method 去取消 AddNew 的動作(DataGrid control 會有error)，我只好用 Adodc1.Refresh 去更新。
請問眾高手有沒有更好的方法？
提供小吳 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 .
變數傳遞的問題(編號：1605)
我在 form1 的一般區,以指令 Public strProdNo as string
定義了一個公用變數,並指定了變數的內容
由 form1中呼叫 form2.show .
我的問題如下:為何在 form2 中, strProdNo 的內容是空字串 ?
謝謝 !!
定義了一個公用變數,並指定了變數的內容
由 form1中呼叫 form2.show .
我的問題如下:為何在 form2 中, strProdNo 的內容是空字串 ?
謝謝 !!
how to inserting data with stored procedures - classes(編號：1604)
請教各位先進，如何對備忘資料型態(remark in access,or text in sql server 7.0)的DataTypeEnum,到底是
使用adVarChar參數，還是其他的。
Public Function InsertBank(ByVal strRemark As String,
ByRef objConn As ADODB.Connection, _
ByRef objCmd As ADODB.Command) As Long
On Error GoTo InsertBank_EH
Dim intIndex As Integer
Set objCmd.ActiveConnection = objConn
objCmd.CommandText = "dbo.up_parins_bankall"
objCmd.CommandType = adCmdStoredProc
'Append the parameters
objCmd.Parameters.Append objCmd.CreateParameter("Remark", adVarChar, adParamInput, 50, strRemark)
...
使用adVarChar參數，還是其他的。
Public Function InsertBank(ByVal strRemark As String,
ByRef objConn As ADODB.Connection, _
ByRef objCmd As ADODB.Command) As Long
On Error GoTo InsertBank_EH
Dim intIndex As Integer
Set objCmd.ActiveConnection = objConn
objCmd.CommandText = "dbo.up_parins_bankall"
objCmd.CommandType = adCmdStoredProc
'Append the parameters
objCmd.Parameters.Append objCmd.CreateParameter("Remark", adVarChar, adParamInput, 50, strRemark)
...
how to send a message ?(編號：1602)
已打开了一记事本窗口,其 HWND=1036
在 VB 中要向其发送字符串"ABCD",发出命令:
SendMessage(1036,WM_COPYDATA,4,"ABCD")
结果总是:"该程序执行了非法操作", WHY ?
在 VB 中要向其发送字符串"ABCD",发出命令:
SendMessage(1036,WM_COPYDATA,4,"ABCD")
结果总是:"该程序执行了非法操作", WHY ?
如何 shell or run 被改名成(.dat)其實是(.exe)的執行檔(編號：1601)
as title
想寫個程式使用次數計次軟體
將原檔名改成(.dat) 然後利用自己寫的程式
去shell它
請問我該怎麼執行這個(.dat)的檔案呢？
想寫個程式使用次數計次軟體
將原檔名改成(.dat) 然後利用自己寫的程式
去shell它
請問我該怎麼執行這個(.dat)的檔案呢？
跟據密碼來設定menu的項次(編號：1596)
各位好
我想跟據user login 的密碼來對menu的item設定其visible屬性但是用..
Me.常用分錄維護.Visible = False
可以執行. 但是太麻煩..
如果寫成..
Dim mProgram
For Each mProgram In Me
mProgram.Visible = False
Next
則跑到 mprogram.name = "常用分錄維護" 這一item 時
會出現錯誤訊息 "本控制項不可設定visible屬性.."
每個第二層的最後一項都會出現錯誤.
為什麼不同的語法一個可以另一個卻不行,該如何解決.. 謝謝
我想跟據user login 的密碼來對menu的item設定其visible屬性但是用..
Me.常用分錄維護.Visible = False
可以執行. 但是太麻煩..
如果寫成..
Dim mProgram
For Each mProgram In Me
mProgram.Visible = False
Next
則跑到 mprogram.name = "常用分錄維護" 這一item 時
會出現錯誤訊息 "本控制項不可設定visible屬性.."
每個第二層的最後一項都會出現錯誤.
為什麼不同的語法一個可以另一個卻不行,該如何解決.. 謝謝
程式封裝之後卻無法安裝(編號：1595)
使用VB6封裝精靈完成封裝之後，想要將封裝完成之安裝程式安裝在windows 98上，但卻出現找不到某一檔案無法完成註冊的訊息如下：
C:\WINDOWS\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)
請問應要如何解決呢？
C:\WINDOWS\TEMP\msftqws.pdw\$(DLLSelfRegisterEx)
請問應要如何解決呢？
如何判斷Active X控制項位於哪一個表單?(編號：1593)
請問我在製作使用者控制項時,
如何得知此控制項被使用者用在哪一個表單上?
這樣寫的話,會有"客戶端不存在"的error
Private Sub UserControl_Initialize()
Dim FormName As Form
Set FormName = UserControl.Parent
End Sub
如何得知此控制項被使用者用在哪一個表單上?
這樣寫的話,會有"客戶端不存在"的error
Private Sub UserControl_Initialize()
Dim FormName As Form
Set FormName = UserControl.Parent
End Sub
為什麼 on error gto .. 在 for .. next 的 loop內無效 ?(編號：1592)
為什麼 on error gto .. 在 for .. next 的 loop內無效 ?
on error got to n1
for i=1 to 23
open "c:\xtc"+trim(str(i)) for input as #2
next i
n1:...
對於無此檔案的 case , 它不是 goto n1, 而是出現 error message
why?
on error got to n1
for i=1 to 23
open "c:\xtc"+trim(str(i)) for input as #2
next i
n1:...
對於無此檔案的 case , 它不是 goto n1, 而是出現 error message
why?
如何使textbox內某些文字加上顏色?(編號：1591)
請問各先進
目前我作了再textbox內作了hyperlink,但是如何使hyperlink的文字有顏色作區別?(可否告知範例orWEB)
thank you..
目前我作了再textbox內作了hyperlink,但是如何使hyperlink的文字有顏色作區別?(可否告知範例orWEB)
thank you..
Access 資料庫的 Export 及 IMport 的問題(編號：1590)
我使用 Access 97 + vb6.0
目前我想用 VB 的程式 Export/Import 資料庫的內容.
若可以作 Export/Import 那它的格式有那些可供選擇
謝謝 !!
目前我想用 VB 的程式 Export/Import 資料庫的內容.
若可以作 Export/Import 那它的格式有那些可供選擇
謝謝 !!
adod1....如果物件已關閉,就不允許應用程式所要求的操作(編號：1589)
adod1....如果物件已關閉,就不允許應用程式所要求的操作
確定
上述是程式執行中,所發出的訊息..待我按確定時,,程式再度正確執行,想請教諸位先進,我如何避開這訊息.不要讓程式停頓..謝謝
確定
上述是程式執行中,所發出的訊息..待我按確定時,,程式再度正確執行,想請教諸位先進,我如何避開這訊息.不要讓程式停頓..謝謝
簡單的SQL查詢問題(編號：1587)
簡單的SQL查詢問題
請問個位高手下列的SQL查詢對嗎?找不到任何資料
但是資料庫裡確實有資料
Data1.RecordSource = "SELECT * FROM 銷貨明細 WHERE
訂單單號 LIKE '" & datOrder.Recordset("訂單單號") & " *' "
環境:VB5 SP3
WIN95
ACCESS 97
請問個位高手下列的SQL查詢對嗎?找不到任何資料
但是資料庫裡確實有資料
Data1.RecordSource = "SELECT * FROM 銷貨明細 WHERE
訂單單號 LIKE '" & datOrder.Recordset("訂單單號") & " *' "
環境:VB5 SP3
WIN95
ACCESS 97
緊急: 如何能夠在VB裡直接用SQL statement(編號：1586)
想請問一下各位高手,如何能夠在VB裡直接用SQL statement,
我知道若是用adodc等可以寫成
Adodc.CommandType=adCmdText
Adodc.RecordSource="Select.....From",
Adodc.Refresh
但我想直接就用在Text Box或Combo Box等data aware,
希望各高手能解答, 謝謝 ^^
我知道若是用adodc等可以寫成
Adodc.CommandType=adCmdText
Adodc.RecordSource="Select.....From",
Adodc.Refresh
但我想直接就用在Text Box或Combo Box等data aware,
希望各高手能解答, 謝謝 ^^
剛換了VB6..原來的程式就出問題...請問winsock的...(編號：1584)
N = MyName.Caption
S = SexM.Caption
E = EmailM.Caption
Data = "!" & N & "!" & S & "!" & E
MsgBox Data
Winsock1.SendData Data
上面是程式的片段..
出現的錯誤代碼是..以下的內容
執行階段錯誤'40006':
對所要求的交易或要求而言，通訊
協定(PROTOCOL)不適合或連線狀態
有誤
請問這是什麼問題呢??
其他都正常..Winsock1.SendData Data 到這裡卻出問題..
拜託大家了!!
S = SexM.Caption
E = EmailM.Caption
Data = "!" & N & "!" & S & "!" & E
MsgBox Data
Winsock1.SendData Data
上面是程式的片段..
出現的錯誤代碼是..以下的內容
執行階段錯誤'40006':
對所要求的交易或要求而言，通訊
協定(PROTOCOL)不適合或連線狀態
有誤
請問這是什麼問題呢??
其他都正常..Winsock1.SendData Data 到這裡卻出問題..
拜託大家了!!
TreeView的問題(編號：1581)
各位前輩您好:
請問有沒有什麼方法可以讓TreeView的
Parent node checked 之後,只要是它所屬的sub node都一起check.
可否提示一下,或是小小範例,謝謝!!
請問有沒有什麼方法可以讓TreeView的
Parent node checked 之後,只要是它所屬的sub node都一起check.
可否提示一下,或是小小範例,謝謝!!
請問像PowerDVD那樣美觀的外觀VB可以做得到嗎?(編號：1579)
請問像PowerDVD那樣美觀的外觀VB可以做得到嗎?
我想作一個介面美觀的PLAYER,但用VB的控制項都不好看,發現幾個問題:
1.按鈕:做不出不規則的按鈕,我現在是用2張PICTURE,做出滑鼠按下的效果,但是都是正方形的圖片,有沒有其它方式可以做出不規則的圖形按鈕.
2.slider的外觀可以換別的圖案嗎? TickStyle 的4種樣式都不好看,可以自己畫底圖和滑桿嗎?
我想作一個介面美觀的PLAYER,但用VB的控制項都不好看,發現幾個問題:
1.按鈕:做不出不規則的按鈕,我現在是用2張PICTURE,做出滑鼠按下的效果,但是都是正方形的圖片,有沒有其它方式可以做出不規則的圖形按鈕.
2.slider的外觀可以換別的圖案嗎? TickStyle 的4種樣式都不好看,可以自己畫底圖和滑桿嗎?
請問有關CommonDialog.ShowPrinter(編號：1578)
請問如何將CommonDialog.ShowPrinter中的"頁面"項enable?
也就是,run了CommonDialog.ShowPrinter後,顯示的畫面中,
"列印範圍"可以讓使用者選擇列印某頁至某頁,
我已設了CommonDialog.Flags = cdlPDPageNums,但還是沒用...
也就是,run了CommonDialog.ShowPrinter後,顯示的畫面中,
"列印範圍"可以讓使用者選擇列印某頁至某頁,
我已設了CommonDialog.Flags = cdlPDPageNums,但還是沒用...
請問 vb 如何 查詢 Mainfram 上的 VSAM file (不知道 SNA LOE DB(編號：1577)
看了半天 msdm 文件,雖然知道 vb 可以透過 SNA OLE DB 來連結 VSAM FILE ,但是裝好 SNA OLE DB 之後,試不出來他的設定值
我現在在 OLE DB Provider for VSAM\Data Sources 中的設定為
Mainframe
Remote LU Alias : sit_sna ( sna server )
Local LU Alias : Local (default 值)
APPC Mode : QPCSUPP (default 值)
Default Library : VSM003/MSTK06 (VSAM FILE 名稱)
HOST CCSID : Chinese(traditional)
file :MSTK06
然後在 vb 的 Data Link Properties 選 SNA Server OLE DB Data Provider
在 Connection 屬性中
Data Source : sit_sna
location : vsm003\mstk06
Use Windows NT integrated security
在測試連結時會出現
Invalid local LU alias
請問 Local LU Alias 該怎樣設定才可以
謝謝
我現在在 OLE DB Provider for VSAM\Data Sources 中的設定為
Mainframe
Remote LU Alias : sit_sna ( sna server )
Local LU Alias : Local (default 值)
APPC Mode : QPCSUPP (default 值)
Default Library : VSM003/MSTK06 (VSAM FILE 名稱)
HOST CCSID : Chinese(traditional)
file :MSTK06
然後在 vb 的 Data Link Properties 選 SNA Server OLE DB Data Provider
在 Connection 屬性中
Data Source : sit_sna
location : vsm003\mstk06
Use Windows NT integrated security
在測試連結時會出現
Invalid local LU alias
請問 Local LU Alias 該怎樣設定才可以
謝謝
data problem(編號：1575)
我有一個customer table!!在dataenvironment中,我用兩個command
連接, 分別是command1 and command2.
現在我在from1中加了兩個datagrid!! 分別是datagrid1 and datagrid2. 而datagrid1 的 datamember 是command1.
而datagrid2 的 datamember 是command2.問題是在於當我update完datagrid1時!!datagrid2還未update直至將 program 結束再開始才能update!!
連接, 分別是command1 and command2.
現在我在from1中加了兩個datagrid!! 分別是datagrid1 and datagrid2. 而datagrid1 的 datamember 是command1.
而datagrid2 的 datamember 是command2.問題是在於當我update完datagrid1時!!datagrid2還未update直至將 program 結束再開始才能update!!
教學廣播軟體的製作問題.(編號：1574)
＞＞要程式不使用 HardDisk.. 這個需求有些奇怪，可以說明一下嗎?
說明:
吳大哥你好
我是想作教學廣播軟體,在教學端將螢幕抓下存成.jpg檔,每秒抓兩張,若使用硬碟,可能要五秒抓一張圖.效率不好.再將該目錄資源共享給受學端,受學端有show圖軟體,如此雖會造成區域網路塞車,但若使用ramdrive的話,或許可改善.
程式碼:(教學端)
Dim intCount As Integer
Dim f As Integer
Dim len1 As Long
Dim len2 As Long
Dim strFileName(0 To 20) As String
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
Private Declare Function NViewLibSaveAsJPG Lib "NViewLib.dll" (ByVal JpegQuality As Integer, ByVal filename As String) As Long
Private Declare Function NViewLibLoad Lib "NViewLib.dll" (ByVal filename As String, ByVal a As Integer) As Long
Const SRCCOPY = &HCC0020
Private Sub Form_Load()
intCount = 1
f = 0
strFileName(0) = "e:\0.jpg"
strFileName(1) = "e:\1.jpg"
strFileName(2) = "e:\2.jpg"
strFileName(3) = "e:\3.jpg"
strFileName(4) = "e:\4.jpg"
strFileName(5) = "e:\5.jpg"
strFileName(6) = "e:\6.jpg"
strFileName(7) = "e:\7.jpg"
strFileName(8) = "e:\8.jpg"
strFileName(9) = "e:\9.jpg"
strFileName(10) = "e:\10.jpg"
strFileName(11) = "e:\11.jpg"
strFileName(12) = "e:\12.jpg"
strFileName(13) = "e:\13.jpg"
strFileName(14) = "e:\14.jpg"
strFileName(15) = "e:\15.jpg"
strFileName(16) = "e:\16.jpg"
strFileName(17) = "e:\17.jpg"
strFileName(18) = "e:\18.jpg"
strFileName(19) = "e:\19.jpg"
strFileName(20) = "e:\20.jpg"
Me.Hide
End Sub
Private Sub Timer1_Timer()
Dim hDC As Long, sx As Integer, sy As Integer
Dim intTmp As Integer
DoEvents
If f = 0 Then
f = 1
picCopy.Width = Screen.Width
picCopy.Height = Screen.Height
picCopy.AutoRedraw = True
hDC = GetDC(0)
sx = Screen.Width \ Screen.TwipsPerPixelX
sy = Screen.Height \ Screen.TwipsPerPixelY
ret = BitBlt(picCopy.hDC, 0, 0, sx, sy, hDC, 0, 0, SRCCOPY)
ret = ReleaseDC(0, hDC)
Set picCopy.Picture = picCopy.Image
picCopy.AutoRedraw = False
DoEvents
On Error Resume Next
SavePicture picCopy.Picture, "e:\~temp.BMP"
intTmp = NViewLibLoad("e:\~temp.BMP", 0)
intTmp = NViewLibSaveAsJPG(80, strFileName(intCount))
len1 = FileLen(strFileName(intCount - 1))
len2 = FileLen(strFileName(intCount))
' If len1 ＜＞ len2 Then
' Kill strFileName(intCount)
' End If
' Debug.Print len1, len2
If intCount ＞= 20 Then
intCount = 0
Else
intCount = intCount + 1
End If
Kill "e:\~temp.bmp"
f = 0
End If
DoEvents
End Sub
說明:
吳大哥你好
我是想作教學廣播軟體,在教學端將螢幕抓下存成.jpg檔,每秒抓兩張,若使用硬碟,可能要五秒抓一張圖.效率不好.再將該目錄資源共享給受學端,受學端有show圖軟體,如此雖會造成區域網路塞車,但若使用ramdrive的話,或許可改善.
程式碼:(教學端)
Dim intCount As Integer
Dim f As Integer
Dim len1 As Long
Dim len2 As Long
Dim strFileName(0 To 20) As String
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long
Private Declare Function NViewLibSaveAsJPG Lib "NViewLib.dll" (ByVal JpegQuality As Integer, ByVal filename As String) As Long
Private Declare Function NViewLibLoad Lib "NViewLib.dll" (ByVal filename As String, ByVal a As Integer) As Long
Const SRCCOPY = &HCC0020
Private Sub Form_Load()
intCount = 1
f = 0
strFileName(0) = "e:\0.jpg"
strFileName(1) = "e:\1.jpg"
strFileName(2) = "e:\2.jpg"
strFileName(3) = "e:\3.jpg"
strFileName(4) = "e:\4.jpg"
strFileName(5) = "e:\5.jpg"
strFileName(6) = "e:\6.jpg"
strFileName(7) = "e:\7.jpg"
strFileName(8) = "e:\8.jpg"
strFileName(9) = "e:\9.jpg"
strFileName(10) = "e:\10.jpg"
strFileName(11) = "e:\11.jpg"
strFileName(12) = "e:\12.jpg"
strFileName(13) = "e:\13.jpg"
strFileName(14) = "e:\14.jpg"
strFileName(15) = "e:\15.jpg"
strFileName(16) = "e:\16.jpg"
strFileName(17) = "e:\17.jpg"
strFileName(18) = "e:\18.jpg"
strFileName(19) = "e:\19.jpg"
strFileName(20) = "e:\20.jpg"
Me.Hide
End Sub
Private Sub Timer1_Timer()
Dim hDC As Long, sx As Integer, sy As Integer
Dim intTmp As Integer
DoEvents
If f = 0 Then
f = 1
picCopy.Width = Screen.Width
picCopy.Height = Screen.Height
picCopy.AutoRedraw = True
hDC = GetDC(0)
sx = Screen.Width \ Screen.TwipsPerPixelX
sy = Screen.Height \ Screen.TwipsPerPixelY
ret = BitBlt(picCopy.hDC, 0, 0, sx, sy, hDC, 0, 0, SRCCOPY)
ret = ReleaseDC(0, hDC)
Set picCopy.Picture = picCopy.Image
picCopy.AutoRedraw = False
DoEvents
On Error Resume Next
SavePicture picCopy.Picture, "e:\~temp.BMP"
intTmp = NViewLibLoad("e:\~temp.BMP", 0)
intTmp = NViewLibSaveAsJPG(80, strFileName(intCount))
len1 = FileLen(strFileName(intCount - 1))
len2 = FileLen(strFileName(intCount))
' If len1 ＜＞ len2 Then
' Kill strFileName(intCount)
' End If
' Debug.Print len1, len2
If intCount ＞= 20 Then
intCount = 0
Else
intCount = intCount + 1
End If
Kill "e:\~temp.bmp"
f = 0
End If
DoEvents
End Sub
關於toolbar的奇怪現象(編號：1573)
我在form1上放一個toolbar
在toolbar 的 click event中包含以下程式碼
form2.show vbModal
在form2中有一個command button,
在command button 的 click event中包含以下程式碼
unload me
執行後我按toolbar,form2出現了,但當我要按form2的button時,
總是要按兩次才能關掉form2, 第一次都沒反應. 好像form2沒有
focus.
但是如果將 form2.show vbmodal 改成 form2.show ,
或是不要將 form2.show vbmodal 放在toolbar的event
就沒有問題
有誰知道這是怎麼回事嗎?
在toolbar 的 click event中包含以下程式碼
form2.show vbModal
在form2中有一個command button,
在command button 的 click event中包含以下程式碼
unload me
執行後我按toolbar,form2出現了,但當我要按form2的button時,
總是要按兩次才能關掉form2, 第一次都沒反應. 好像form2沒有
focus.
但是如果將 form2.show vbmodal 改成 form2.show ,
或是不要將 form2.show vbmodal 放在toolbar的event
就沒有問題
有誰知道這是怎麼回事嗎?
安裝MSDN/VS時究竟要選擇哪一個項目來安裝??(編號：1571)
我從前一向都是使用VB5的，但近日已換上了VB6，而在安裝MSDN時，發現有很多選項可以選擇，我想知道若只是想要和VB6、API相關的資料，那麼究竟要選那一樣來安裝(因為若要安裝資料，實在要太多MB了)??
在不使DirListBox和FileListBox的情況下，如何可以知到HardDisk(編號：1570)
看了很多書都是使用DirListBox和FileListBox來讀取HardDisk內的目錄和FILE，究竟有沒有方法不使用這兩個物件，而又可以讀取相關資料呢?
1.vb新版 and Sql 備份到 pc ..(編號：1569)
請問各位..
1.聽vb 新版本寫web程式將更easy 不知到有沒有人知道詳情.
2.想把sql server 主機上的database 轉到 pc 的 sql server 上不知如何做最快?
謝謝指教.
1.聽vb 新版本寫web程式將更easy 不知到有沒有人知道詳情.
2.想把sql server 主機上的database 轉到 pc 的 sql server 上不知如何做最快?
謝謝指教.
RtlMoveMoemory究竟是用來作複製還把資料傳到內存中??(編號：1568)
在"visual basic 6.0 windows api講座"(王國榮著，旗標出版股份有限公司)一書中，說RtlMoveMoemory是用來作複製資料時用(p.85)，但我在"visual basic 4 api程式設計"(noel jerke著)中，看到RtlMoveMoemory是用來把資料放到"內存"中(當中還使用了globalloack、globalunlick、globalsize、globalfree、globalalloc)，那麼究竟RtlMoveMoemory是解作甚麼呢??
如何增加for...next的運行速度(編號：1567)
本人現在想製作一個可以今圖畫作淡出淡入的程式，基本上在讀取、儲存資料方面已沒有問題，但在以"for...next"來改變bmp內的資料時，就需要很長很長時間，究竟有沒有更好的方法呢??以下是我的程式碼：
Private Type BITMAPFILEHEADER
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Private Type BITMAPINFOHEADER '40 bytes
biSize As Long
biWidth As Long
biHeight As Long
biPlanes As Integer
biBitCount As Integer
biCompression As Long
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type
Dim LoadBMPHeader As BITMAPFILEHEADER
Dim LoadBMPInfoHeader As BITMAPINFOHEADER
Private Type RGBCOUNT
rgbBlue As Byte
rgbGreen As Byte
rgbRed As Byte
End Type
Dim BMIColor(307200) As RGBCOUNT
Private Sub Command1_Click()
Open "d:\av17a.bmp" For Binary As #1
Get #1, , LoadBMPHeader
Get #1, , LoadBMPInfoHeader
Get #1, , BMIColor
Close #1
For A = 0 To 307200
If BMIColor(A).rgbBlue ＜ Hex(VScroll1.Value) Then
BMIColor(A).rgbBlue = 0
Else
BMIColor(A).rgbBlue = BMIColor(A).rgbBlue - Hex(VScroll1.Value)
End If
If BMIColor(A).rgbGreen ＜ Hex(VScroll1.Value) Then
BMIColor(A).rgbGreen = 0
Else
BMIColor(A).rgbGreen = BMIColor(A).rgbGreen - Hex(VScroll1.Value)
End If
If BMIColor(A).rgbRed ＜ Hex(VScroll1.Value) Then
BMIColor(A).rgbRed = 0
Else
BMIColor(A).rgbRed = BMIColor(A).rgbRed - Hex(VScroll1.Value)
End If
Next A
Open "d:\123.bmp" For Binary As #2
Put #2, , LoadBMPHeader
Put #2, , LoadBMPInfoHeader
Put #2, , BMIColor
Close #2
Picture1 = LoadPicture("D:\123.bmp")
End Sub
Private Sub Command2_Click()
Text1.Text = &HA
End Sub
Private Sub Form_Load()
On Error Resume Next
Kill "d:\123.bmp"
End Sub
Private Sub VScroll1_Change()
Label1.Caption = VScroll1.Value
End Sub
Private Sub VScroll2_Change()
Label3.Caption = VScroll2.Value
End Sub
Private Sub VScroll3_Change()
Label4.Caption = VScroll3.Value
End Sub
Private Type BITMAPFILEHEADER
bfType As Integer
bfSize As Long
bfReserved1 As Integer
bfReserved2 As Integer
bfOffBits As Long
End Type
Private Type BITMAPINFOHEADER '40 bytes
biSize As Long
biWidth As Long
biHeight As Long
biPlanes As Integer
biBitCount As Integer
biCompression As Long
biSizeImage As Long
biXPelsPerMeter As Long
biYPelsPerMeter As Long
biClrUsed As Long
biClrImportant As Long
End Type
Dim LoadBMPHeader As BITMAPFILEHEADER
Dim LoadBMPInfoHeader As BITMAPINFOHEADER
Private Type RGBCOUNT
rgbBlue As Byte
rgbGreen As Byte
rgbRed As Byte
End Type
Dim BMIColor(307200) As RGBCOUNT
Private Sub Command1_Click()
Open "d:\av17a.bmp" For Binary As #1
Get #1, , LoadBMPHeader
Get #1, , LoadBMPInfoHeader
Get #1, , BMIColor
Close #1
For A = 0 To 307200
If BMIColor(A).rgbBlue ＜ Hex(VScroll1.Value) Then
BMIColor(A).rgbBlue = 0
Else
BMIColor(A).rgbBlue = BMIColor(A).rgbBlue - Hex(VScroll1.Value)
End If
If BMIColor(A).rgbGreen ＜ Hex(VScroll1.Value) Then
BMIColor(A).rgbGreen = 0
Else
BMIColor(A).rgbGreen = BMIColor(A).rgbGreen - Hex(VScroll1.Value)
End If
If BMIColor(A).rgbRed ＜ Hex(VScroll1.Value) Then
BMIColor(A).rgbRed = 0
Else
BMIColor(A).rgbRed = BMIColor(A).rgbRed - Hex(VScroll1.Value)
End If
Next A
Open "d:\123.bmp" For Binary As #2
Put #2, , LoadBMPHeader
Put #2, , LoadBMPInfoHeader
Put #2, , BMIColor
Close #2
Picture1 = LoadPicture("D:\123.bmp")
End Sub
Private Sub Command2_Click()
Text1.Text = &HA
End Sub
Private Sub Form_Load()
On Error Resume Next
Kill "d:\123.bmp"
End Sub
Private Sub VScroll1_Change()
Label1.Caption = VScroll1.Value
End Sub
Private Sub VScroll2_Change()
Label3.Caption = VScroll2.Value
End Sub
Private Sub VScroll3_Change()
Label4.Caption = VScroll3.Value
End Sub
請問如何開啟一個form(編號：1565)
請問各位高手我想從textbox中輸入form的名稱然後開啟該form
當然我不想用select 一個一個比對來開啟
而是想直接從textbox抓取名稱開啟
謝謝
當然我不想用select 一個一個比對來開啟
而是想直接從textbox抓取名稱開啟
謝謝
請問有關查詢資料的問題(輸入法相關)(編號：1564)
請問有關查詢資料的問題(輸入法相關)
如用注音時如何判斷輸入的"市"的同音字的資料
像：市是事世.......
及當輸入ㄨㄛ(三聲我)時在輸入ㄨ時直接判斷相關可能字
以上兩個問題請多多幫忙
可以請回信信箱 lisboy@ms31.url.com.tw
如用注音時如何判斷輸入的"市"的同音字的資料
像：市是事世.......
及當輸入ㄨㄛ(三聲我)時在輸入ㄨ時直接判斷相關可能字
以上兩個問題請多多幫忙
可以請回信信箱 lisboy@ms31.url.com.tw
有關在資料庫中亂數取資料(編號：1562)
一Table欄位如下:
No Description
-- -----------
1 aaaaa
3 bbbbb
2 ccccc
5 ddddd
8 eeeee
我想從這個table中亂數取幾筆資料出來,請問怎麼做呢?
(no內的資料不見得是流水號,可能跳號),謝謝!
No Description
-- -----------
1 aaaaa
3 bbbbb
2 ccccc
5 ddddd
8 eeeee
我想從這個table中亂數取幾筆資料出來,請問怎麼做呢?
(no內的資料不見得是流水號,可能跳號),謝謝!
請問如果我要更新FileListBox的檔案列表......(編號：1561)
請問如果我要立即更新FileListBox的檔案列表......
該下什麼指令??
也就是例如我刪除了一個檔案..
FileListBox並不會馬上更新檔案列表
我該如何下指令讓程式來更新FilelistBox的檔案列表?
該下什麼指令??
也就是例如我刪除了一個檔案..
FileListBox並不會馬上更新檔案列表
我該如何下指令讓程式來更新FilelistBox的檔案列表?
更新程式(編號：1560)
vs6sp3b1.exe 13.4 MB
vs6sp3b2.exe 10.7 MB
vs6sp3b3.exe 10.3 MB
vs6sp3b4.exe 3.9 MB
vs6sp3s.exe 17.2 MB
這幾個檔案都要下載嗎???
vs6sp3b2.exe 10.7 MB
vs6sp3b3.exe 10.3 MB
vs6sp3b4.exe 3.9 MB
vs6sp3s.exe 17.2 MB
這幾個檔案都要下載嗎???
怎樣用Resource editor(編號：1559)
首先，多謝各方好友幫助!!我會再接再厲，繼續發問問題!!!
怎樣用Resource editor ，能使程式的menu自由改成中文介面、英文介面??Resource還有什麼功能??哪裡有例子下載??
怎樣用Resource editor ，能使程式的menu自由改成中文介面、英文介面??Resource還有什麼功能??哪裡有例子下載??
如何更改vb所產生的tmp檔,放在ramdrive內.(編號：1556)
各位前輩你好;
我想用vb6.0處理圖片習題,已將程式移到ramdrive內執行,圖片檔.bmp也存放在ramdrive,也可轉成.jpg,所有能移到ramdrive的程式及檔案也都移過去,為何Hard Disk 燈還一直閃,vb6.0所產生的tmp檔,是造成Hard Disk 燈一直閃的嗎?該如何將這支處理程式,能夠不使用Hard Disk ,而使用ramdrive呢? 謝謝你!
我想用vb6.0處理圖片習題,已將程式移到ramdrive內執行,圖片檔.bmp也存放在ramdrive,也可轉成.jpg,所有能移到ramdrive的程式及檔案也都移過去,為何Hard Disk 燈還一直閃,vb6.0所產生的tmp檔,是造成Hard Disk 燈一直閃的嗎?該如何將這支處理程式,能夠不使用Hard Disk ,而使用ramdrive呢? 謝謝你!
在WIN95中,以DCOM方式呼叫另一台WIN95上的OBJECT(編號：1555)
各位先進您們好
我有一個問題想請教您們,我用VB的ActiveX DLL 專案模式寫了一個ActiveX DLL,我用以下兩種方式來連結這個ActiveX Dll:
(一) 將此ActiveX Dll 放在Win2000上,並修改相關Registry,然後從 另一台Win95的機器來呼叫它
(二) 將此ActiveX Dll 放在Win95上,並修改相關Registry,然後從 另一台Win95的機器來呼叫它
為何情況(一) 一切正常,
而情況(二) 無法正常運作, Clent 端的Win95 回應我 ActiveX can't create object
可否請您們告訴我,情況(二) 哪裡作錯了
謝謝
我有一個問題想請教您們,我用VB的ActiveX DLL 專案模式寫了一個ActiveX DLL,我用以下兩種方式來連結這個ActiveX Dll:
(一) 將此ActiveX Dll 放在Win2000上,並修改相關Registry,然後從 另一台Win95的機器來呼叫它
(二) 將此ActiveX Dll 放在Win95上,並修改相關Registry,然後從 另一台Win95的機器來呼叫它
為何情況(一) 一切正常,
而情況(二) 無法正常運作, Clent 端的Win95 回應我 ActiveX can't create object
可否請您們告訴我,情況(二) 哪裡作錯了
謝謝
以Internet Transfer控制項做FTP可下載無法上傳(編號：1554)
程式碼如下：
Inet1.URL = "**********"
Inet1.UserName = "--------"
Inet1.Password = "-----"
'Inet1.UserName = "anonymous"
Inet1.Execute "FTP://ftp.2599.com/", "SEND D:\temp\Book1.xls htdocs\Book1.xls"
' SEND 有問題,若改成Put還是無法把檔案抓下來
' Inet1.Execute "FTP://ftp.2599.com", "GET index.shtml D:\test\index.shtml"
' GET 沒有問題
Inet1.URL = "**********"
Inet1.UserName = "--------"
Inet1.Password = "-----"
'Inet1.UserName = "anonymous"
Inet1.Execute "FTP://ftp.2599.com/", "SEND D:\temp\Book1.xls htdocs\Book1.xls"
' SEND 有問題,若改成Put還是無法把檔案抓下來
' Inet1.Execute "FTP://ftp.2599.com", "GET index.shtml D:\test\index.shtml"
' GET 沒有問題
使用 ADO 來壓縮或修復 MS Access 2000資料庫(編號：1553)
以(Microsoft Jet and Replication Objects 2.1 library)
Dim JRO As JetEngine
Set JRO = New JetEngine
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; _
Data Source=" & dbFileName, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Tmp_FileName & ";Jet OLEDB:Engine Type=4"
可壓縮MS Access 97,但若MS Access 2000會出錯,
請問可有解答?
Dim JRO As JetEngine
Set JRO = New JetEngine
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; _
Data Source=" & dbFileName, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Tmp_FileName & ";Jet OLEDB:Engine Type=4"
可壓縮MS Access 97,但若MS Access 2000會出錯,
請問可有解答?
請教listbox 與 dbgrid 的問題~~~急~~~(編號：1552)
我想要知道當我選擇listbox 其中一項時， dbgrid 就會跟著顯示出那一項的內容。
我的程式碼是這樣子的
If List1.ListIndex = 0 Then
Data1.DatabaseName = "E:\My Documents\資料庫\一劃.mdb"
Data1.RecordSource = "一劃"
Data1.Refresh
end if
可是dbgrid 都沒有顯示執行結果，所以請大家幫我看看哪裡出了錯
謝謝~~~~
我的程式碼是這樣子的
If List1.ListIndex = 0 Then
Data1.DatabaseName = "E:\My Documents\資料庫\一劃.mdb"
Data1.RecordSource = "一劃"
Data1.Refresh
end if
可是dbgrid 都沒有顯示執行結果，所以請大家幫我看看哪裡出了錯
謝謝~~~~
一個VB的小問題,想請教各位前輩!(編號：1551)
Dim name As String, pw As String
name = "david"
pw = "12345"
Private Sub cmdLogin_Click()
If txtName.Text = "" Or txtPW.Text = "" Then
MsgBox "請輸入名字和密碼!"
textname.SetFocus
ElseIf txtName.Text = uglyman And txtPW.Text = pw Then
MsgBox "恭禧您輸入正確!!^O^..."
End If
End Sub
Private Sub Form_Load()
Me.Show
MsgBox "請輸入名字和密碼!"
End Sub
以上是一個輸入名字和密碼的程式,
若成功則跳出一個訊息:"恭禧您輸入正確!!^O^..."
輸入的名字和密碼若不符合,則訊息出現:"請輸入名字和密碼!"
可是我在compile的時候卻出現錯誤,請問是那裡的語法錯誤呢?
--
請回信到: uglyman@ms4.url.com.tw
謝謝!!
name = "david"
pw = "12345"
Private Sub cmdLogin_Click()
If txtName.Text = "" Or txtPW.Text = "" Then
MsgBox "請輸入名字和密碼!"
textname.SetFocus
ElseIf txtName.Text = uglyman And txtPW.Text = pw Then
MsgBox "恭禧您輸入正確!!^O^..."
End If
End Sub
Private Sub Form_Load()
Me.Show
MsgBox "請輸入名字和密碼!"
End Sub
以上是一個輸入名字和密碼的程式,
若成功則跳出一個訊息:"恭禧您輸入正確!!^O^..."
輸入的名字和密碼若不符合,則訊息出現:"請輸入名字和密碼!"
可是我在compile的時候卻出現錯誤,請問是那裡的語法錯誤呢?
--
請回信到: uglyman@ms4.url.com.tw
謝謝!!
請問如何知道table的數量名稱(編號：1549)
請問如果是在access裡...用vb做連結
有什麼SQL指令或方法來取得tables的資料嗎
access有類似schema的東西嗎
還有access中的資料型態
對應到MS SQL Server的資料型態是怎樣?
Access 2000中文版
自動編號 ----
貨幣 ------
有什麼SQL指令或方法來取得tables的資料嗎
access有類似schema的東西嗎
還有access中的資料型態
對應到MS SQL Server的資料型態是怎樣?
Access 2000中文版
自動編號 ----
貨幣 ------
急: 想問問option button (radio button) 可否做output??(編號：1548)
假設是個client/server program, 並假設有一個table 叫 Staff,其中一個column name 為sex. 小弟設定了sex 可以
等如1 或 0 (Male=1, Felmae=0) (bit)
在 front-end 程式裡, 小弟想讀入recordset , 並用radio button 來顯示. 下列為其的程式碼:
Public Sub DisplayRecord()
If rs1.Fields(sex) = 1 Then
OptionMale.Value = True
OptionFemale.Value = False
Else
OptionMale.Value = False
OptionFemale.Value = True
End If
End Sub
但是小弟並未得嘗所願, 當程式執行時, radio button 全無反應. 請問如何可以做到?
等如1 或 0 (Male=1, Felmae=0) (bit)
在 front-end 程式裡, 小弟想讀入recordset , 並用radio button 來顯示. 下列為其的程式碼:
Public Sub DisplayRecord()
If rs1.Fields(sex) = 1 Then
OptionMale.Value = True
OptionFemale.Value = False
Else
OptionMale.Value = False
OptionFemale.Value = True
End If
End Sub
但是小弟並未得嘗所願, 當程式執行時, radio button 全無反應. 請問如何可以做到?
小吳在泰國向大家問好(編號：1544)
小吳昨天第一次到泰國，發現泰國的電腦設備有些真的比台灣便宜太多了，不過 Made in Taiwan 的東東還是台灣比較便宜啦! 我打算買些網路設備回來，以為大家提供更好的通訊品質。
前幾天的網路通信品質時好時壞，原因現在知道了，就是HiNet機房出了問題，網路斷斷續續，最長曾經中斷12小時。害我以為我的網路設備有問題....
小吳明天就回國了，到時再上網為大家解答問題。
前幾天的網路通信品質時好時壞，原因現在知道了，就是HiNet機房出了問題，網路斷斷續續，最長曾經中斷12小時。害我以為我的網路設備有問題....
小吳明天就回國了，到時再上網為大家解答問題。
嗚~~我的網頁爆了(編號：1542)
●今天準備上網把「用INet製做免費網頁的最新消息功能」的文張上傳到網站上，結果上傳的檔案沒被接受，且更新的檔案被刪除了，難到5MB的空間有那麼小嗎？悲劇~~tragedy~~
小瓜瓜VB調理包 http://netcity.hinet.net/stupids/
小瓜瓜VB調理包 http://netcity.hinet.net/stupids/
急件!!!!!!!!有關使用 "select...from...語法"的錯誤訊息(編號：1541)
我使用"select...from...語法"從access中篩選資料
如果篩選出無符合的資料時
就會產生以下之錯誤訊息:
執行階段錯誤"3021"訊息
可能是BOF或EOF的值為TRUE
或目前的記錄已被刪除
應用程式所需求的操作需要目前的記錄
接著又出現另一錯誤訊息
執行錯誤"28"
堆疊空間不足
請問大家如何解決
謝謝
如果篩選出無符合的資料時
就會產生以下之錯誤訊息:
執行階段錯誤"3021"訊息
可能是BOF或EOF的值為TRUE
或目前的記錄已被刪除
應用程式所需求的操作需要目前的記錄
接著又出現另一錯誤訊息
執行錯誤"28"
堆疊空間不足
請問大家如何解決
謝謝
急問!!有個元件不會用!!(編號：1540)
http://www.netvigator.com.tw/~nntp1/nntpct.zip
可否請教各位高手要怎樣使用這個元件來發表文章到新聞群組
拜託!!極為重要的!!
可否請教各位高手要怎樣使用這個元件來發表文章到新聞群組
拜託!!極為重要的!!
請問關於類似photoshop或小畫家的問題??(編號：1538)
本人想知道phototshop的filter怎樣編寫???
本人想知道啟動畫面(Splash)怎樣編寫???
另外，本人需要大量類似繪圖程式的code，由畫line到圖片format轉換的code，而且要短期內，因為一個月後我要交功課。
please !!! E-Mail to Me
本人想知道啟動畫面(Splash)怎樣編寫???
另外，本人需要大量類似繪圖程式的code，由畫line到圖片format轉換的code，而且要短期內，因為一個月後我要交功課。
please !!! E-Mail to Me
請問Cool Bar 和 Resource editor 的問題??(編號：1537)
Cool Bar要怎樣使用??加入icon??寫程式碼??
另外，怎樣用Resource editor ，能使程式的menu自由改成中文介面、英文介面??Resource還有什麼功能和例子??
please !! Email to me......
另外，怎樣用Resource editor ，能使程式的menu自由改成中文介面、英文介面??Resource還有什麼功能和例子??
please !! Email to me......
各位是否碰過呢??(編號：1536)
我用網站抓回的股票資料,轉入資料庫(mdb)作group by後,
再依固定格式轉出為文字檔存檔備用,可是常會遇到轉出後檔案
為0的情形,而且同一個程式同一份資料跑二遍,居然會有不同的
結果(轉出的檔案又有資料了)不知道各位有沒有碰過相同的情形??
再依固定格式轉出為文字檔存檔備用,可是常會遇到轉出後檔案
為0的情形,而且同一個程式同一份資料跑二遍,居然會有不同的
結果(轉出的檔案又有資料了)不知道各位有沒有碰過相同的情形??
請問crystal report 如何用參數來查詢(編號：1533)
請問各位大哥
q1; crystal report 如何使用變數來搜尋ㄋ
ex; 我的意思是 如果我的報表可能需要
依條件(讓使用者自行輸入)來搜尋 如年,月的區間
依條件(讓使用者自行輸入)來排序
但 使用者的輸入如何傳給crystal report
以及crystal report 如何設定ㄋ
q2:如果不能的話 請問各位在實務上的做法為何
q1; crystal report 如何使用變數來搜尋ㄋ
ex; 我的意思是 如果我的報表可能需要
依條件(讓使用者自行輸入)來搜尋 如年,月的區間
依條件(讓使用者自行輸入)來排序
但 使用者的輸入如何傳給crystal report
以及crystal report 如何設定ㄋ
q2:如果不能的話 請問各位在實務上的做法為何
如何判別 Null ?(編號：1532)
各位前輩:
可否請教一下,如何判別ACCESS中欄位內容是Null?
Dim x
If x=Null Then
a=1
else
a=2
end if
結果 a 老是等於 2,請問是哪裡錯誤?
可否請教一下,如何判別ACCESS中欄位內容是Null?
Dim x
If x=Null Then
a=1
else
a=2
end if
結果 a 老是等於 2,請問是哪裡錯誤?
ListBox問題.....(編號：1531)
ListBox裡面的columns選項有三個值.....0..1..2
選第二個是雙欄顯示的水平捲軸.....
請問可以加程式碼讓它超過雙欄....就是三欄或更多嗎!?
謝謝....
選第二個是雙欄顯示的水平捲軸.....
請問可以加程式碼讓它超過雙欄....就是三欄或更多嗎!?
謝謝....
如何在 VB6 中開起 Office 2000 中的 Access(編號：1529)
在 VB6 中開起 Office 97 中的 Access 可以但是
卻無法開起 Office 2000 中的 Access...
Please help me ......
卻無法開起 Office 2000 中的 Access...
Please help me ......
如何在網頁上開啟一個文字檔(編號：1528)
我想在網頁上放一個textbox 及一個button ，當按下botton 選擇一個txt檔後，將txt檔的資料秀在textbox 上，但我不想用 Active Control 有沒有人會做，用vbscript 或javascript 皆可，或那裡有資料可找呢???
請問VB5內附的CRYSTAL REPORT可否外掛到VB6??(編號：1523)
因為覺得VB6的DATAREPORT粉難用
好像功能很少？
那如果要外掛CRYSTAL REPORT的話
要怎麼安裝呢？
請指點一下迷津，謝謝！
好像功能很少？
那如果要外掛CRYSTAL REPORT的話
要怎麼安裝呢？
請指點一下迷津，謝謝！
如何在datareport中設定報表的size???(編號：1521)
因為我的報表是要設定為A3的SIZE
可是我都找不到可以設定紙張大小或頁面的size的功能耶
是要寫在程式碼裡嗎？
嗚嗚嗚～～....
可是我都找不到可以設定紙張大小或頁面的size的功能耶
是要寫在程式碼裡嗎？
嗚嗚嗚～～....
如何取得表單中的資料(編號：1520)
如何取得及修改特定的表單中的某一個Textbox中的文字?
例如我Get到某一個特定表單,但我要如何更進一部取得及修改表單中各個Textbox或Lable中的文字呢?
例如我Get到某一個特定表單,但我要如何更進一部取得及修改表單中各個Textbox或Lable中的文字呢?
錯誤訊息"執行錯誤"28"堆疊空間不足"(編號：1518)
我使用 select 指令從access資料庫中篩選出所需的資料
但select後面字串文字太長
造成此錯誤
請問大家如何將select後面字串文字太長的問題
分為兩個部分
但select後面字串文字太長
造成此錯誤
請問大家如何將select後面字串文字太長的問題
分為兩個部分
請問IIS與RDS問題?(編號：1515)
請問各先進:
小弟使用RDS與IIS作連結結果傳出internet伺服器錯誤:找不到物件/模組;8209;請問我要如何解決?
程式如下
Dim rdso As New RDS.DataControl
Private Sub Command1_Click()
On Error GoTo e00
rdso.Server = "http://xxx.xxx.xxx.xxx"
rdso.Connect = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=d:\xxx\access\stock01.mdb"
rdso.SQL = "select * from aaa_data"
rdso.ExecuteOptions = adcExecSync
rdso.FetchOptions = adcFetchBackground
rdso.Refresh '--這裡發生error
Set rs = rdso.Recordset
Out rs
Exit Sub
e00:
MsgBox Err.Description, , Err.Number
End Sub
thank you.
小弟使用RDS與IIS作連結結果傳出internet伺服器錯誤:找不到物件/模組;8209;請問我要如何解決?
程式如下
Dim rdso As New RDS.DataControl
Private Sub Command1_Click()
On Error GoTo e00
rdso.Server = "http://xxx.xxx.xxx.xxx"
rdso.Connect = "Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=d:\xxx\access\stock01.mdb"
rdso.SQL = "select * from aaa_data"
rdso.ExecuteOptions = adcExecSync
rdso.FetchOptions = adcFetchBackground
rdso.Refresh '--這裡發生error
Set rs = rdso.Recordset
Out rs
Exit Sub
e00:
MsgBox Err.Description, , Err.Number
End Sub
thank you.
請版本了解塞機問題...(編號：1514)
最近二日(89/2/23日開始)，貴站不管是白天或晚上很難撥入，不知何故。是否大多霸位全文檢索，慢慢觀賞，還是程序修改所造成。假如是前者，本人建設
1)限定某個時段，開放全文檢索。
2)全文檢索篇幅度予以縮減，例如Yahoo檢索，一頁只顯示10個檢索主題，要看下列10主題，則需再按next。
別的vb網站不會發生類似上述情形，一登即上。
1)限定某個時段，開放全文檢索。
2)全文檢索篇幅度予以縮減，例如Yahoo檢索，一頁只顯示10個檢索主題，要看下列10主題，則需再按next。
別的vb網站不會發生類似上述情形，一登即上。
讓我頭大的.民國百年問題(編號：1513)
不知道各位先進們是如何處理民國百年的問題...
以下分別以 2000/02/23 (民國 89年). 以及 2014/02/23 (民國103年) 做為日期範例
我的資料庫欄位設為 "日期(Date/Time)" 的資料型態
控制台 "區域設定" \ "日期" 的設定
(1)
"日期樣式:西曆(中文)" - "簡短日期:yyyy/mm/dd" - "完整日期:yyyy'年'MM'月'dd'日'"
***************************************************************************
2000/02/23 (民國 89年)
處理日期的格式為 Format$(Date, "YYYY") - 1911 & Format$(Date, "/MM/DD")
但是存入資料庫之後卻變為 1989/02/23 ＜------ (頭大啦!)
2014/02/23 (民國103年)
處理日期的格式為 Format$(Date, "YYYY") - 1911 & Format$(Date, "/MM/DD")
但是存入資料庫之後卻變為 103/02/23 ＜------ (可以啦!)
***************************************************************************
2000/02/23 (民國 89年)
處理日期的格式為 Format$(Date, "ee/mm/dd")
但是存入資料庫之後卻變為 1989/02/23 ＜------ (又來了! 一個頭兩個大啦!)
2014/02/23 (民國103年)
處理日期的格式為 Format$(Date, "ee/mm/dd")
但是存入資料庫之後卻變為 103/02/23 ＜------ (可以啦!)
***************************************************************************
(2)
於是我更改控制台設定
"日期樣式:台灣地區曆" - "簡短日期:yyyy/mm/dd" - "完整日期:yyyy'年'MM'月'dd'日'"
***************************************************************************
2000/02/23 (民國 89年)
處理日期的格式為 Format$(Date, "YYYY") - 1911 & Format$(Date, "/MM/DD")
但是存入資料庫之後卻變為 78/02/23 ＜------ (頭大的不得了啦!)
2014/02/23 (民國103年)
處理日期的格式為 Format$(Date, "YYYY") - 1911 & Format$(Date, "/MM/DD")
但是存入資料庫之後卻變為 -1809/02/23 ＜------ ( -負喔... 是 -負喔...頭大到腦充血)
***************************************************************************
2000/02/23 (民國 89年)
處理日期的格式為 Format$(Date, "ee/mm/dd")
但是存入資料庫之後卻變為 78/02/23 ＜------ (頭大到十分沉動!)
2014/02/23 (民國103年)
處理日期的格式為 Format$(Date, "ee/mm/dd")
但是存入資料庫之後卻變為 -1809/02/23 ＜------ ( 還是 -負.頭大到腦膜發炎)
***************************************************************************
還有一堆.... 試到我差點腦震盪. 不管我怎麼改. 怎麼設. ]
總擺脫不了民國百年的問題...
各位先進. 請指導我該如何下手... 感謝您們...
以下分別以 2000/02/23 (民國 89年). 以及 2014/02/23 (民國103年) 做為日期範例
我的資料庫欄位設為 "日期(Date/Time)" 的資料型態
控制台 "區域設定" \ "日期" 的設定
(1)
"日期樣式:西曆(中文)" - "簡短日期:yyyy/mm/dd" - "完整日期:yyyy'年'MM'月'dd'日'"
***************************************************************************
2000/02/23 (民國 89年)
處理日期的格式為 Format$(Date, "YYYY") - 1911 & Format$(Date, "/MM/DD")
但是存入資料庫之後卻變為 1989/02/23 ＜------ (頭大啦!)
2014/02/23 (民國103年)
處理日期的格式為 Format$(Date, "YYYY") - 1911 & Format$(Date, "/MM/DD")
但是存入資料庫之後卻變為 103/02/23 ＜------ (可以啦!)
***************************************************************************
2000/02/23 (民國 89年)
處理日期的格式為 Format$(Date, "ee/mm/dd")
但是存入資料庫之後卻變為 1989/02/23 ＜------ (又來了! 一個頭兩個大啦!)
2014/02/23 (民國103年)
處理日期的格式為 Format$(Date, "ee/mm/dd")
但是存入資料庫之後卻變為 103/02/23 ＜------ (可以啦!)
***************************************************************************
(2)
於是我更改控制台設定
"日期樣式:台灣地區曆" - "簡短日期:yyyy/mm/dd" - "完整日期:yyyy'年'MM'月'dd'日'"
***************************************************************************
2000/02/23 (民國 89年)
處理日期的格式為 Format$(Date, "YYYY") - 1911 & Format$(Date, "/MM/DD")
但是存入資料庫之後卻變為 78/02/23 ＜------ (頭大的不得了啦!)
2014/02/23 (民國103年)
處理日期的格式為 Format$(Date, "YYYY") - 1911 & Format$(Date, "/MM/DD")
但是存入資料庫之後卻變為 -1809/02/23 ＜------ ( -負喔... 是 -負喔...頭大到腦充血)
***************************************************************************
2000/02/23 (民國 89年)
處理日期的格式為 Format$(Date, "ee/mm/dd")
但是存入資料庫之後卻變為 78/02/23 ＜------ (頭大到十分沉動!)
2014/02/23 (民國103年)
處理日期的格式為 Format$(Date, "ee/mm/dd")
但是存入資料庫之後卻變為 -1809/02/23 ＜------ ( 還是 -負.頭大到腦膜發炎)
***************************************************************************
還有一堆.... 試到我差點腦震盪. 不管我怎麼改. 怎麼設. ]
總擺脫不了民國百年的問題...
各位先進. 請指導我該如何下手... 感謝您們...
日期格式的問題(編號：1511)
最近在做民國日期及西元日期的轉換的發現一些問題!!
1.cdate()在轉兩位數年時會轉成 4位數
如 cdate("89/2/18") 會變成 1989/2/18
但 cdate("100/2/18") 會變成 100/2/18
這樣的話在轉回民國年時就會有問題了(就不能減 1900)
有什麼好的方法可以互轉而不會有問題呢?
2.用datediff ("yyyy",N)時，N 最小只能到 -1900 而不能
到-1911 這樣的話要取民國年月日只能年月日一個一個接嗎?
1.cdate()在轉兩位數年時會轉成 4位數
如 cdate("89/2/18") 會變成 1989/2/18
但 cdate("100/2/18") 會變成 100/2/18
這樣的話在轉回民國年時就會有問題了(就不能減 1900)
有什麼好的方法可以互轉而不會有問題呢?
2.用datediff ("yyyy",N)時，N 最小只能到 -1900 而不能
到-1911 這樣的話要取民國年月日只能年月日一個一個接嗎?
Help 救命呀! 請問封裝ODBC!?(編號：1510)
各位前輩:
我已經寫好一程式用VB6的Crystal Reporter來印表
但是已包裝成安裝檔後安裝完成一執行印表程式
各位先進!
小弟用Crystal Reporter來印表,是用ODBC來連access db
封成安裝檔後安裝後執行
卻出現"執行期錯誤20536:Unable to connect:
incorrect log on parameters!"
若在該電腦設odbc的資料即可預覽印表
問題是可否一安裝完即可抓取odbc資料而不須另行安裝????
請問各位大德該如何解決???
不勝感激
我已經寫好一程式用VB6的Crystal Reporter來印表
但是已包裝成安裝檔後安裝完成一執行印表程式
各位先進!
小弟用Crystal Reporter來印表,是用ODBC來連access db
封成安裝檔後安裝後執行
卻出現"執行期錯誤20536:Unable to connect:
incorrect log on parameters!"
若在該電腦設odbc的資料即可預覽印表
問題是可否一安裝完即可抓取odbc資料而不須另行安裝????
請問各位大德該如何解決???
不勝感激
有關Treeview的問題(編號：1506)
Treeview的checkboxes的屬性,若設成True,則
每一個node都有checkbox.
本人因必須於兩天內解決以下兩個問題,請各位
高手指點程式要如何做到。
1.可否將某一node之checkbox隱藏起來。
2.假設Treeview可展開至三層,可否在某一node
的checkbox打勾,其children的checkbox也一
併打勾。
感謝各位的幫忙!!
每一個node都有checkbox.
本人因必須於兩天內解決以下兩個問題,請各位
高手指點程式要如何做到。
1.可否將某一node之checkbox隱藏起來。
2.假設Treeview可展開至三層,可否在某一node
的checkbox打勾,其children的checkbox也一
併打勾。
感謝各位的幫忙!!
如何參照 windows 中各類檔案的小圖示(icon)(編號：1503)
在windows中, 各類檔案都有相關的小圖示,請問是否可以根據檔案的副檔名,把相應的小圖示抓取出來. 因為用imagelist來將每類圖示存入的方法不可行,--如果以後有新類型檔案--有圖示的話, 相關圖示就不能調用.
請教各位是否有方法可以動態地調用檔案圖示(icon)!!!
請教各位是否有方法可以動態地調用檔案圖示(icon)!!!
兩個進階問題(編號：1502)
1.請問如何使通訊埠在背景執行,也就是在不影響其他程式的狀況下
使用通訊埠收發資料,因為vb內建的mscomm無法在背景執行
(我要的功能就像是瀏覽器一般,再接收畫面時仍可執行其他工作)
2.如果我有一張表單(如履歷表)怎樣才能使輸入畫面和書面表格相
同(不使用DHTML)
(我要的是在表單中看到的格式與輸出報表相同,即 what yuo see
is what you get)
使用通訊埠收發資料,因為vb內建的mscomm無法在背景執行
(我要的功能就像是瀏覽器一般,再接收畫面時仍可執行其他工作)
2.如果我有一張表單(如履歷表)怎樣才能使輸入畫面和書面表格相
同(不使用DHTML)
(我要的是在表單中看到的格式與輸出報表相同,即 what yuo see
is what you get)
請問如何自動執行遠端程式(UNIX)(編號：1501)
請問如何自動執行遠端程式(UNIX),
目前我是使用rexec的方式,
但需手動輸入密碼,
所以有哪未前輩可提供技巧解決,
或是有更好的方式可討教!!
祝 快樂
目前我是使用rexec的方式,
但需手動輸入密碼,
所以有哪未前輩可提供技巧解決,
或是有更好的方式可討教!!
祝 快樂
Help me ! .....請問用VB6的Crystal Reporter印表?????(編號：1500)
各位前輩:
我已經寫好一程式用VB6的Crystal Reporter來印表
但是已包裝成安裝檔後安裝完成一執行印表程式
卻出現"執行期錯誤20536:Unable to connect:
incorrect log on parameters!"
請問各位大德該如何解決???
不勝感激
我已經寫好一程式用VB6的Crystal Reporter來印表
但是已包裝成安裝檔後安裝完成一執行印表程式
卻出現"執行期錯誤20536:Unable to connect:
incorrect log on parameters!"
請問各位大德該如何解決???
不勝感激
very very very problem(編號：1497)
我有一個customer table!!在dataenvironment中,我用兩個command
連接, 分別是command1 and command2.
現在我在from1中加了兩個datagrid!! 分別是datagrid1 and datagrid2. 而datagrid1 的 datamember 是command1.
而datagrid2 的 datamember 是command2.問題是在於當我update完datagrid1時!!datagrid2還未update直至將 program 結束再開始才能update!!
連接, 分別是command1 and command2.
現在我在from1中加了兩個datagrid!! 分別是datagrid1 and datagrid2. 而datagrid1 的 datamember 是command1.
而datagrid2 的 datamember 是command2.問題是在於當我update完datagrid1時!!datagrid2還未update直至將 program 結束再開始才能update!!
請教各位 VB 高手!!!!(編號：1494)
請問那位懂得以 vb 來寫一個可以調用 Windows 98 裡的撥號網絡的自動撥號程序呀??可以指點一下小弟嗎??這個程序對我很重要.希望各位能抽空解答一下我的問題..不勝感激!!!!
這樣子記憶體清不乾淨嗎?(編號：1493)
我寫的一小段程式(是做圖形變換特效),我將圖形載入記憶體中後進行運算再將圖形繪至PictureBox中,但似乎每次執行都會殘留些記憶體未釋放,導致程式連續執行後會產生憶體不足的訊息
請各位先進,般我看看我到底哪裡記憶體未釋放乾淨(由Cammand3_click開始整個程式的流程)
ps;我知道把整的程式碼Post出來大概就不會有人會回答,但還是懇請幫忙
Option Explicit
Dim hMemDC As Long
Private Sub Command1_Click()
Dim hOldPattern As Long, i As Integer
Dim hBitmap As Long, hPattern As Long
Dim sx As Long, sy As Long
Dim pic As Picture
ScaleMode = vbPixels
sx = Picture1.Width
sy = Picture1.Height
For i = 11 To 18
Set pic = LoadResPicture("Pattern" & Format(i, "00"), vbResBitmap)
hBitmap = pic.Handle
hPattern = CreatePatternBrush(hBitmap)
hOldPattern = SelectObject(Picture1.hDC, hPattern)
BitBlt Picture1.hDC, 0, 0, sx, sy, hMemDC, 0, 0, &HAC0744
SelectObject Picture1.hDC, hOldPattern
DeleteObject hBitmap
DeleteObject hPattern
Set pic = Nothing
delay 0.01
Next
DeleteDC hMemDc2
DeleteObject hBitmap
End Sub
'===================================
Private Sub Command2_Click()
Me.Text1 = Me.Text1 + 1
Picture1.Cls
Command3_Click
End Sub
'==========================================
Sub delay(ByVal n As Single)
Dim tm1 As Long, tm2 As Long
tm1 = timeGetTime
Do
tm2 = timeGetTime
If (tm2 - tm1) / 1000 ＞ n Then Exit Do
DoEvents
Loop
End Sub
'====================================開始
Private Sub Command3_Click()
Dim picBmp As Picture
Dim picMask As Picture
Set picBmp = LoadPicture(App.Path & "\" & "800Dtop1.bmp")
Set picMask = LoadPicture(App.Path & "\" & "temp.bmp")
NoBlinkDraw Me.Picture1.hDC, picBmp.Handle, picMask.Handle, 0, 0
Set picMask = Nothing
Set picBmp = Nothing
Call Command1_Click
Call Command2_Click
End Sub
'======================================================
Sub NoBlinkDraw(ByVal hDC As Long, ByVal hBmp As Long, ByVal hMask As Long, ByVal Left As Integer, ByVal Top As Integer)
Dim w As Integer, h As Integer ' 圖片寬度及高度
Dim hBitmap As Long
Dim hMemDcTemp As Long
Dim bm As BITMAP
' 取得圖片的寬度及高度
GetObject hMask, LenB(bm), bm
w = bm.bmWidth
h = bm.bmHeight
' 建立記憶體 DC
hMemDC = CreateCompatibleDC(hDC)
hBitmap = CreateCompatibleBitmap(hDC, w, h)
SelectObject hMemDC, hBitmap
hMemDcTemp = CreateCompatibleDC(hDC)
SelectObject hMemDcTemp, hBmp
BitBlt hMemDC, 0, 0, w, h, hMemDcTemp, 0, 0, vbSrcCopy
DeleteDC hMemDcTemp
End Sub
請各位先進,般我看看我到底哪裡記憶體未釋放乾淨(由Cammand3_click開始整個程式的流程)
ps;我知道把整的程式碼Post出來大概就不會有人會回答,但還是懇請幫忙
Option Explicit
Dim hMemDC As Long
Private Sub Command1_Click()
Dim hOldPattern As Long, i As Integer
Dim hBitmap As Long, hPattern As Long
Dim sx As Long, sy As Long
Dim pic As Picture
ScaleMode = vbPixels
sx = Picture1.Width
sy = Picture1.Height
For i = 11 To 18
Set pic = LoadResPicture("Pattern" & Format(i, "00"), vbResBitmap)
hBitmap = pic.Handle
hPattern = CreatePatternBrush(hBitmap)
hOldPattern = SelectObject(Picture1.hDC, hPattern)
BitBlt Picture1.hDC, 0, 0, sx, sy, hMemDC, 0, 0, &HAC0744
SelectObject Picture1.hDC, hOldPattern
DeleteObject hBitmap
DeleteObject hPattern
Set pic = Nothing
delay 0.01
Next
DeleteDC hMemDc2
DeleteObject hBitmap
End Sub
'===================================
Private Sub Command2_Click()
Me.Text1 = Me.Text1 + 1
Picture1.Cls
Command3_Click
End Sub
'==========================================
Sub delay(ByVal n As Single)
Dim tm1 As Long, tm2 As Long
tm1 = timeGetTime
Do
tm2 = timeGetTime
If (tm2 - tm1) / 1000 ＞ n Then Exit Do
DoEvents
Loop
End Sub
'====================================開始
Private Sub Command3_Click()
Dim picBmp As Picture
Dim picMask As Picture
Set picBmp = LoadPicture(App.Path & "\" & "800Dtop1.bmp")
Set picMask = LoadPicture(App.Path & "\" & "temp.bmp")
NoBlinkDraw Me.Picture1.hDC, picBmp.Handle, picMask.Handle, 0, 0
Set picMask = Nothing
Set picBmp = Nothing
Call Command1_Click
Call Command2_Click
End Sub
'======================================================
Sub NoBlinkDraw(ByVal hDC As Long, ByVal hBmp As Long, ByVal hMask As Long, ByVal Left As Integer, ByVal Top As Integer)
Dim w As Integer, h As Integer ' 圖片寬度及高度
Dim hBitmap As Long
Dim hMemDcTemp As Long
Dim bm As BITMAP
' 取得圖片的寬度及高度
GetObject hMask, LenB(bm), bm
w = bm.bmWidth
h = bm.bmHeight
' 建立記憶體 DC
hMemDC = CreateCompatibleDC(hDC)
hBitmap = CreateCompatibleBitmap(hDC, w, h)
SelectObject hMemDC, hBitmap
hMemDcTemp = CreateCompatibleDC(hDC)
SelectObject hMemDcTemp, hBmp
BitBlt hMemDC, 0, 0, w, h, hMemDcTemp, 0, 0, vbSrcCopy
DeleteDC hMemDcTemp
End Sub
How to use the Dialog ?(編號：1491)
I used the Dialog to open TXT files,but i can not get the
Dialog.FileTitle.
It open two or three TXT file.
Dialog.FileTitle.
It open two or three TXT file.
如果儲存PictureBox內自行繪製的圖形到.bmp(編號：1489)
我用
Picture1.Print "文字串", Picture1.Line, Picture1.Circle
等方法在PictureBox繪製了簡單表格圖, 有什麼方法可以將我所繪製的圖存成.bmp 檔呢? (我用SavePicture不可以!)
謝謝!
Picture1.Print "文字串", Picture1.Line, Picture1.Circle
等方法在PictureBox繪製了簡單表格圖, 有什麼方法可以將我所繪製的圖存成.bmp 檔呢? (我用SavePicture不可以!)
謝謝!
如何用VB寫一個自動到某個FTP SERVER DOWNLOAD FILE ...(編號：1487)
如何用VB寫一個自動到某個FTP SERVER DOWNLOAD 某個指定檔案的程式;
如: ftp.microsoft.com/softlib/mslfiles/vbc.exe
謝謝!
如: ftp.microsoft.com/softlib/mslfiles/vbc.exe
謝謝!
如何在程式中 複製完全獨立的 Adodc(補充)(編號：1486)
因情況中需做臨時性之資料變更卻不願動到原始之Adodc1.Recordset,
非用 Set Adodc2.Recordset = Adodc1.Recordset
因如此 Adodc1及Adodc2 為同一組資料錄.
例 : (補充說明)
Adodc2 為 Adodc1 之分身, 但吾需要 :
1. 在資料中做臨時性之標記(如本人預留一欄位做使用者選項之依據, 例可隨意選項, 標記欄 update 為
"*" , 可再做 SQL 篩選之依據. , 但又不願變更到 本尊-Adodc1 之標記欄 .
2. 資料庫內容臨時性變更, 展示若第一項 投資金額變為 xxx, 第二項 投資金額變為..投資項目改為xxx..
多項多人變更時將會有何種結果, 但又不願變更到 本尊-Adodc1
故我想若能製造一分身或多個分身, 能讓我隨意變動資料內容, 那程式將會比較好處理.
請高手指教
非用 Set Adodc2.Recordset = Adodc1.Recordset
因如此 Adodc1及Adodc2 為同一組資料錄.
例 : (補充說明)
Adodc2 為 Adodc1 之分身, 但吾需要 :
1. 在資料中做臨時性之標記(如本人預留一欄位做使用者選項之依據, 例可隨意選項, 標記欄 update 為
"*" , 可再做 SQL 篩選之依據. , 但又不願變更到 本尊-Adodc1 之標記欄 .
2. 資料庫內容臨時性變更, 展示若第一項 投資金額變為 xxx, 第二項 投資金額變為..投資項目改為xxx..
多項多人變更時將會有何種結果, 但又不願變更到 本尊-Adodc1
故我想若能製造一分身或多個分身, 能讓我隨意變動資料內容, 那程式將會比較好處理.
請高手指教
More about display sql7 records by using vb prog.(編號：1484)
1. I know the adv to use codepage 1252 now, but the problem still I can't read any chinese characters from my vb prog. for any varchar type & nvarchar type.
2. And that's perfect when I do query or update records through ASP.
3. My vb prog. is running in clients chinese win98. I find I can't read or update any chinese words from sql server when I use any tools like, enterprise manager, query analyizer, and most important, my vb prog.
4. that's why I ask what's actually in the db store in nvarchar type & varchar type corresponingly and how can I make my vb application can display/update records properly.
5. And the further is that I got "OS does not support codepage950" when try to install it in a eng. NT server 4, but I can do it well in windows 2000....(but my boss let me do it of course). What's the reason?
8. If I insist to use codepage 1252, how can let my prog to query/insert/update well by using ado? Do I need to call vb function to do conversion, like strconv?? ( I tried strconv, but not work properly).
9. And how to decide to choose varchar or nvarchar??
Thank you all of you!
2. And that's perfect when I do query or update records through ASP.
3. My vb prog. is running in clients chinese win98. I find I can't read or update any chinese words from sql server when I use any tools like, enterprise manager, query analyizer, and most important, my vb prog.
4. that's why I ask what's actually in the db store in nvarchar type & varchar type corresponingly and how can I make my vb application can display/update records properly.
5. And the further is that I got "OS does not support codepage950" when try to install it in a eng. NT server 4, but I can do it well in windows 2000....(but my boss let me do it of course). What's the reason?
8. If I insist to use codepage 1252, how can let my prog to query/insert/update well by using ado? Do I need to call vb function to do conversion, like strconv?? ( I tried strconv, but not work properly).
9. And how to decide to choose varchar or nvarchar??
Thank you all of you!
請問大家三個有關 VB6 SP3 的問題!!(編號：1483)
1. 請問要如何宣告 " 無負號的長整數 " ??
2. 請問要如何像 " MemTurbo ( 某一套可以釋放系統記憶體的軟體!! ) " 一樣的釋放系統記憶體??
3. 請問要如何使用 Windows APIs 來用 " 硬碟機 or RAM " 模擬 " 磁碟機、硬碟機、光碟機、...... 等等 " ??
( 謝謝!! )
2. 請問要如何像 " MemTurbo ( 某一套可以釋放系統記憶體的軟體!! ) " 一樣的釋放系統記憶體??
3. 請問要如何使用 Windows APIs 來用 " 硬碟機 or RAM " 模擬 " 磁碟機、硬碟機、光碟機、...... 等等 " ??
( 謝謝!! )
好康到相報(編號：1482)
最近卯起來看vb有關database的中文書 覺得有幾本不錯
各位在網路上提到的問題那幾本書都可作為參考及解答喔
(其他沒提到不代表不好 是我還沒看到而已)
1.阿柳的大作 是我看過中vb最好的入門書值得買下來為使用手冊
2.盧毅著文魁出版
database中常用的維護都有完整範例
還有提供整合msflexgrid 及 datagrid 功能於一身的方法
有兩本 一本以選課為範例 一本以進銷存為範例
3.com元件應用程式設計實務 mspress
VBD開發3_TIRED 的完整範例
4.vb6.0 高階人員必讀手冊 mspress
談專案開發 管理 及 建構基礎程式 等等課題
5.vb client/server howto 上下冊
6.碁峰 代理wrox的原文書一大套
這套書真是太棒了 不看可惜 可惜是原文的
碁峰 已經有著手翻譯一些 但都是關於c++ 及 com
vb都沒翻譯 希望大家有空多給其峰寫寫信
也希望 這裡的眾高手能翻翻好原文書 給我們著些英文差的人 恩恩
各位在網路上提到的問題那幾本書都可作為參考及解答喔
(其他沒提到不代表不好 是我還沒看到而已)
1.阿柳的大作 是我看過中vb最好的入門書值得買下來為使用手冊
2.盧毅著文魁出版
database中常用的維護都有完整範例
還有提供整合msflexgrid 及 datagrid 功能於一身的方法
有兩本 一本以選課為範例 一本以進銷存為範例
3.com元件應用程式設計實務 mspress
VBD開發3_TIRED 的完整範例
4.vb6.0 高階人員必讀手冊 mspress
談專案開發 管理 及 建構基礎程式 等等課題
5.vb client/server howto 上下冊
6.碁峰 代理wrox的原文書一大套
這套書真是太棒了 不看可惜 可惜是原文的
碁峰 已經有著手翻譯一些 但都是關於c++ 及 com
vb都沒翻譯 希望大家有空多給其峰寫寫信
也希望 這裡的眾高手能翻翻好原文書 給我們著些英文差的人 恩恩
備份SQL Server的資料到Access(編號：1481)
我要將SQL Server的資料備份到Client端的Access資料表中，
我的寫法大致如下...
do until rsSQL.eof
for i= 0 to rsAccess.fields.count - 1
loop
loop
我的寫法大致如下...
do until rsSQL.eof
for i= 0 to rsAccess.fields.count - 1
loop
loop
關於crystal report 報表的問題(編號：1480)
請問各位大哥
q1; crystal report 如何使用變數來搜尋ㄋ
如果不能的話 應如何做
ex; 我的意思是 如果我的報表可能需要
依條件(讓使用者自行輸入)來搜尋 如年,月的區間
依條件(讓使用者自行輸入)來排序
但 使用者的輸入如何傳給crystal report
以及crystal report 如何設定ㄋ
q1; crystal report 如何使用變數來搜尋ㄋ
如果不能的話 應如何做
ex; 我的意思是 如果我的報表可能需要
依條件(讓使用者自行輸入)來搜尋 如年,月的區間
依條件(讓使用者自行輸入)來排序
但 使用者的輸入如何傳給crystal report
以及crystal report 如何設定ㄋ
Shell ("calc.exe")(編號：1479)
我用click 事件去Shell ("calc.exe"),由於每click一次便開一次,但當該calc.exe lostfocus 便耍click 一次先有calc用,點先可以令縮小之calc 用click 事件變番出來,而不需開多一個calc
about textbox(編號：1478)
本人想限制輸入的數為XXXk or XXXM 但不能為其他
雖然以下program 能避免入其他,但不能避免入2個k or M
有乜方法改善???
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii ＜＞ 8 And KeyAscii ＜＞ 13 And KeyAscii ＜＞ 9 And KeyAscii ＜＞ 27 Then
Select Case Chr(KeyAscii)
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ".", "k"
Case Else
respone = MsgBox("Please enter a number !", 48, "CAUTION")
KeyAscii = 0
End Select
End If
End Sub
雖然以下program 能避免入其他,但不能避免入2個k or M
有乜方法改善???
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii ＜＞ 8 And KeyAscii ＜＞ 13 And KeyAscii ＜＞ 9 And KeyAscii ＜＞ 27 Then
Select Case Chr(KeyAscii)
Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ".", "k"
Case Else
respone = MsgBox("Please enter a number !", 48, "CAUTION")
KeyAscii = 0
End Select
End If
End Sub
如何在程式中 複製完全獨立的 Adodc1(編號：1472)
因情況中需做臨時性之資料變更卻不願動到原始之Adodc1.Recordset,
非用 Set Adodc2.Recordset = Adodc1.Recordset
因如此 Adodc1及Adodc2 為同一組資料錄.
請高手指教
非用 Set Adodc2.Recordset = Adodc1.Recordset
因如此 Adodc1及Adodc2 為同一組資料錄.
請高手指教
請問如何在datareport中讓資料格式為(是/否)值以核取方塊顯示？(編號：1471)
我想請教一下
我有一個資料欄位其格式為布林值,ture/false
我在datareport中
想要讓value=true的紀錄
顯示出勾選的checkbox
請問要如何設定？
我已經在dataformat設定為核取方塊了
可是仍然顯示出1
我要怎麼做比較好呢？請指正賜教，謝謝！
我有一個資料欄位其格式為布林值,ture/false
我在datareport中
想要讓value=true的紀錄
顯示出勾選的checkbox
請問要如何設定？
我已經在dataformat設定為核取方塊了
可是仍然顯示出1
我要怎麼做比較好呢？請指正賜教，謝謝！
執行檔的問題(編號：1470)
大家好：
我用 VB 寫了一個 ocx 元件，是有關於繪圖的
不過很奇怪...用那個 ocx 元件編出來的執行檔在自己的機器
可以執行...不過安裝到其它的機器時就不能執行了...
只聽見那個喇叭 "答"的一聲，然後就沒有反應.
系統也沒有當，就是執行那個程式沒反應而已
連啟始表單都沒有出來....(很神奇的)
不過我把那個 ocx 元件拿掉之後，拿到別台電腦就沒有問題了
因此我猜想是不是我在 ocx 元件用了什麼東西？
不知道大家有沒有什麼解決的辦法....:~
我用 VB 寫了一個 ocx 元件，是有關於繪圖的
不過很奇怪...用那個 ocx 元件編出來的執行檔在自己的機器
可以執行...不過安裝到其它的機器時就不能執行了...
只聽見那個喇叭 "答"的一聲，然後就沒有反應.
系統也沒有當，就是執行那個程式沒反應而已
連啟始表單都沒有出來....(很神奇的)
不過我把那個 ocx 元件拿掉之後，拿到別台電腦就沒有問題了
因此我猜想是不是我在 ocx 元件用了什麼東西？
不知道大家有沒有什麼解決的辦法....:~
救命 ! . . . (3447)(編號：1469)
Error Number: 3447
The Jet VBA File (VBAJET.DLL for 16-bit version or VBAJET32.DLL for 32-bit version) failed to initialize when called,
try reinstalling the application that returned the error.
試過反安裝後再重新安裝, 但以上字句依然出現,
有解決方法嗎 ?
The Jet VBA File (VBAJET.DLL for 16-bit version or VBAJET32.DLL for 32-bit version) failed to initialize when called,
try reinstalling the application that returned the error.
試過反安裝後再重新安裝, 但以上字句依然出現,
有解決方法嗎 ?
請問一個Label和TextBox的問題(編號：1468)
我用一個TextBox輸入文字,按下按鈕後讓TextBox的內容顯示到Label上,但是我要怎麼樣才能控制輸入TextBox的文字長度不要超過Label的寬度?(每個英文字母的寬度不一樣,例:在Label中可以顯示15個a,
但卻只能顯示10個w)
ps. Label寬度要固定
謝謝!
但卻只能顯示10個w)
ps. Label寬度要固定
謝謝!
Data Report Crytal Report(編號：1465)
各位vb高手
最近在設計一些報表, 如果使用DataEnvironment去連結資料庫
當資料Update時, 再去執行Data Report時還是舊的資料
請問一下要如果Refresh Data Environment的資料
另外我就考慮使用Crytal Report測試會不會更新資料, 結果是一樣的
謝謝
最近在設計一些報表, 如果使用DataEnvironment去連結資料庫
當資料Update時, 再去執行Data Report時還是舊的資料
請問一下要如果Refresh Data Environment的資料
另外我就考慮使用Crytal Report測試會不會更新資料, 結果是一樣的
謝謝
型態內容轉換問題，請各位高手提供解決辦法(編號：1464)
型態內容轉換問題，請各位高手提供解決辦法
我有一 recordset, datProduct recordset 其中
datProduct recordset ("確認碼")為一布林代數(Yes/No)資料型態
跟Form中的控制項Text1.text連接，卻只在Text1.text中顯示-1或0
現在我想在Text1.text中顯示Yes或No不知道程式如何寫
才能跟資料庫配合(能儲存Text1.text中的資料)
請各位高手幫忙
我有一 recordset, datProduct recordset 其中
datProduct recordset ("確認碼")為一布林代數(Yes/No)資料型態
跟Form中的控制項Text1.text連接，卻只在Text1.text中顯示-1或0
現在我想在Text1.text中顯示Yes或No不知道程式如何寫
才能跟資料庫配合(能儲存Text1.text中的資料)
請各位高手幫忙
Displaying chinese words from sql7.(編號：1461)
I have a great problem right now, please help.
It is now a exist SQL7 with using codepage1252, and that's ok for using asp to display to insert, update & delete chinese records.
But when I try to build client/server prog by using vb6, I found I can't display chinese records & do any chinese wording update/insert to the sql database. And that's happened in any varchar and nvarchar type.
Here is some questions,
1. Can I still can display chinese in the vb prog. by current setting? or I need to convert the chinese words (coding) from sql server before do display or update of records?
2. If I can't, is it a must I use codepage950 to build sql database? and I found I can't install codepage950 in English NT server, is it a case? or I missed several steps? Or it is a must to install in tranditional chinese NT?
3. What's actually stored in varchar & nvarchar when I use asp/vb prog as a input?
4. Last question, and how about simplified chinese, can I still store it in codepage950 or codepage1252 db?
Thank you very much for your help.
It is now a exist SQL7 with using codepage1252, and that's ok for using asp to display to insert, update & delete chinese records.
But when I try to build client/server prog by using vb6, I found I can't display chinese records & do any chinese wording update/insert to the sql database. And that's happened in any varchar and nvarchar type.
Here is some questions,
1. Can I still can display chinese in the vb prog. by current setting? or I need to convert the chinese words (coding) from sql server before do display or update of records?
2. If I can't, is it a must I use codepage950 to build sql database? and I found I can't install codepage950 in English NT server, is it a case? or I missed several steps? Or it is a must to install in tranditional chinese NT?
3. What's actually stored in varchar & nvarchar when I use asp/vb prog as a input?
4. Last question, and how about simplified chinese, can I still store it in codepage950 or codepage1252 db?
Thank you very much for your help.
在程式中如何動態加入控制元件的事件程序呢 ?(編號：1460)
我寫了一個程式如下:
Option Explicit
Dim WithEvents ctlCommand As VB.CommandButton
Public CommandButtonCount As Integer
Public CommandButtonX, CommandButtonY As Integer
Private Sub Command1_Click()
Dim CommandButtonName As String
Dim x, y, z As Integer
CommandButtonCount = CommandButtonCount + 1
z = 4
CommandButtonY = (CommandButtonCount \ z) + 1
CommandButtonX = z - ((z * CommandButtonY) - CommandButtonCount)
If CommandButtonX = 0 Then
CommandButtonY = CommandButtonY - 1
CommandButtonX = (z * CommandButtonY) \ CommandButtonY
End If
CommandButtonName = "Button" + Trim(Str(CommandButtonX)) + Trim(Str(CommandButtonY))
' 動態新增 CommandButton 控制項
Set ctlCommand = Controls.Add("VB.CommandButton", CommandButtonName, Form1)
' 設定 CommandButton 控制項的標題
ctlCommand.Caption = CommandButtonName
' 設定 CommandButton 控制項的位置及大小
y = 550 * (CommandButtonY - 1)
x = 1550 * (CommandButtonX - 1)
ctlCommand.Move x, y, 1500, 500
' 設定 CommandButton 控制項的 Visible 屬性為 True
ctlCommand.Visible = True
End Sub
Private Sub Form_Load()
CommandButtonCount = 0
CommandButtonX = 0
CommandButtonY = 0
End Sub
作用是當我按下 command1 button 時程式會動態新增一個 command button 元件
但是我不知道要如何同時產生該新增的 command button 的 click 事件程序
不知有哪為前輩可以告訴我
Thank !!!
Option Explicit
Dim WithEvents ctlCommand As VB.CommandButton
Public CommandButtonCount As Integer
Public CommandButtonX, CommandButtonY As Integer
Private Sub Command1_Click()
Dim CommandButtonName As String
Dim x, y, z As Integer
CommandButtonCount = CommandButtonCount + 1
z = 4
CommandButtonY = (CommandButtonCount \ z) + 1
CommandButtonX = z - ((z * CommandButtonY) - CommandButtonCount)
If CommandButtonX = 0 Then
CommandButtonY = CommandButtonY - 1
CommandButtonX = (z * CommandButtonY) \ CommandButtonY
End If
CommandButtonName = "Button" + Trim(Str(CommandButtonX)) + Trim(Str(CommandButtonY))
' 動態新增 CommandButton 控制項
Set ctlCommand = Controls.Add("VB.CommandButton", CommandButtonName, Form1)
' 設定 CommandButton 控制項的標題
ctlCommand.Caption = CommandButtonName
' 設定 CommandButton 控制項的位置及大小
y = 550 * (CommandButtonY - 1)
x = 1550 * (CommandButtonX - 1)
ctlCommand.Move x, y, 1500, 500
' 設定 CommandButton 控制項的 Visible 屬性為 True
ctlCommand.Visible = True
End Sub
Private Sub Form_Load()
CommandButtonCount = 0
CommandButtonX = 0
CommandButtonY = 0
End Sub
作用是當我按下 command1 button 時程式會動態新增一個 command button 元件
但是我不知道要如何同時產生該新增的 command button 的 click 事件程序
不知有哪為前輩可以告訴我
Thank !!!
How to load a multiple layer map file on a VB form(編號：1457)
There is a .dxf file created by AutoCAD. How to load it on
a VB form/PictureBox but still keep its multiple layers?
a VB form/PictureBox but still keep its multiple layers?
common dialog 問題, cdlOFNExplorer + cdlOFNAllowMultiselect(編號：1455)
＞CD1.Flags = &H281200 'set common dialog 為 cdlOFNExplorer 及 cdlOFNAllowMultiselect
＞CD1.Filter = "*.*!*.*"
＞CD1.ShowOpen
＞Text1 = CD1.filename
help 說明以此mode 下showopen 之後的 filename 會以null 為delimiter...
故此我不能把filename 直接 = text1
請問各位師傅我要怎樣做才能extract 所有files 0既path 來呢?
＞CD1.Filter = "*.*!*.*"
＞CD1.ShowOpen
＞Text1 = CD1.filename
help 說明以此mode 下showopen 之後的 filename 會以null 為delimiter...
故此我不能把filename 直接 = text1
請問各位師傅我要怎樣做才能extract 所有files 0既path 來呢?
關於Crystal Reports的問題(編號：1453)
我想在列印時可以一頁只列印
固定筆數的資料就換頁
例如一頁只列印20筆資料就換新的一頁列印
Crystal Reports(Ver 4.6)可以做到嗎???
固定筆數的資料就換頁
例如一頁只列印20筆資料就換新的一頁列印
Crystal Reports(Ver 4.6)可以做到嗎???
使用sybase常出現 lock statments?(編號：1450)
我以sybase+VB開發一個系統,平均有個15-20用戶同時使用,
問題是很多時會有部份用戶端出現鎖機現象,
而在SYBASE的SERVER MANGER,Process中,出現lock recv.
這問題真的難到的公司的電腦部同事,
請教大家的意見,謝謝..
問題是很多時會有部份用戶端出現鎖機現象,
而在SYBASE的SERVER MANGER,Process中,出現lock recv.
這問題真的難到的公司的電腦部同事,
請教大家的意見,謝謝..
如何讓物件不要引發該事件(編號：1449)
(1)如何量測游標在 RichTextBox中的 x, y座標?
當在編輯文章時, 游標會隨著文字移動, 要如何量測游標在 RichTextBox中的 x, y座標呢?謝謝
(2)如何把RichTextBox中的文字在檢視時, 放大100%, 125%, 150%, 200% 呢?
曾有網友提供, 但還是不會!!
(3)如何取得執行中的程式的”檔案名稱”?
在NT, 執行一個”沒有視窗”的執行程式時(如aaa.exe), 要如何取得該執行程式的檔案名稱呢?
我只知道在Windows NT工作管理員 可以看到, 但用VB如何抓取呢?
(4)在TextBox or RichTextBox選取字串時, 若用
Text1.SelStart = 0
Text1.SelLength = 10
所選到的字會反白, 要如何讓字不要反白呢?
(5)有一個TextBox1物件, 當其內的文字改變內容時, 如何讓它不要去引發 TextBox1_Change ()的事件呢?
註:TextBox1_Change ()不能拿掉喔!
當在編輯文章時, 游標會隨著文字移動, 要如何量測游標在 RichTextBox中的 x, y座標呢?謝謝
(2)如何把RichTextBox中的文字在檢視時, 放大100%, 125%, 150%, 200% 呢?
曾有網友提供, 但還是不會!!
(3)如何取得執行中的程式的”檔案名稱”?
在NT, 執行一個”沒有視窗”的執行程式時(如aaa.exe), 要如何取得該執行程式的檔案名稱呢?
我只知道在Windows NT工作管理員 可以看到, 但用VB如何抓取呢?
(4)在TextBox or RichTextBox選取字串時, 若用
Text1.SelStart = 0
Text1.SelLength = 10
所選到的字會反白, 要如何讓字不要反白呢?
(5)有一個TextBox1物件, 當其內的文字改變內容時, 如何讓它不要去引發 TextBox1_Change ()的事件呢?
註:TextBox1_Change ()不能拿掉喔!
"SOS!" 請問各界高手, "如何在執行狀態加入 Label 控制項"(編號：1448)
請問各界高手, 如何在"執行狀態"加入 Label 控制項 並可以將之刪除.縮放大小!!!
煩請賜教,萬分感謝!!
煩請賜教,萬分感謝!!
VB小問題~(編號：1446)
1.怎麼將data存到檔案裡時能夠將每筆資料對齊呢？
如：
12 36 357
264 274 23
2.如何使用autosetup將寫好的程式封裝成setup檔來安裝使用呢？
3.VB裡有無數字與字串相互轉換的函式？
如：
12 36 357
264 274 23
2.如何使用autosetup將寫好的程式封裝成setup檔來安裝使用呢？
3.VB裡有無數字與字串相互轉換的函式？
請問要如何讓 Driver 在 NT and W2000 開機後就被 Load ??(編號：1443)
VB 能寫 driver 嗎? 我怎麼不知道? VB 最多只能寫 service 吧! 要於系統啟動時自動執行 driver 或 service 必須修改登錄。該登錄位於 HKLM\SYSTEM\CurrentControlSet\Services 的機碼下。
ㄞˋ, About VB Unsigned ?(編號：1442)
VB 真的沒有 unsigned 的宣告嗎 ?
我想要 unsigned long : 0 ~ 4294967295
而不要 -2147483648 ~ 2147483647
VB 有啥麼方法可以做到 ?
Thanks for your answer !!!!!!!!!
我想要 unsigned long : 0 ~ 4294967295
而不要 -2147483648 ~ 2147483647
VB 有啥麼方法可以做到 ?
Thanks for your answer !!!!!!!!!
vb 6 如何接收或攔截印表機沒紙的錯誤訊息及清除(編號：1441)
各位 前輩 先進
小弟不材請教一些問題。
目前小弟使用VB6.0 在 NT 4.0 WrokStation 上開發程式，想要接收或攔截印表機沒紙的錯誤訊息，卻不知如何著手。
小弟在程式中使用
Printer.Print "ABCDEFG"
Printer.Print "1234567890"
Printer.EndDoc
這些指令來列印，印表機接在 LPT1 上。
小弟試過用
ON ERROR GOTO "LINE"
"程式碼 ─ 列印
EXIT SUB
LINE
"處理錯誤函式
END SUB
不過似乎沒有用。
請問各位 前輩 先進 有沒有其他方法或指令可以接收或攔截印表機沒紙的錯誤訊息及清除錯誤訊息。
承蒙賜教，不勝感激！
小弟不材請教一些問題。
目前小弟使用VB6.0 在 NT 4.0 WrokStation 上開發程式，想要接收或攔截印表機沒紙的錯誤訊息，卻不知如何著手。
小弟在程式中使用
Printer.Print "ABCDEFG"
Printer.Print "1234567890"
Printer.EndDoc
這些指令來列印，印表機接在 LPT1 上。
小弟試過用
ON ERROR GOTO "LINE"
"程式碼 ─ 列印
EXIT SUB
LINE
"處理錯誤函式
END SUB
不過似乎沒有用。
請問各位 前輩 先進 有沒有其他方法或指令可以接收或攔截印表機沒紙的錯誤訊息及清除錯誤訊息。
承蒙賜教，不勝感激！
about open exe file(高手們幫幫手lar)(編號：1439)
我用了C 寫了一個program :
(內容) #include "stdio.h"
int main(){
printf("hello!!");
return 0;}
我把這個program compile 之後(即這個program is a .exe file)
然後,我用VB整了一個CommandButton,當按這個button 後,便會自動去run 上面的exe file,
之後便會傳回 'hello!!' ,並把 'hello!!' show 在我VB的form 上!!
how can I do that??
高手請幫幫手lar!!
(內容) #include "stdio.h"
int main(){
printf("hello!!");
return 0;}
我把這個program compile 之後(即這個program is a .exe file)
然後,我用VB整了一個CommandButton,當按這個button 後,便會自動去run 上面的exe file,
之後便會傳回 'hello!!' ,並把 'hello!!' show 在我VB的form 上!!
how can I do that??
高手請幫幫手lar!!
Crystal Reports的問題(編號：1438)
看了幾篇各位高手對於Crystal Reports的Q&A,但還是搞不太懂耶!
可否附範例說明,在Crystal Contral中要設定那些控制碼,而Crystal Report設計畫面中要作那些設定,才能將vb中的變數,如text1.text的值代入Crystal Report的SQL Quary中呢?
我設了CrystalReport1.SqlQuary="select * from ...."但一跑到CrystalReport1 Action=1時都會出現參數錯誤的訊息,請各位高手幫幫忙吧!或是介紹那本書有專門講Crystal Report的,我現在還在用4.6版!謝謝!
可否附範例說明,在Crystal Contral中要設定那些控制碼,而Crystal Report設計畫面中要作那些設定,才能將vb中的變數,如text1.text的值代入Crystal Report的SQL Quary中呢?
我設了CrystalReport1.SqlQuary="select * from ...."但一跑到CrystalReport1 Action=1時都會出現參數錯誤的訊息,請各位高手幫幫忙吧!或是介紹那本書有專門講Crystal Report的,我現在還在用4.6版!謝謝!
SQL 查詢句的問題(編號：1436)
例子如下：
select 財產名稱, count(*) as 數量 from 財產資料表 where 驗收單號='83' Group by 財產名稱
查詢結果
財產名稱 數量
------------------------------ -----------
資訊工作站 52
資訊轉換主機 1
電視牆主機 3
(3 row(s) affected)
問題：
請問在使用Group By的時候，如何下SQL查詢句找出 (3 row(s) affected) 的 3 呢？
select 財產名稱, count(*) as 數量 from 財產資料表 where 驗收單號='83' Group by 財產名稱
查詢結果
財產名稱 數量
------------------------------ -----------
資訊工作站 52
資訊轉換主機 1
電視牆主機 3
(3 row(s) affected)
問題：
請問在使用Group By的時候，如何下SQL查詢句找出 (3 row(s) affected) 的 3 呢？
奇怪的問題!(高手part 2)(編號：1435)
我做過用以vb 做的播放mid,wav,cd,的程式，但，如果我有二台以上的光碟機，它就無法讀取到第二台，如何才能做到呢?
hurry up !!!!
hurry up !!!!
kodak image scan control(編號：1434)
請問imaging所附的
kodak image scan control
kodak影像管理控制
kodak影像縮圖控制
kodak影像編輯控制
等四個物件是否是free
以上述元件開TWAIN很好用,但有一問題,SCANNER
只能掃瞄RGB而不能掃CMYK.以至於不能存檔成.BMP
是否有人處理過相關的問題??
THANKS!!
kodak image scan control
kodak影像管理控制
kodak影像縮圖控制
kodak影像編輯控制
等四個物件是否是free
以上述元件開TWAIN很好用,但有一問題,SCANNER
只能掃瞄RGB而不能掃CMYK.以至於不能存檔成.BMP
是否有人處理過相關的問題??
THANKS!!
又是dll 問題 (急問)(編號：1433)
現在有一個用vb 寫的 dll file, 請問是否能夠 把他在網路中與其他電腦一起使用?
是否用 server and client register 這一個dll 便可以?? 可以的話請問怎麼辦??
各位高手們, 可否用例子詳細說明一下步驟~??
是否用 server and client register 這一個dll 便可以?? 可以的話請問怎麼辦??
各位高手們, 可否用例子詳細說明一下步驟~??
請問一個資料表中遞增欄位及DataGrid的問題(編號：1432)
請教各位先進!!
小弟在資料表中建立一自動遞增之欄位，但有一點奇怪的
地方，就是若最後一筆記錄編號是10，將它刪除後，再新
增一筆資料它的編號竟然是11，感覺上好像是第10筆記錄
沒有刪除的樣子，請問要如何讓新增的記錄編是緊接在上
一筆實際記錄之後呢???
另還有一個問題，小弟使用DataGrid編輯資料時，為啥儲
存格上沒有游標呢??但是還是可以編輯資料，請問要如何
才能讓游標出現呢???
望各位先進能不吝指教!!
小弟在資料表中建立一自動遞增之欄位，但有一點奇怪的
地方，就是若最後一筆記錄編號是10，將它刪除後，再新
增一筆資料它的編號竟然是11，感覺上好像是第10筆記錄
沒有刪除的樣子，請問要如何讓新增的記錄編是緊接在上
一筆實際記錄之後呢???
另還有一個問題，小弟使用DataGrid編輯資料時，為啥儲
存格上沒有游標呢??但是還是可以編輯資料，請問要如何
才能讓游標出現呢???
望各位先進能不吝指教!!
ProgressBar 如何使用 ?(編號：1429)
各位大哥 :
我想在程式中加入例如 "請等待..." 此類的提示, 可不知該去怎麼去做 ? Progress Bar 這個控件怎樣用呢 ?
請多多指教 !
我想在程式中加入例如 "請等待..." 此類的提示, 可不知該去怎麼去做 ? Progress Bar 這個控件怎樣用呢 ?
請多多指教 !
請問..Text..文字盒如果要改字型跟顏色..(編號：1428)
請問..Text..文字盒如果要改字型跟顏色..
是不是只能改整個文字盒的文字....
單單要改某一字串的文字顏色與字型可以ㄇ??
今天＜b＞＜font color=red＞天氣＜/font＞＜/b＞很好
是不是只能改整個文字盒的文字....
單單要改某一字串的文字顏色與字型可以ㄇ??
今天＜b＞＜font color=red＞天氣＜/font＞＜/b＞很好
DataReport 中可否即時更改Rptlabel 中的內容(編號：1427)
各位高手:
因小弟的欲列印的database須印出順序但又須可讓user
要印時才決定順序所以我不能把順序存入database 而需
在印出時才產出但Rptlabel 中的內容好像不能改說....
不知各位有何高見.....
因小弟的欲列印的database須印出順序但又須可讓user
要印時才決定順序所以我不能把順序存入database 而需
在印出時才產出但Rptlabel 中的內容好像不能改說....
不知各位有何高見.....
DAO , DBEngine.Workspaces(0) 之問題請教(編號：1425)
由開始只有書本上教過用DBEngine.Workspaces(0)就可以了, 如果我用DBEngine.Workspaces(1)去開一個DATABASE FILE ,用DBEngine.Workspaces(2)去開另一個DATABASE FILE , 直至用到DBEngine.Workspaces(9)或更多, 又會有什麼分別呢?
資料傳送會快些嗎?會用多許多記憶體嗎?多謝
資料傳送會快些嗎?會用多許多記憶體嗎?多謝
HELP~~~How to use Trim Function~!!(編號：1423)
~＞_＜~
Can anyone tell me what's Trim Function & How&When do we use it....???? help... ＞_＜
thx~
Can anyone tell me what's Trim Function & How&When do we use it....???? help... ＞_＜
thx~
連續式報表標籤的製作問題.......(編號：1422)
小弟是一位默默無名的資料庫程式設計師 , 某天 , 老闆叫我使用 VB 來寫出列印連續式報表標籤的程式 , 在所有的程式都完成後 ,
郤碰上印表機列印的問題 , 弟之前是使用 DataReport 下去做 ,
但無論如何設定頁首頁尾的長寬度 , 總是會產生一個問題 --
碰上分頁的時候 , 上一張標籤紙與下一張標籤紙的間距會縮小 ,
一直列印下去的話 , 到最後便產生列印的位置不對 , 小弟也曾試
過將一張標籤紙設定成一頁 , 但仍產生相同的問題 ,(因小弟寫的
是百貨業中的會員系統 , 標籤一列印小則數千張 , 大則數十萬張
, 故必須採用連續報表紙式的標籤紙), 之後也試過 PrintFrom 等
方法 , 但送至列表機後 , 依然有分頁長度逐漸縮短的問題 , 弟
採用的印表機規格是 Epson - 2170C , 也曾在印表機參數直接設定
下手 , 但問題仍然存在 , 請問各位先進 , 這是什麼原因 , 有什麼
方法去解決這種連續式標籤列印的問題 , 懇請指導小弟一下 , 千萬
拜託 , 終身感激 (因這問題已困擾小弟許久 , 老闆催的快發狂 ,
小弟才疏學淺 , 且詢問管道不佳 , 實在無計可施 , 若有幸得解決
之道 , 必報答之 , 謝~~~~~~~~~~~~~~~~~~~~~謝~~~~~~~~~~~嗚~~~~~).
e-mail : boznwang@ms15.hinet.net
行動 : 0927099958
十萬火急 , 敬請若知答案之先賢先輩 , 麻煩聯絡一下小弟 ....
感謝 , 一謝再謝 ......
感激 ,
郤碰上印表機列印的問題 , 弟之前是使用 DataReport 下去做 ,
但無論如何設定頁首頁尾的長寬度 , 總是會產生一個問題 --
碰上分頁的時候 , 上一張標籤紙與下一張標籤紙的間距會縮小 ,
一直列印下去的話 , 到最後便產生列印的位置不對 , 小弟也曾試
過將一張標籤紙設定成一頁 , 但仍產生相同的問題 ,(因小弟寫的
是百貨業中的會員系統 , 標籤一列印小則數千張 , 大則數十萬張
, 故必須採用連續報表紙式的標籤紙), 之後也試過 PrintFrom 等
方法 , 但送至列表機後 , 依然有分頁長度逐漸縮短的問題 , 弟
採用的印表機規格是 Epson - 2170C , 也曾在印表機參數直接設定
下手 , 但問題仍然存在 , 請問各位先進 , 這是什麼原因 , 有什麼
方法去解決這種連續式標籤列印的問題 , 懇請指導小弟一下 , 千萬
拜託 , 終身感激 (因這問題已困擾小弟許久 , 老闆催的快發狂 ,
小弟才疏學淺 , 且詢問管道不佳 , 實在無計可施 , 若有幸得解決
之道 , 必報答之 , 謝~~~~~~~~~~~~~~~~~~~~~謝~~~~~~~~~~~嗚~~~~~).
e-mail : boznwang@ms15.hinet.net
行動 : 0927099958
十萬火急 , 敬請若知答案之先賢先輩 , 麻煩聯絡一下小弟 ....
感謝 , 一謝再謝 ......
感激 ,
imgedit內的圖存檔問題(編號：1421)
各位大哥大姐:
若要將imgedit內的圖存檔使用
ImgEdit1.SaveAs "D:\TEST.bmp", 3, 1
則圖形不會顯示,若改成
ImgEdit1.SaveAs "D:\TEST.bmp", 1
則圖形會顯示,但再以image物件開啟時會有錯誤?
WHY??
若要將imgedit內的圖存檔使用
ImgEdit1.SaveAs "D:\TEST.bmp", 3, 1
則圖形不會顯示,若改成
ImgEdit1.SaveAs "D:\TEST.bmp", 1
則圖形會顯示,但再以image物件開啟時會有錯誤?
WHY??
CommonDialog的CancelError要如何做??(編號：1420)
各位:
CommonDialog有一個屬性是CancelError,就是當user按下取消鍵
就會產生Error...
請問我要製作一個ocx,也想要做到這樣的功能...不知道要如何做?
ps:我在ocx內用 err.raise ,在run時,都會發生"Automation錯誤"
還是不能用 err.raise ??
謝謝!
CommonDialog有一個屬性是CancelError,就是當user按下取消鍵
就會產生Error...
請問我要製作一個ocx,也想要做到這樣的功能...不知道要如何做?
ps:我在ocx內用 err.raise ,在run時,都會發生"Automation錯誤"
還是不能用 err.raise ??
謝謝!
VB7 最新規格先睹為快(編號：1417)
http://www.devx.com/free/newsletters/vb/ednote0215.asp
看了 VB7 最新規格後, 您也會不由得發出讚嘆...
看了 VB7 最新規格後, 您也會不由得發出讚嘆...
PLease ..... 教一下吧!!(編號：1416)
我有一個ListBox
當我點選List 物件內之物件時
會在我的TEXT BOX 中顯示與List物件內相對應的文章(*.TXT 文件)
我不會寫ㄝ...
請問各位阿哥能教教我ㄇ?
--------------------------------------------------------------------------------
發言者： Narcissus 時間： 02/17/00 00:00:39 來自： 163.30.30.118
將 ListBox 所抓到的 ListIndex 翻譯成檔名，
再開啟檔案 (隨便用哪一種，開啟檔案的方法很多) 送到 TextBox 就可以囉！
^_^ 有問題再問吧！...c..c......
--------------------------------------------------------------------------------
發言者： Shadow Knight 時間： 02/18/00 22:07:20 來自： 163.30.53.201
還是有點聽不懂...
可否把原始碼給我ㄋ?
因為...我還是剛學VB 而已
3Q ^^
當我點選List 物件內之物件時
會在我的TEXT BOX 中顯示與List物件內相對應的文章(*.TXT 文件)
我不會寫ㄝ...
請問各位阿哥能教教我ㄇ?
--------------------------------------------------------------------------------
發言者： Narcissus 時間： 02/17/00 00:00:39 來自： 163.30.30.118
將 ListBox 所抓到的 ListIndex 翻譯成檔名，
再開啟檔案 (隨便用哪一種，開啟檔案的方法很多) 送到 TextBox 就可以囉！
^_^ 有問題再問吧！...c..c......
--------------------------------------------------------------------------------
發言者： Shadow Knight 時間： 02/18/00 22:07:20 來自： 163.30.53.201
還是有點聽不懂...
可否把原始碼給我ㄋ?
因為...我還是剛學VB 而已
3Q ^^
徵程式設計師 ( Sorry 幫老闆徵個人 , 因為這裡較多人才)(編號：1414)
熟VB , 最好有經驗
兼職或在家寫也可
本公司主要為幫水利處做 水位,雨量之測量 , 現場有電腦抓取水位值,再以接收程式透過MODEM接收字串資料,並存成隨機檔,循序檔,
以利後續製作報表用 ; 近期會以資料庫儲存,及Internet
PS: 目前程式已撰寫完,且已上線使用一年多 , 所以暫時只需做程
式之維護,修改工作
公司名稱 : 聚恆科技有限公司
公司地址 : 台南縣永康市南台街54巷8-6號
電話 : 06-2422202 0937610476
聯絡人 : 林小姐 (不在則找 周先生 )
兼職或在家寫也可
本公司主要為幫水利處做 水位,雨量之測量 , 現場有電腦抓取水位值,再以接收程式透過MODEM接收字串資料,並存成隨機檔,循序檔,
以利後續製作報表用 ; 近期會以資料庫儲存,及Internet
PS: 目前程式已撰寫完,且已上線使用一年多 , 所以暫時只需做程
式之維護,修改工作
公司名稱 : 聚恆科技有限公司
公司地址 : 台南縣永康市南台街54巷8-6號
電話 : 06-2422202 0937610476
聯絡人 : 林小姐 (不在則找 周先生 )
限制PictureBox的Autosize屬性(編號：1412)
請問如何設定PictureBox的Autosize屬性設為True,但是必須限制
其放大的最大面積
PS:我我在其Resize的事件中寫程式碼控制,但似乎不會觸發.
其放大的最大面積
PS:我我在其Resize的事件中寫程式碼控制,但似乎不會觸發.
Edit Class 的訊息問題(編號：1410)
請教這個問題:
我用 CreateWindowEx() 建立了一個以 Edit class 為基礎的文字控制項, 不過它卻唯獨
無法抓到上下左右四個方向鍵(在 WM_KEYDOWN 不會產生任何訊息,其它按鍵都可以),
但是若是按 Shift+vbKeyUp/down/Left/Right 卻又可以動作, 而且有訊息, 不知該如何解決?
我用 CreateWindowEx() 建立了一個以 Edit class 為基礎的文字控制項, 不過它卻唯獨
無法抓到上下左右四個方向鍵(在 WM_KEYDOWN 不會產生任何訊息,其它按鍵都可以),
但是若是按 Shift+vbKeyUp/down/Left/Right 卻又可以動作, 而且有訊息, 不知該如何解決?
ACCESS 97升級至ACCESS2000時 VB之datagride所面臨的問題(編號：1409)
ACCESS 97升級至ACCESS2000時 我也同時更新了VB之SERVER PACK 3
及DATA ACCESS 2.1,連結是以Microsoft JET 4.0 ,但是為何VB之datagride 控制元件從此就不會顯示資料,也就是說沒有作用,這為何會這樣?請各位高手幫忙一下在下感激不盡
及DATA ACCESS 2.1,連結是以Microsoft JET 4.0 ,但是為何VB之datagride 控制元件從此就不會顯示資料,也就是說沒有作用,這為何會這樣?請各位高手幫忙一下在下感激不盡
使用 filecopy 出現"沒有使用權" ?(編號：1408)
我在程式中當使用
FileCopy "C:\FMS2\DATA\FMS2.MDB", FILENAME1
出現"沒有使用權",是什麼原因,怎樣解決呢,謝謝大家先.
FileCopy "C:\FMS2\DATA\FMS2.MDB", FILENAME1
出現"沒有使用權",是什麼原因,怎樣解決呢,謝謝大家先.
請教怎樣可以將一個檔案傳到另一個目錄?(編號：1407)
如有一個檔案,"c:\abc\test.mdb"
我想將它傳到 "c:\xyz\0219.mdb"
而新檔名是在 text1.text輸入,請大家指教.
我想將它傳到 "c:\xyz\0219.mdb"
而新檔名是在 text1.text輸入,請大家指教.
Multi-client Server??(編號：1405)
各位人兄...,
小弟想問一下 where can download a sample/similar program or get some informations about how to do a multi-clinet server!! in the program clinent can send data to each clinet and clinet can also can send command to server to control Mscomm ka!!
If u know any site or search sites have those program, pls inform me ar!!
多謝大家幫忙.... 小弟感激不盡...
小弟想問一下 where can download a sample/similar program or get some informations about how to do a multi-clinet server!! in the program clinent can send data to each clinet and clinet can also can send command to server to control Mscomm ka!!
If u know any site or search sites have those program, pls inform me ar!!
多謝大家幫忙.... 小弟感激不盡...
問一個DataReport的蠢問題(編號：1403)
我在DataRepor中的詳細資訊中,加入一個資料庫的資訊
可是會發生一筆資料暫了一頁的狀況,
沒有辦法把所有得到的資料用連續的方式印出
就算在下方再多加一次的資料庫的txt,但是還是印同一筆
第二筆的資料還是跳到第二頁才能顯示
要怎麼解決呢?謝謝
可是會發生一筆資料暫了一頁的狀況,
沒有辦法把所有得到的資料用連續的方式印出
就算在下方再多加一次的資料庫的txt,但是還是印同一筆
第二筆的資料還是跳到第二頁才能顯示
要怎麼解決呢?謝謝
如何將PicureBox中的圖存檔?(編號：1402)
利用Common Dialog 將PicureBox中曾修改的圖
(i.e 將圖上下互換,或彩色變黑白)存檔.可是圖
檔沒有存檔.而且檔名存檔時曾修改,可是檔名沒
有改變.
Dialog.Filter = "BMP(*.bmp)!*.bmp"
Dialog.ShowSave
(i.e 將圖上下互換,或彩色變黑白)存檔.可是圖
檔沒有存檔.而且檔名存檔時曾修改,可是檔名沒
有改變.
Dialog.Filter = "BMP(*.bmp)!*.bmp"
Dialog.ShowSave
預儲--update??(編號：1401)
請教各位先進 , 下列有三個程式碼
1) update 預儲程序
2) update 程式碼
3) 結果值放入參數
.)問題: 比如叫如某一銀行資料，更新其英文名稱，程式執行結果是更新全部英文名稱欄位，
請教如何將值放入 預儲的where條件。
1) update 預儲程序
CREATE PROCEDURE co_Bank_Update
@IsExist bit,
@BankNo varchar(07),
@BankNameChinese varchar(60),
@BankNameAbb varchar(30) = NULL,
@BankNameEnglish varchar(70) = NULL
AS
Update tblBankAll
SET 是否存在 = @IsExist,
銀行中文名稱 = @BankNameChinese,
銀行中文簡稱 = @BankNameAbb,
銀行英文名稱 = @BankNameEnglish
Where
銀行編號 = @BankNo
IF @@ERROR ＜＞0
RETURN -1
Else
RETURN 0
2) update 程式碼
Private Sub SaveData_BankAll()
MousePointer = vbHourglass
Set cnn = Nothing
Set cnn = New ADODB.Connection
cnn.Provider = "SQLLOEDB"
cnn.CursorLocation = adUseClient
cnn.Open mstrConnection
Set cmmBank = Nothing
Set cmmBank = New ADODB.Command
With cmmBank
.ActiveConnection = cnn
.CommandType = adCmdStoredProc
Select Case mstrEditMode
Case "新增"
.CommandText = "co_bank_Ins"
Case "修改"
.CommandText = "co_bank_Update"
End Select
Set prmIsExist = .CreateParameter("Param1", adBoolean, adParamInput, 0)
Set prmBankNo = .CreateParameter("Param2", adVarChar, adParamInput, 7)
Set prmBankNameChinese = .CreateParameter("Param3", adVarChar, adParamInput, 60)
Set prmBankNameAbb = .CreateParameter("Param4", adVarChar, adParamInput, 30)
Set prmBankNameEnglish = .CreateParameter("Param5", adVarChar, adParamInput, 70)
' Append all parameters
.Parameters.Append prmIsExist
.Parameters.Append prmBankNo
.Parameters.Append prmBankNameChinese
.Parameters.Append prmBankNameAbb
.Parameters.Append prmBankNameEnglish
Call NewBankParams(cmmBank)
.Execute
End With
MousePointer = vbDefault
End Sub
3) 結果值放入參數
Private Sub NewBankParams(cmmTemp As ADODB.Command)
With cmmTemp
.Parameters(0).Value = chkExist.Value ' 是否存在
.Parameters(1).Value = txtField(0).Text ' 銀行編號
.Parameters(2).Value = txtField(2).Text ' 銀行中文名稱
If Len(txtField(3).Text) ＞ 0 Then
.Parameters(3).Value = txtField(3).Text ' 銀行中文簡稱
Else
.Parameters(3).Value = Null
End If
If Len(txtField(4).Text) ＞ 0 Then
.Parameters(4).Value = txtField(4).Text ' 銀行英文名稱
Else
.Parameters(4).Value = Null
End If
End With
End Sub
1) update 預儲程序
2) update 程式碼
3) 結果值放入參數
.)問題: 比如叫如某一銀行資料，更新其英文名稱，程式執行結果是更新全部英文名稱欄位，
請教如何將值放入 預儲的where條件。
1) update 預儲程序
CREATE PROCEDURE co_Bank_Update
@IsExist bit,
@BankNo varchar(07),
@BankNameChinese varchar(60),
@BankNameAbb varchar(30) = NULL,
@BankNameEnglish varchar(70) = NULL
AS
Update tblBankAll
SET 是否存在 = @IsExist,
銀行中文名稱 = @BankNameChinese,
銀行中文簡稱 = @BankNameAbb,
銀行英文名稱 = @BankNameEnglish
Where
銀行編號 = @BankNo
IF @@ERROR ＜＞0
RETURN -1
Else
RETURN 0
2) update 程式碼
Private Sub SaveData_BankAll()
MousePointer = vbHourglass
Set cnn = Nothing
Set cnn = New ADODB.Connection
cnn.Provider = "SQLLOEDB"
cnn.CursorLocation = adUseClient
cnn.Open mstrConnection
Set cmmBank = Nothing
Set cmmBank = New ADODB.Command
With cmmBank
.ActiveConnection = cnn
.CommandType = adCmdStoredProc
Select Case mstrEditMode
Case "新增"
.CommandText = "co_bank_Ins"
Case "修改"
.CommandText = "co_bank_Update"
End Select
Set prmIsExist = .CreateParameter("Param1", adBoolean, adParamInput, 0)
Set prmBankNo = .CreateParameter("Param2", adVarChar, adParamInput, 7)
Set prmBankNameChinese = .CreateParameter("Param3", adVarChar, adParamInput, 60)
Set prmBankNameAbb = .CreateParameter("Param4", adVarChar, adParamInput, 30)
Set prmBankNameEnglish = .CreateParameter("Param5", adVarChar, adParamInput, 70)
' Append all parameters
.Parameters.Append prmIsExist
.Parameters.Append prmBankNo
.Parameters.Append prmBankNameChinese
.Parameters.Append prmBankNameAbb
.Parameters.Append prmBankNameEnglish
Call NewBankParams(cmmBank)
.Execute
End With
MousePointer = vbDefault
End Sub
3) 結果值放入參數
Private Sub NewBankParams(cmmTemp As ADODB.Command)
With cmmTemp
.Parameters(0).Value = chkExist.Value ' 是否存在
.Parameters(1).Value = txtField(0).Text ' 銀行編號
.Parameters(2).Value = txtField(2).Text ' 銀行中文名稱
If Len(txtField(3).Text) ＞ 0 Then
.Parameters(3).Value = txtField(3).Text ' 銀行中文簡稱
Else
.Parameters(3).Value = Null
End If
If Len(txtField(4).Text) ＞ 0 Then
.Parameters(4).Value = txtField(4).Text ' 銀行英文名稱
Else
.Parameters(4).Value = Null
End If
End With
End Sub
在popup menu中加入圖形有問題(編號：1400)
在cww的例子中有一個在menu中加入圖形的例子.
如果將form的menu設成visible=false,將menu以popup menu的方式叫出,menu上的圖形就看不見.再將form的menu設成visible=true,則popup出來的menu圖形就可以看見. 這是什麼原因?如何解?
如果將form的menu設成visible=false,將menu以popup menu的方式叫出,menu上的圖形就看不見.再將form的menu設成visible=true,則popup出來的menu圖形就可以看見. 這是什麼原因?如何解?
問有關OLE DB Provider for Microsoft Jet(編號：1394)
我們知道若要連結此提供者，必須設定 ConnectionString 屬性的 Provider
引數為：
Microsoft.Jet.OLEDB.3.51或Microsoft.Jet.OLEDB.4.0
而我的疑問是從何得知要設成那一個才是正確的。否則會出現以下訊
息：
"ADO 找不到指定的提供者"
引數為：
Microsoft.Jet.OLEDB.3.51或Microsoft.Jet.OLEDB.4.0
而我的疑問是從何得知要設成那一個才是正確的。否則會出現以下訊
息：
"ADO 找不到指定的提供者"
format 同一數值結果不同？？(編號：1393)
Dim Number As Single
Number = 10
Number = Format(Number ， "###0.0")
Text1.Text = Number
Text2.Text = Format(10, "###0.0")
結果：
Text1.Text=10
Text2.Text=10.0
請問為何不一樣？
Number = 10
Number = Format(Number ， "###0.0")
Text1.Text = Number
Text2.Text = Format(10, "###0.0")
結果：
Text1.Text=10
Text2.Text=10.0
請問為何不一樣？
請問 VB 可不可以得到某一位址的 Data ?(編號：1392)
VB 可不可以得到某一位址的 Data ?
I mean :
Dim pStatus as long
' Myfunc 為 C 寫的 Lib 中的 function
' 其中傳回值 放在由 pStatus 所指到的位置
Call Myfunc(a, b, pStatus)
我要如何把 pStatus 指到的值抓出呢 ?
Thanks very much !!
I mean :
Dim pStatus as long
' Myfunc 為 C 寫的 Lib 中的 function
' 其中傳回值 放在由 pStatus 所指到的位置
Call Myfunc(a, b, pStatus)
我要如何把 pStatus 指到的值抓出呢 ?
Thanks very much !!
DAO 資料不異動(編號：1391)
在 DAO object 中,column data 如果有異動的話,
data 馬上就會存到 database 裡,
如果我現在作一個 button .click 就恢復原來的值.
不知應如何做.
THANK YOU!!
data 馬上就會存到 database 裡,
如果我現在作一個 button .click 就恢復原來的值.
不知應如何做.
THANK YOU!!
對 VB call FPS4/DVF5/CVF6 有興趣者(編號：1390)
新增一篇程式整合技術文章
http://feitsui.hyd.ncku.edu.tw/Paper/paddy99/paddy99.htm
註:
fps4 -＞ Microsoft Fortran PowerStation 4.0
dvf5 -＞ Ditigal Visual Fortran 5.0
cvf6 -＞ Compaq Visual Fortran 6.x
http://feitsui.hyd.ncku.edu.tw/Paper/paddy99/paddy99.htm
註:
fps4 -＞ Microsoft Fortran PowerStation 4.0
dvf5 -＞ Ditigal Visual Fortran 5.0
cvf6 -＞ Compaq Visual Fortran 6.x
VB連vfp dbf,如何update(謝謝)(編號：1389)
我透過odbc連file server上的 visual foxpro dbf,
已可以把資料抓到client,但如果client user修改資料後,
將connection連回該dbf(即已gconn.open成功),
用gres(recordset).update (確定recordset 的資料已修改),
卻沒辦法將該資料update 回dbf file.
請問是語法弄錯了嗎?還是有什麼設定沒設好呢?
(ps:dbf不管是否用exclusive 的方法都無法用update 將資料
改回dbf去)
謝謝協助.
已可以把資料抓到client,但如果client user修改資料後,
將connection連回該dbf(即已gconn.open成功),
用gres(recordset).update (確定recordset 的資料已修改),
卻沒辦法將該資料update 回dbf file.
請問是語法弄錯了嗎?還是有什麼設定沒設好呢?
(ps:dbf不管是否用exclusive 的方法都無法用update 將資料
改回dbf去)
謝謝協助.
如何快速抓取資料庫中特定的資料 ( 急需高手相助!!拜託!! )(編號：1388)
資料庫很龐大
而我要如何從這個龐大的資料庫中快速抓出我需要的資料?
~如果欄位為
日期:姓名
這兩個!
而要在這資料庫中找尋指定姓名並抓出資料, 何種做法最快!!
用db.MoveNext 一筆筆資料比對會不會太慢,
如過資料庫超過100MB.....??
而我要如何從這個龐大的資料庫中快速抓出我需要的資料?
~如果欄位為
日期:姓名
這兩個!
而要在這資料庫中找尋指定姓名並抓出資料, 何種做法最快!!
用db.MoveNext 一筆筆資料比對會不會太慢,
如過資料庫超過100MB.....??
可否在crystal report中使用變數來搜尋(編號：1387)
請問各位大哥
q1; crystal report 如何使用變數來搜尋ㄋ
如果不能的話 應如何做
q2; datareport 雖然可以使用變數來搜尋
但邊出之報表實在太陽春了 不知各位實務上之做法為何
q1; crystal report 如何使用變數來搜尋ㄋ
如果不能的話 應如何做
q2; datareport 雖然可以使用變數來搜尋
但邊出之報表實在太陽春了 不知各位實務上之做法為何
vb資料庫的問題(編號：1386)
請問各位先進!!
小弟使用VisData建立一Access格式之資料庫
，而後使用ADODC連結該資料庫，再以TextBox
連結ADODC中的RecordSource，執行後，若更改
TextBox的內容，若移動Adodc的指標後，vb應會
自動更新TextBox所連結之資料庫欄位的內容，可
是為什麼移動指標後vb老是跟我說
"更新或重整所需鍵欄位資訊不足"，若小弟使
用一Command來執行Adodc1.recordset.update
也是出現一樣的訊息，這是為何呢??
另還有一問題，假使小弟在Adodc1.recordsource中
使用sql語法，例如:
adodc1.recordsource="select [name],[year],[month] _
from test"
但在DataGrid中不要出現Month這個欄位，應要怎麼做
呢??(因Month欄位要給TextBox使用)
望各位先進能不吝指教!!
小弟使用VisData建立一Access格式之資料庫
，而後使用ADODC連結該資料庫，再以TextBox
連結ADODC中的RecordSource，執行後，若更改
TextBox的內容，若移動Adodc的指標後，vb應會
自動更新TextBox所連結之資料庫欄位的內容，可
是為什麼移動指標後vb老是跟我說
"更新或重整所需鍵欄位資訊不足"，若小弟使
用一Command來執行Adodc1.recordset.update
也是出現一樣的訊息，這是為何呢??
另還有一問題，假使小弟在Adodc1.recordsource中
使用sql語法，例如:
adodc1.recordsource="select [name],[year],[month] _
from test"
但在DataGrid中不要出現Month這個欄位，應要怎麼做
呢??(因Month欄位要給TextBox使用)
望各位先進能不吝指教!!
[求救] VB輸出資料到EXCEL,要怎麼做啊(編號：1383)
請教各位先進
小弟寫VB程式得到一些數值資料,想把數據拿到EXCEL做進一步
的分析,可是我只會把數據print在表單上或用印表機印出來
可是大量的數據要Key in到Excel也相當費時麻煩,想請教高手們
有沒有更好的方法,例如將DATA存成EXCEL看的懂的檔案,EXCEL就
可以直接匯入作分析
請幫幫小弟 不勝感激
小弟寫VB程式得到一些數值資料,想把數據拿到EXCEL做進一步
的分析,可是我只會把數據print在表單上或用印表機印出來
可是大量的數據要Key in到Excel也相當費時麻煩,想請教高手們
有沒有更好的方法,例如將DATA存成EXCEL看的懂的檔案,EXCEL就
可以直接匯入作分析
請幫幫小弟 不勝感激
如何轉換acrobat (.pdf)至Access (.mdb)?(編號：1382)
請問各先進..
如何將.pdf檔案轉至mdb資料庫使用vb來寫或其他語言.
可否告知程式碼或物件.
Thank you very much .
如何將.pdf檔案轉至mdb資料庫使用vb來寫或其他語言.
可否告知程式碼或物件.
Thank you very much .
DataReport如何釋放及封裝時的錯誤??(編號：1381)
(一)
我用直接列印下此指令
報表名稱.PrintReport True
結果印是印完了，但報表表單並沒有Unload
後來我改用
報表名稱.PrintReport True
Unload 報表名稱
結果只有印出一頁就結束了(本來是不只一頁的)
(二)
datareport 可以印出每筆資料的圖示檔嗎???
如何將其picture box指定路徑將圖印出呢?
(三)
封裝時遇到二個問題，這要如何解呢??
MSVCRT.DLL存取錯誤
EXPSRV＞DLL註冊檔案錯誤
(四)
如何讓Text Box存入Null呢??
因為我設成是Integer的欄位，結果Text=""時，update就掛了???
救救我吧!!!謝謝啦!!!
我用直接列印下此指令
報表名稱.PrintReport True
結果印是印完了，但報表表單並沒有Unload
後來我改用
報表名稱.PrintReport True
Unload 報表名稱
結果只有印出一頁就結束了(本來是不只一頁的)
(二)
datareport 可以印出每筆資料的圖示檔嗎???
如何將其picture box指定路徑將圖印出呢?
(三)
封裝時遇到二個問題，這要如何解呢??
MSVCRT.DLL存取錯誤
EXPSRV＞DLL註冊檔案錯誤
(四)
如何讓Text Box存入Null呢??
因為我設成是Integer的欄位，結果Text=""時，update就掛了???
救救我吧!!!謝謝啦!!!
太帥了！下一版的VB提拱更多的功能(編號：1374)
下一版的VB終於是完整的OOP語言了。而且可以寫multi-thread的程式，看起來真的是太帥了! 有興趣者請至下列網址看看
http://msdn.microsoft.com/vstudio/nextgen/language.asp
http://msdn.microsoft.com/vstudio/nextgen/language.asp
VB之SQL語法使用ODBC連結資料庫時會發生問題(編號：1373)
我的Access檔是透過ODBC來抓資料的但是現在用sql語法來查詢字串時會發生記憶體不足之現象,我的記憶體是64M,在NT SERVER下作業的,查詢之資料量有5萬多筆
但是如果透過連結的"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "路徑"
就不會有此現象,會不會是ODBC的問題啊?
但是如果透過連結的"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "路徑"
就不會有此現象,會不會是ODBC的問題啊?
vb是否能做到預覽列印的功能?(編號：1372)
因為我要列印的是一篇文字,
希望做出像WORD那樣預覽列印的功能,
知道每一頁的內容,共幾頁等....
不知有沒有什麼CONTROL或FUNCTION可用?
THX!!
希望做出像WORD那樣預覽列印的功能,
知道每一頁的內容,共幾頁等....
不知有沒有什麼CONTROL或FUNCTION可用?
THX!!
data report問題(編號：1371)
如果tbale記錄有以下內容
單位 金額
A 100
B 201
B 202
C 300
要產生報表為
A 100
B 403
C 300
使用datareport+data environment
在environment command1 SQL陳述式中
該如何寫?
單位 金額
A 100
B 201
B 202
C 300
要產生報表為
A 100
B 403
C 300
使用datareport+data environment
在environment command1 SQL陳述式中
該如何寫?
請問那個website或那本書有"完整的維護程式"原始碼?(編號：1370)
大家好:
我有cobol開發經驗,最近也開始學習用vb6.0及*.mdb類資料庫(access97)開發一般維護程式(就是有新增 修改 刪除 查詢 等基本功能).某些書上似有些簡單範例,但在實務上似乎有些不足.不知何處有較紮實的實例可參考.我是覺得有實例一步一步來trace應會學得快些(一方面吸收別人經驗 一方習瞇解指令用法),可否請幫幫忙!謝謝!
我有cobol開發經驗,最近也開始學習用vb6.0及*.mdb類資料庫(access97)開發一般維護程式(就是有新增 修改 刪除 查詢 等基本功能).某些書上似有些簡單範例,但在實務上似乎有些不足.不知何處有較紮實的實例可參考.我是覺得有實例一步一步來trace應會學得快些(一方面吸收別人經驗 一方習瞇解指令用法),可否請幫幫忙!謝謝!
err msg : This datasource does not support SQL queries.(編號：1368)
請問各位大哥:
當我執行 crystal report 時,程式碼如下,產生執行時錯誤
With CrystalReport2
.SQLQuery = "select * from 印刷人員明細"
.Formulas(0) = "par =""" & frmMain.Label1.Caption & """"
.Connect = CrystalConnect
.ReportFileName = App.Path & "\emp.rpt"
.PrintFileName = App.Path & "\AAAAA"
.Action = 1
End With
err msg : This datasource does not support SQL queries.
執行階段錯誤 '20534'
Error detected by database DLL.
黃色區塊標示於 .Action = 1 上
當滑鼠移到其上時則顯示如下
.Action = ＜Property is write-only＞
因為對crystal report 不是頂熟的.不知是哪兒出錯.
請各位前輩幫我看看問題所在!謝謝!
當我執行 crystal report 時,程式碼如下,產生執行時錯誤
With CrystalReport2
.SQLQuery = "select * from 印刷人員明細"
.Formulas(0) = "par =""" & frmMain.Label1.Caption & """"
.Connect = CrystalConnect
.ReportFileName = App.Path & "\emp.rpt"
.PrintFileName = App.Path & "\AAAAA"
.Action = 1
End With
err msg : This datasource does not support SQL queries.
執行階段錯誤 '20534'
Error detected by database DLL.
黃色區塊標示於 .Action = 1 上
當滑鼠移到其上時則顯示如下
.Action = ＜Property is write-only＞
因為對crystal report 不是頂熟的.不知是哪兒出錯.
請各位前輩幫我看看問題所在!謝謝!
小吳你的網站能不能提供關鍵字搜尋的功能?!!(編號：1366)
小吳你好:
這裡是最好的VB討論中心,
文章好多,
可是因為太多了,找資料很難找,
請問能不能提供關鍵字搜尋的功能,
方便找出要看的資料,
一個建議,謝謝!
這裡是最好的VB討論中心,
文章好多,
可是因為太多了,找資料很難找,
請問能不能提供關鍵字搜尋的功能,
方便找出要看的資料,
一個建議,謝謝!
如何讀取在瀏覽器中輸入網址那一欄的字串?(編號：1365)
如IE中,在你輸入網址那一各欄位內的字串,
如何用VB把他抓出來?
用API還是其他方法?
這個問題較難,如果有知道的大哥,請賜教!
thanks!
如何用VB把他抓出來?
用API還是其他方法?
這個問題較難,如果有知道的大哥,請賜教!
thanks!
vb6.0製作setup之問題(編號：1364)
hi~您好!請各位幫幫我吧
我用vb6.0寫了一支應用程式.
其中有read and write sql 資料庫
我是用ADO方式
我己把程式完成了,也用VB6.0封裝部屬精靈要作SETUP程式
發現作好時,拿到沒有灌VB6.0電腦上執行SETUP
裝完之後程式一樣沒辦法使用也
好像用一些DLL檔少了
最後我試著把一些 DLE_DB的DLL COPY 過去
還是沒辦法RUN我的程式
最後的訊息出現 3706 ADO Could not find the specified provider
及3709 應用程式或物件定義上錯誤
這到底是哪出了問題
謝謝大家
我用vb6.0寫了一支應用程式.
其中有read and write sql 資料庫
我是用ADO方式
我己把程式完成了,也用VB6.0封裝部屬精靈要作SETUP程式
發現作好時,拿到沒有灌VB6.0電腦上執行SETUP
裝完之後程式一樣沒辦法使用也
好像用一些DLL檔少了
最後我試著把一些 DLE_DB的DLL COPY 過去
還是沒辦法RUN我的程式
最後的訊息出現 3706 ADO Could not find the specified provider
及3709 應用程式或物件定義上錯誤
這到底是哪出了問題
謝謝大家
VB 資料庫的問題(編號：1362)
請問為何使用data控制項時，執行時卻跟我說
"找不到新的ISAM"且使用VisData時新增或開啟除了Access格式的資
料庫外vb也都問我"請輸入新ISAM的目錄"請問這是為何??
另市面上許多vb 6.0的書都還有提到DBGrid，可是為什麼都找不到
它呢??
"找不到新的ISAM"且使用VisData時新增或開啟除了Access格式的資
料庫外vb也都問我"請輸入新ISAM的目錄"請問這是為何??
另市面上許多vb 6.0的書都還有提到DBGrid，可是為什麼都找不到
它呢??
陣列處理到一半不見了????(編號：1361)
各位高手請問有沒有遇到如下奇怪的問題
我在MSCOMM_onComm()事件下 call 一個process A (有傳遞一組
陣列）然後又在 Process A 中再Call 一個Process B (也有傳遞
一組陣列）而mscomm_oncomm 及 process A, Process B ,的
程式都不算短
訊號是連續進來的，在mscomm_oncomm()事件時分成兩組陣列
第一組陣列 call A 再Call B 時都沒問題，但第二組陣列
Call A 再Call B時執行到一半卻不見了？？？？天啊我偵錯
了老半天就是找不到原因？？？？奇怪？
請問各位高手是否遇過這樣的問題？或有什麼方法可以解決！
我在MSCOMM_onComm()事件下 call 一個process A (有傳遞一組
陣列）然後又在 Process A 中再Call 一個Process B (也有傳遞
一組陣列）而mscomm_oncomm 及 process A, Process B ,的
程式都不算短
訊號是連續進來的，在mscomm_oncomm()事件時分成兩組陣列
第一組陣列 call A 再Call B 時都沒問題，但第二組陣列
Call A 再Call B時執行到一半卻不見了？？？？天啊我偵錯
了老半天就是找不到原因？？？？奇怪？
請問各位高手是否遇過這樣的問題？或有什麼方法可以解決！
資料庫欄位是否不能使用陣列迴圈方式.讀取或回存!?(編號：1360)
再次請教各位先進大哥們:
資料庫欄位是否不能使用陣列迴圈方式.讀取或回存...!?
我撰寫的方式如下:
For I = 1 To 120
Text(I).Text = DataBase.Recordset.RecKey(I)
Next I
或
For J = 1 To 120
DataBase.Recordset("RecKey(J)") = Text(J).Text
Next J
執行後會出現如下訊息:
執行階段錯誤'438'
物件不支援此屬性或方法
以上是用ACCESS資料庫.欄位名稱我是設RecKey(1) .RecKey(2) .RecKey(3) ....... RecKey(80)
如果真的不能使用陣列迴圈方式做有沒有其他更簡捷的方式做
我不想寫120 行的敘述將欄位值一一讀取或回存..
也因為資料會隨著資料庫而變動. 便無法在物件屬性上設固定的 RecordSource
請指點我一二. 謝謝. 感激不盡.....
資料庫欄位是否不能使用陣列迴圈方式.讀取或回存...!?
我撰寫的方式如下:
For I = 1 To 120
Text(I).Text = DataBase.Recordset.RecKey(I)
Next I
或
For J = 1 To 120
DataBase.Recordset("RecKey(J)") = Text(J).Text
Next J
執行後會出現如下訊息:
執行階段錯誤'438'
物件不支援此屬性或方法
以上是用ACCESS資料庫.欄位名稱我是設RecKey(1) .RecKey(2) .RecKey(3) ....... RecKey(80)
如果真的不能使用陣列迴圈方式做有沒有其他更簡捷的方式做
我不想寫120 行的敘述將欄位值一一讀取或回存..
也因為資料會隨著資料庫而變動. 便無法在物件屬性上設固定的 RecordSource
請指點我一二. 謝謝. 感激不盡.....
請問要如何從網路上讀取一文字檔呢??(編號：1358)
請問要如何從網路上讀取一文字檔呢??
我想在我的程式中加一個最新消息的TextBox
要如何從網路上將我放上去的文字檔,被我寫的程式從網路上抓下來
拜託啦
我想在我的程式中加一個最新消息的TextBox
要如何從網路上將我放上去的文字檔,被我寫的程式從網路上抓下來
拜託啦
顯示文件之方法問題...(編號：1357)
我有一個ListBox
當我點選List 物件內之物件時
會在我的TEXT BOX 中顯示與List物件內相對應的文章(*.TXT 文件)
我不會寫ㄝ...
請問各位阿哥能教教我ㄇ?
當我點選List 物件內之物件時
會在我的TEXT BOX 中顯示與List物件內相對應的文章(*.TXT 文件)
我不會寫ㄝ...
請問各位阿哥能教教我ㄇ?
[VB磁碟檔案]如何列舉指定目錄下的檔名?(編號：1355)
我最近想要讓USER自行copY資料到指定目錄以方便管理..
(以LISTBOX列出選單..)
請問 列舉該目錄下檔案的正確方法為何?
謝謝..
(以LISTBOX列出選單..)
請問 列舉該目錄下檔案的正確方法為何?
謝謝..
如何在撰寫的Menu旁加上小圖示？(編號：1353)
我用VB6.0寫表單Menu時，發現整個Menu都是文字，
不像Word有小圖示在旁陪襯，
列如：檔案-＞開啟新檔（旁邊有一個小圖示），
可是找了好幾本書，都沒有談到該如何運作，
希望哪位網友知道的，告知小弟，
才不會讓表單Menu那麼呆板，
謝謝！
不像Word有小圖示在旁陪襯，
列如：檔案-＞開啟新檔（旁邊有一個小圖示），
可是找了好幾本書，都沒有談到該如何運作，
希望哪位網友知道的，告知小弟，
才不會讓表單Menu那麼呆板，
謝謝！
為何列印會出現錯誤(編號：1352)
我封裝完程式，於win 95系統使用，但是發生奇怪的事，就是一台的系統沒有問題，但是另一台卻在列印呼叫 CommandDialog時出現了錯誤訊息"執行階段錯誤'28670'"，希望有高手能幫我解答
MS SQL Transact-SQL Stored Procedures??(編號：1351)
請教各位先進，資料表某些欄位允許空值(null),是否如下列預儲程序裡的參數段必須宣告 = NULL,若不，是否有其他注意之處。謝謝。(現在是參考原文書如此做，不知其詳)
/*設定多個區域變數，用來配合資料表格欄位所設定的區域變數，*/
/*同時設定符合對應的資料表欄位的資料型態與長度。*/
CREATE PROCEDURE co_Bank_Ins
@IsExist bit,
@BankNo varchar(03),
@BankNameChinese varchar(60),
@BankNameAbb varchar(30) = NULL,
@BankNameEnglish varchar(70) = NULL,
@BankClassify varchar(02),
@BusinessNo varchar(07) = NULL,
@www varchar(50) = NULL,
@email varchar(50) = NULL,
@BAN varchar(08) = NULL,
@Validiation varchar(08) = NULL,
@IsCross bit,
@Cross varchar(02) = NULL,
@SWIFT varchar(10) = NULL,
@TELEX varchar(10 )= NULL,
@GovCode varchar(10) = NULL,
@Remark text = NULL,
@DateCreated datetime = NULL,
@DateModified datetime = NULL
AS
BEGIN TRAN
INSERT tblBankAll
VALUES (
@IsExist,
@BankNo,
@BankNameChinese,
@BankNameAbb,
@BankNameEnglish,
@BankClassify,
@BusinessNo,
@www,
@email,
@BAN,
@Validiation,
@IsCross,
@Cross,
@SWIFT,
@TELEX,
@GovCode,
@Remark,
@DateCreated,
@DateModified)
COMMIT TRAN
IF @@ERROR ＜＞ 0
RETURN -1
ELSE
RETURN 0
/*設定多個區域變數，用來配合資料表格欄位所設定的區域變數，*/
/*同時設定符合對應的資料表欄位的資料型態與長度。*/
CREATE PROCEDURE co_Bank_Ins
@IsExist bit,
@BankNo varchar(03),
@BankNameChinese varchar(60),
@BankNameAbb varchar(30) = NULL,
@BankNameEnglish varchar(70) = NULL,
@BankClassify varchar(02),
@BusinessNo varchar(07) = NULL,
@www varchar(50) = NULL,
@email varchar(50) = NULL,
@BAN varchar(08) = NULL,
@Validiation varchar(08) = NULL,
@IsCross bit,
@Cross varchar(02) = NULL,
@SWIFT varchar(10) = NULL,
@TELEX varchar(10 )= NULL,
@GovCode varchar(10) = NULL,
@Remark text = NULL,
@DateCreated datetime = NULL,
@DateModified datetime = NULL
AS
BEGIN TRAN
INSERT tblBankAll
VALUES (
@IsExist,
@BankNo,
@BankNameChinese,
@BankNameAbb,
@BankNameEnglish,
@BankClassify,
@BusinessNo,
@www,
@email,
@BAN,
@Validiation,
@IsCross,
@Cross,
@SWIFT,
@TELEX,
@GovCode,
@Remark,
@DateCreated,
@DateModified)
COMMIT TRAN
IF @@ERROR ＜＞ 0
RETURN -1
ELSE
RETURN 0
MSN Audio 是灌哪套軟體所送的(編號：1350)
因為在撰寫點對點語音程式中發現
MSN Audio 可以將 8000 hz, 單聲道壓縮到平均每秒 1025 Bytes , 相較 GSM 610, ADPCM, PCM (1625, 4096, 8000) 為小!
而 MPEG LAYER 3 雖然每秒 1000 Bytes, 但是撥放要技術授權 (我試過錄音可以成功)...
那 MSN Audio 是安裝哪套軟體出來的呢? 是 NetMeeting 嗎?
可以用自己寫的程式為 MSN Audio 註冊嗎?
ps. 或者將註冊檔中關於 MSN Audio 的部分人工註冊到其他電腦?
MSN Audio 可以將 8000 hz, 單聲道壓縮到平均每秒 1025 Bytes , 相較 GSM 610, ADPCM, PCM (1625, 4096, 8000) 為小!
而 MPEG LAYER 3 雖然每秒 1000 Bytes, 但是撥放要技術授權 (我試過錄音可以成功)...
那 MSN Audio 是安裝哪套軟體出來的呢? 是 NetMeeting 嗎?
可以用自己寫的程式為 MSN Audio 註冊嗎?
ps. 或者將註冊檔中關於 MSN Audio 的部分人工註冊到其他電腦?
錯誤的 COM 觀念(編號：1349)
小吳 不好意思 !
以下是自己有感而發 ,主動貼上一些個人意見,抱歉佔了版面 !
最近看一些人寫的 COM 元件,總是感覺方向不太對,似乎只是傳統寫法
用 ActiveX Dll方式封裝而已 .沒有真正應用到 COM 的精神......
舉例: 他想作一個有關客戶資料的COM元件.....
作法如下:
宣告一個 NEW A ADODB.RecordSet屬性
.....
CN.OPEN
.....
RS.OPEN
.....
並提供 RS MOVENext
MoveFirst 等方法供使用者呼叫
他很高興並經測試後無誤 ,表示已完成 N-tier方式設計系統...
........
個人看了之後......感覺他只是在設計一個有客戶資料的 ADO 而已,
有COM的外表,也可在COM的環境下執行,但卻不是 COM
因為 COM 的考量在於分散式處理能力及
避免減少網路傳輸
他應改成將 RS 傳回使用者端 由使用者端負責上下筆 IO動作
COM 若以 StateLess觀念 此元件不應該保留 Recordset
因為在 MTS中
可能會因為 元件Pooling或 資源Pooling等其它因素
或交易狀態中成功與否 會造成 元件消滅
如此會導致你系統不知如何 Debug
以上是自己的感想,其實最主要是希望有同好架設專門討論 OCX或COM之網站,我會每天丟一些 有關OCX設計及COM實作 之文章上去........
希望此網站能早日誕生......
以下是自己有感而發 ,主動貼上一些個人意見,抱歉佔了版面 !
最近看一些人寫的 COM 元件,總是感覺方向不太對,似乎只是傳統寫法
用 ActiveX Dll方式封裝而已 .沒有真正應用到 COM 的精神......
舉例: 他想作一個有關客戶資料的COM元件.....
作法如下:
宣告一個 NEW A ADODB.RecordSet屬性
.....
CN.OPEN
.....
RS.OPEN
.....
並提供 RS MOVENext
MoveFirst 等方法供使用者呼叫
他很高興並經測試後無誤 ,表示已完成 N-tier方式設計系統...
........
個人看了之後......感覺他只是在設計一個有客戶資料的 ADO 而已,
有COM的外表,也可在COM的環境下執行,但卻不是 COM
因為 COM 的考量在於分散式處理能力及
避免減少網路傳輸
他應改成將 RS 傳回使用者端 由使用者端負責上下筆 IO動作
COM 若以 StateLess觀念 此元件不應該保留 Recordset
因為在 MTS中
可能會因為 元件Pooling或 資源Pooling等其它因素
或交易狀態中成功與否 會造成 元件消滅
如此會導致你系統不知如何 Debug
以上是自己的感想,其實最主要是希望有同好架設專門討論 OCX或COM之網站,我會每天丟一些 有關OCX設計及COM實作 之文章上去........
希望此網站能早日誕生......
DataReport 如何畫欄位的邊框?(編號：1348)
請問:
在欄位RptTextBox中BorderStyle設為 1-rptBSSolid,
如此會出現在框線的報表,
但若資料中的某幾個欄位是空值,則該欄位不會畫出邊框,
請問要如何才能畫出
謝謝
在欄位RptTextBox中BorderStyle設為 1-rptBSSolid,
如此會出現在框線的報表,
但若資料中的某幾個欄位是空值,則該欄位不會畫出邊框,
請問要如何才能畫出
謝謝
一個困難的VB ,SQL查詢式問題(編號：1343)
A1 Recordset 資料(Set A1= dbs.OpenRecordse("select * from 訂單明細 where 訂單明細.訂單單號="'&txtField(1).tex&t"'")
假如A1所選擇的資料如下
A,B,C,D,E,F
B1 Recordset 資料(Set B1=dbs.OpenRecordse("select * from 收料明細 where 收料明細. 收料單號="'&txtField(1).te
假如B1所選擇的資料如下
A,B
現在由A1及B1兩個Recordset中選擇或逐一比較(A1及B1)產生新的 Recordset(或是字串資料)假如C1所要的內容選擇資料內容如下
C,D,E,F
除了兩個Recordset(A1及B1)內容逐一比較之外還有什麼方法得到所要的內容C1
一個想到沒辦法的人留
除了A1,B2內容逐一比較得到C1的內容之外還有什麼好方法
假如A1所選擇的資料如下
A,B,C,D,E,F
B1 Recordset 資料(Set B1=dbs.OpenRecordse("select * from 收料明細 where 收料明細. 收料單號="'&txtField(1).te
假如B1所選擇的資料如下
A,B
現在由A1及B1兩個Recordset中選擇或逐一比較(A1及B1)產生新的 Recordset(或是字串資料)假如C1所要的內容選擇資料內容如下
C,D,E,F
除了兩個Recordset(A1及B1)內容逐一比較之外還有什麼方法得到所要的內容C1
一個想到沒辦法的人留
除了A1,B2內容逐一比較得到C1的內容之外還有什麼好方法
MaskedEdit的格式化控制項Text可做到嗎?(編號：1342)
使用ADO物件開啟，使用MaskedEdit卻無法正常動作
是不是有那些屬性要注意?
又Text可做到嗎?
如 (03)-1234-567
是不是有那些屬性要注意?
又Text可做到嗎?
如 (03)-1234-567
再問: 如何可以在VB RUN 一個SQL server 裡的 stored procedure?(編號：1337)
現在想在SQL SERVER 裡寫一個stored procedure ,
用以定期讓SQL server 定期更新, 刪除一些table 的資料.
請問如何些這句command ?
多謝你的幫忙
用以定期讓SQL server 定期更新, 刪除一些table 的資料.
請問如何些這句command ?
多謝你的幫忙
如何用ADO 只開一個SQL connection 然後開多個不同資料的records(編號：1336)
現在我的coding 如下:
Dim con as ADODB.connection
Set con = New ADODB.connection
Dim rs as ADODB.recordset
Set rs = New ADODB.recordset
Dim sql as string
sql = "Select * From Table"
con.Open
rs.Open sql, con, ...
請問可否給我一個類似的example?
另外也想問一問, ADODB.command 的 activeconnection 的用處是否只在於
可以 execute SQL command, 例如update table, Insert Into table 等等?
多謝指教...
Dim con as ADODB.connection
Set con = New ADODB.connection
Dim rs as ADODB.recordset
Set rs = New ADODB.recordset
Dim sql as string
sql = "Select * From Table"
con.Open
rs.Open sql, con, ...
請問可否給我一個類似的example?
另外也想問一問, ADODB.command 的 activeconnection 的用處是否只在於
可以 execute SQL command, 例如update table, Insert Into table 等等?
多謝指教...
DB2........?(編號：1334)
請問各位先進:
在 VB6 使用 ADO的方式連結 IBM DB2資料庫,但在 SELECT 出具有 DECIMAL 的資料型態時卻發生錯誤,無法搜尋出資料...
而使用 RDO 時卻不會出現錯誤...
請各位先進若知道此問題時可教教小弟
謝謝!
在 VB6 使用 ADO的方式連結 IBM DB2資料庫,但在 SELECT 出具有 DECIMAL 的資料型態時卻發生錯誤,無法搜尋出資料...
而使用 RDO 時卻不會出現錯誤...
請各位先進若知道此問題時可教教小弟
謝謝!
請問有誰知道怎麼用VB載入超過256色的圖還保持原來的顏色？(編號：1333)
唉，搞了半天，VB的LoadPicture竟然只支援到256色，
不知道哪位高手曉得，要怎樣像VB支援那麼多圖形格式，
載入超過256色以上的圖，卻不會在載入時被轉換成256以下？
不知道哪位高手曉得，要怎樣像VB支援那麼多圖形格式，
載入超過256色以上的圖，卻不會在載入時被轉換成256以下？
煩請 SPENCER YANG(編號：1332)
您好! 我是yellin
對不起!先前之問題再請教!
我是以ADO 方式的dataenvironment 的SQL command 連結
故前輩 SPENCER YANG 告知之方式可以refresh,
但 DataGrid 的表單依然無更新動作
example: DataGrid.DatasSourece 指向 DataeEnvironment
我的表單沒有放置ADODC 物件
我試過DataGrid.refresh
謝謝!
對不起!先前之問題再請教!
我是以ADO 方式的dataenvironment 的SQL command 連結
故前輩 SPENCER YANG 告知之方式可以refresh,
但 DataGrid 的表單依然無更新動作
example: DataGrid.DatasSourece 指向 DataeEnvironment
我的表單沒有放置ADODC 物件
我試過DataGrid.refresh
謝謝!
請各位幫幫忙...t.k.s.(編號：1329)
不知否有有關在2台電腦中互
相傳送資料(winsock)或有其它方法之程式mail給小弟...萬分感激...ttt.kkk.sss.
(vb5.0 sp3 , win98)
相傳送資料(winsock)或有其它方法之程式mail給小弟...萬分感激...ttt.kkk.sss.
(vb5.0 sp3 , win98)
如何複製Recordset(編號：1327)
我使用disconnection取得Recordset,但我不在乎別人是否變更了資料,而我不希望使用binding來更新,所以我希望保留一份一開始得到的Recordset,來和變更過後的資料比較,用以決定那些記錄要刪除,更新或新增記錄,set oldrs=rs,會指向同一個Recordset,要如何複製Recordset呢?這是為了能使用Grid來維護,而又不要和DB bind在一起,如果您有更好的想法可以告訴我嗎?
User Defined Variable(編號：1325)
Dear All,
I am having a problem regarding user defined variables:
Three user defined variables are used in my program:
-------------------------------------------------------
Type Predicate1 'One-parameter Predicate
Name As String
Para1 As String
End Type
Type Predicate2 'Two-parameter Predicate
Name As String
Para1 As Predicate1
Para2 As Predicate1
End Type
Type Clause
N As Integer
Atoms(1 To 10) As ?! 'Here is the problem. Each element in this 'array is either Predicate1 or
'Predicate2. How should I declare the variable
'type here?!
Values(1 To 10) As Integer
End Type
-------------------------------------------------------
Any idea is great appreciated. Thanks.
Jesse Rau
I am having a problem regarding user defined variables:
Three user defined variables are used in my program:
-------------------------------------------------------
Type Predicate1 'One-parameter Predicate
Name As String
Para1 As String
End Type
Type Predicate2 'Two-parameter Predicate
Name As String
Para1 As Predicate1
Para2 As Predicate1
End Type
Type Clause
N As Integer
Atoms(1 To 10) As ?! 'Here is the problem. Each element in this 'array is either Predicate1 or
'Predicate2. How should I declare the variable
'type here?!
Values(1 To 10) As Integer
End Type
-------------------------------------------------------
Any idea is great appreciated. Thanks.
Jesse Rau
急!!請問VBA巨集的控制excel表格的語法(編號：1324)
請教一下
我用excel的巨集想要把某一欄的儲存格格式包括框線、公式、值
複製下來，貼到另一欄
用了以下的語法
Selection.Copy
Selection.PasteSpecial Paste:=xlFormulas
可是怎麼改，就是貼不上格式，why??
請問誰可以告訴我
那裡出錯了？
謝謝！
我用excel的巨集想要把某一欄的儲存格格式包括框線、公式、值
複製下來，貼到另一欄
用了以下的語法
Selection.Copy
Selection.PasteSpecial Paste:=xlFormulas
可是怎麼改，就是貼不上格式，why??
請問誰可以告訴我
那裡出錯了？
謝謝！
關於建立license package檔案(.lpk) 的工具(編號：1323)
小弟想建立.lpk的檔案需要Lpk_Tool.exe檔
但因原版光碟不在身邊，
所以想請各位高手大人們可否告知那裡可以找到並下載，
謝謝！感激不盡。
但因原版光碟不在身邊，
所以想請各位高手大人們可否告知那裡可以找到並下載，
謝謝！感激不盡。
how to use shell to open a exe file(編號：1321)
我想知如何用shell來open a exe file
the exe file is compile by visual C++ , the function of this exe file is to print a word "hello!!"
因為我唔知點用shell 呀!!
高人們請出手相助
thx
the exe file is compile by visual C++ , the function of this exe file is to print a word "hello!!"
因為我唔知點用shell 呀!!
高人們請出手相助
thx
誰可以幫我除錯一下...謝謝(編號：1320)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
DataReport1.Show
End Sub
Private Sub Command2_Click()
rs.Close
cn.Close
Unload Me
End Sub
Private Sub Form_Load()
Dim connstr As String
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & " \ball.mdb"
cn.Open connstr
sql = "Select * from man where man"
rs.CursorLocation = adUseClient
If Option1.Value Then
sql = "SELECT man.fno, man.name, man.tel, man.bbb, man.addr " & _
"From man WHERE (((man.sty)=2))" '列印貴賓
ElseIf Option2.Value Then
sql = "SELECT man.fno, man.name, man.tel, man.bbb, man.addr " & _
"From man WHERE (((man.sty)=1))" '列印會員
Else
sql = "SELECT man.fno, man.name, man.tel, man.bbb, man.addr " & _
"From man WHERE (((man.sty) Between 1 And 2))"
End If
rs.Open sql, cn
Set DataReport1.DataSource = rs
With DataReport1.Sections("section1")
.Controls("text1").DataField = "fno"
.Controls("text2").DataField = "name"
.Controls("text3").DataField = "tel"
.Controls("text4").DataField = "bbb"
.Controls("text5").DataField = "addr"
End With
rs.Close
Set rs = Nothing
End Sub
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
DataReport1.Show
End Sub
Private Sub Command2_Click()
rs.Close
cn.Close
Unload Me
End Sub
Private Sub Form_Load()
Dim connstr As String
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & " \ball.mdb"
cn.Open connstr
sql = "Select * from man where man"
rs.CursorLocation = adUseClient
If Option1.Value Then
sql = "SELECT man.fno, man.name, man.tel, man.bbb, man.addr " & _
"From man WHERE (((man.sty)=2))" '列印貴賓
ElseIf Option2.Value Then
sql = "SELECT man.fno, man.name, man.tel, man.bbb, man.addr " & _
"From man WHERE (((man.sty)=1))" '列印會員
Else
sql = "SELECT man.fno, man.name, man.tel, man.bbb, man.addr " & _
"From man WHERE (((man.sty) Between 1 And 2))"
End If
rs.Open sql, cn
Set DataReport1.DataSource = rs
With DataReport1.Sections("section1")
.Controls("text1").DataField = "fno"
.Controls("text2").DataField = "name"
.Controls("text3").DataField = "tel"
.Controls("text4").DataField = "bbb"
.Controls("text5").DataField = "addr"
End With
rs.Close
Set rs = Nothing
End Sub
兩個進階問題(編號：1319)
1.請問如何使通訊埠在背景執行,也就是在不影響其他程式的狀況下
使用通訊埠收發資料,因為vb內建的mscomm無法在背景執行
2.如果我有一張表單(如履歷表)怎樣才能使輸入畫面和書面表格相
同(不使用DHTML)
使用通訊埠收發資料,因為vb內建的mscomm無法在背景執行
2.如果我有一張表單(如履歷表)怎樣才能使輸入畫面和書面表格相
同(不使用DHTML)
一個和null有關的問題(編號：1316)
如下範例:
在custom table中之birthday欄位是date型態,如今欲將birthday填入null值,請問要如何設定m_birthday之值
曾經以m_birthday=null設定,執行至cmd.Execute仍會出現錯誤訊息如右:準則運算式的資料類型不符合
範例:
dim m_birthday as variant
mysql = "update custom set birthday='" & m_birthday & "'"
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = mysql
cmd.Execute
在custom table中之birthday欄位是date型態,如今欲將birthday填入null值,請問要如何設定m_birthday之值
曾經以m_birthday=null設定,執行至cmd.Execute仍會出現錯誤訊息如右:準則運算式的資料類型不符合
範例:
dim m_birthday as variant
mysql = "update custom set birthday='" & m_birthday & "'"
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = mysql
cmd.Execute
限制使用者更改from至某一特定的大小.(編號：1315)
您好:
小弟是VB新手,目前要用VB做一個使用者介面,使用 mediaplayer control 來播放各種格式的 streem,這樣自己就擁有一個可以播VCD,MPEG,MP3,MIDI的播放器.
但在 FORM 有一個問題一直找不到解決的方法,就是要讓使用者可以用滑鼠拉大縮小視窗的同時,限制 FORM 最小不能小於特定大小,最大不能大於特定的大小.
不知先進能否告之我該如何解決此一問題. 非常感謝!!
小弟是VB新手,目前要用VB做一個使用者介面,使用 mediaplayer control 來播放各種格式的 streem,這樣自己就擁有一個可以播VCD,MPEG,MP3,MIDI的播放器.
但在 FORM 有一個問題一直找不到解決的方法,就是要讓使用者可以用滑鼠拉大縮小視窗的同時,限制 FORM 最小不能小於特定大小,最大不能大於特定的大小.
不知先進能否告之我該如何解決此一問題. 非常感謝!!
如何在封裝專案時,將crystal report的 .rpt一併加入(編號：1311)
我的意思是我們在setup 程式時會自動將 .rpt一起copy到
Program Files裡面,或是 "指定的目錄" .
是不是在setup.ini直接寫指令(要如何寫呢??)
還是在封裝時,有特殊的設定??
請問前輩們都是如何處理 .rpt呢??
謝謝!!
Program Files裡面,或是 "指定的目錄" .
是不是在setup.ini直接寫指令(要如何寫呢??)
還是在封裝時,有特殊的設定??
請問前輩們都是如何處理 .rpt呢??
謝謝!!
請問mailto:XXX參數語法如何附檔？(編號：1308)
請問大家我用shellexecute去執行mailto:simon傳送mail，
可以正常執行，但我不知如何讓此mail附上檔案，其參數語
法該如何下，或那邊可找到說明，請大家幫忙，謝謝！
可以正常執行，但我不知如何讓此mail附上檔案，其參數語
法該如何下，或那邊可找到說明，請大家幫忙，謝謝！
小吳 再貼一次 成大醫院資訊室招考(編號：1306)
成大醫院資訊室招考
詳見：http://www.hosp.ncku.edu.tw/~cww/exam.htm
補充說明：
基本資格：
資訊電子計算機科學本科系或相關科系(電機、電子、工科)研究所
畢業相關科系需具備擬任職務一年工作經驗
錄取後為四等技術師(A)之資格(非約聘人員，福利與正式公務人員完全相
同)
薪資：若沒有在其他公家機構工作之年資累積，月薪約5萬5千(詳細數字
要洽本院人事室)
其工作性質：
以VB為前端，發展Client/Server架構的系統，後端是HP UNIX上的Informix，
另需與Tandem上舊有系統做溝通、整合(以C/4GL/VB/COBOL發展程式做整合)。
未來亦會走向Brower為前端的系統。
請先準備好：
1.大學、研究所的成績單、畢業證書(正本與影本)
2.若當過兵者準備退伍令
3.一年以上的工作證明
4.身份證、一吋近照
5.不受理通信報名
詳見：http://www.hosp.ncku.edu.tw/~cww/exam.htm
補充說明：
基本資格：
資訊電子計算機科學本科系或相關科系(電機、電子、工科)研究所
畢業相關科系需具備擬任職務一年工作經驗
錄取後為四等技術師(A)之資格(非約聘人員，福利與正式公務人員完全相
同)
薪資：若沒有在其他公家機構工作之年資累積，月薪約5萬5千(詳細數字
要洽本院人事室)
其工作性質：
以VB為前端，發展Client/Server架構的系統，後端是HP UNIX上的Informix，
另需與Tandem上舊有系統做溝通、整合(以C/4GL/VB/COBOL發展程式做整合)。
未來亦會走向Brower為前端的系統。
請先準備好：
1.大學、研究所的成績單、畢業證書(正本與影本)
2.若當過兵者準備退伍令
3.一年以上的工作證明
4.身份證、一吋近照
5.不受理通信報名
DLL與ActiveX - OCX 的迷思(編號：1304)
VB的功能強大,尤以ActiveX-OCX為是,但若沒有適當的註冊,或者遇到了版本的問題可就頭大了,是否有其解覺的方式!?
在這情況下,動態聯結程式庫DLL的選擇於是出現了,但DLL與OCX何為優何為劣,誰能解說一下!!
目前小弟正以DLL取代OCX的使用,但DLL大多沒有文件參考,是否有誰能知到取得DLL的內部參數與函式的方法,或者有程式能作到!?
而有那些站台有供DLL與說明文件供人下載,如壓縮的DLL(arj,rar,zip,cab,lha,ace,...),影像的DLL
(VB內建所不能看的,如png,tif,pcx,dib,tga,...)希望大家多多指教
,具我所知國內此類的資源還十分缺少,國外便蠻多的,如日本的壓縮DLL元件就蠻多的(可惜看不懂日文),希望大家能踴躍的列出曾去過或聽過的一些站台,或者若有以上的DLL元件也歡迎寄給我指教(最好有技術文件或範例),多謝大家幫忙!!
在這情況下,動態聯結程式庫DLL的選擇於是出現了,但DLL與OCX何為優何為劣,誰能解說一下!!
目前小弟正以DLL取代OCX的使用,但DLL大多沒有文件參考,是否有誰能知到取得DLL的內部參數與函式的方法,或者有程式能作到!?
而有那些站台有供DLL與說明文件供人下載,如壓縮的DLL(arj,rar,zip,cab,lha,ace,...),影像的DLL
(VB內建所不能看的,如png,tif,pcx,dib,tga,...)希望大家多多指教
,具我所知國內此類的資源還十分缺少,國外便蠻多的,如日本的壓縮DLL元件就蠻多的(可惜看不懂日文),希望大家能踴躍的列出曾去過或聽過的一些站台,或者若有以上的DLL元件也歡迎寄給我指教(最好有技術文件或範例),多謝大家幫忙!!
Visual BASIC 5 的 IDE 被我這麼搞給搞壞了(編號：1303)
VB5的 IDE 並不像 Office一樣可以自訂要那些按鈕，不要那些按鈕，但是......
我在VB底下執行API...SetKeyBoardState vbKeyCapital後發生了一件事，按F5無法執行程式，然後在IDE上的ToolBar裡的按鈕按一下，它也不會執行，而且Menu下的ToolBar上的按鈕變成可以像Office的自訂按鈕般的可以被拖曳，我就把執行按鈕(三角形的那一個)拖到IDE外，按鈕就消失無影無蹤，現在再啟動VB時，Standard ToolBar上的執行按鈕(三角形的那一個)也不再出現，我的IDE變得與眾不同囉!!
我在VB底下執行API...SetKeyBoardState vbKeyCapital後發生了一件事，按F5無法執行程式，然後在IDE上的ToolBar裡的按鈕按一下，它也不會執行，而且Menu下的ToolBar上的按鈕變成可以像Office的自訂按鈕般的可以被拖曳，我就把執行按鈕(三角形的那一個)拖到IDE外，按鈕就消失無影無蹤，現在再啟動VB時，Standard ToolBar上的執行按鈕(三角形的那一個)也不再出現，我的IDE變得與眾不同囉!!
VB6 動態新增控制項如何移動(編號：1302)
請問各位高手 VB6 動態新增控制項如何移動
小弟在試作動態新增控制項(如 TextBox)移動時只能移動目前新增
的這一個控制項,之前新增的控制項不知如何才能移動,希望各先進不吝指教(若有程式碼說明更好)
小弟在試作動態新增控制項(如 TextBox)移動時只能移動目前新增
的這一個控制項,之前新增的控制項不知如何才能移動,希望各先進不吝指教(若有程式碼說明更好)
請教如何用vb寫排列組合的程式.....(編號：1301)
想將排列組合的取數問題...例如..從N個數中取m個出來..請問有幾種取法..我想讓電腦?N所有的取法排出...有辦法做到嗎?...(N和m都要是變數)....funtion要如何寫????
有直接解除安裝應用程式的方法嗎?(編號：1300)
我希望可以不用到控制台的新增/移除程式去uninstall我安裝的應用程式,而是在開始功能表程式集裡拉一個uninstall的選項來解除安裝,有辦法做到嗎?
煩請大家測試一下,一個自製桌面便條紙程式..(編號：1299)
煩請大家測試一下,一個自製桌面便條紙程式
請到以下網址看說明
http://home.todo.com.tw/soho/bennel/memonote.htm
也謝謝各位在我製作期間給與協助...
請到以下網址看說明
http://home.todo.com.tw/soho/bennel/memonote.htm
也謝謝各位在我製作期間給與協助...
關於 mciSendString 和 MMControl(編號：1298)
請問可否用 mciSendString 和 MMControl (或其他的方法) 來播放特定時間的 .avi file ?
例如 : test.avi 是一段１０秒的影片，但我只想播放第２秒到第５秒, 而不是全部．
謝謝!!
例如 : test.avi 是一段１０秒的影片，但我只想播放第２秒到第５秒, 而不是全部．
謝謝!!
再問Winsock(編號：1297)
假設今天我的Server端的Picturebox裡有一個picture
我能不能用Winsock Contorl把它傳給
Cilent端的Picturebox呢?
若可以~要如何作呢?
請諸位前輩,先進幫幫忙~
謝謝^^
我能不能用Winsock Contorl把它傳給
Cilent端的Picturebox呢?
若可以~要如何作呢?
請諸位前輩,先進幫幫忙~
謝謝^^
open exe file(編號：1296)
我用了visual C++ to write a file and compile it to exe file,這個exe file 是print 出一個"hello"字的,
如果我要用VB開這個exe file,how can I do that??
(當我在VB中按"print"鍵,它會show 出hello)
any body can teach me!!
thx!!
如果我要用VB開這個exe file,how can I do that??
(當我在VB中按"print"鍵,它會show 出hello)
any body can teach me!!
thx!!
如何更新DataGrid 物件裡的最新資訊(編號：1295)
您好!我是vb 初學者.
我想請問使用DataGrid 物件,如何在資料庫更新的
同時,能即時更新欄位裡的資料.
我是以ADO 方式連結access資料庫.
謝謝!不吝賜教,感激不盡!
我想請問使用DataGrid 物件,如何在資料庫更新的
同時,能即時更新欄位裡的資料.
我是以ADO 方式連結access資料庫.
謝謝!不吝賜教,感激不盡!
封裝成應用程式時要不要Include資源檔(編號：1294)
封裝成應用程式時忘了Include資源檔進去封裝，可是安裝好執行時卻都可以顯示源檔內的文字串，請問封裝成應用程式時是否一定要把資源檔加入？
訂購DirectX SDK 7.0a 光碟(編號：1292)
訂購DirectX SDK 7.0a 光碟可以到
https://merchantgateway.cobweb.com/omega/order_entry_2.asp?ProductID=1028625&VendorID=17
https://merchantgateway.cobweb.com/omega/order_entry_2.asp?ProductID=1028625&VendorID=17
唉...又有問題了(編號：1290)
今天花了一整天的時間研究如何用sql將兩個動態變數範圍的資料套到datareport上,可是還是出現問題...各位高手門幫幫忙吧
以下是小弟的程式碼...
Private Sub Command1_Click()
Dim rsall As ADODB.Recordset
Dim rsRptInOut As ADODB.Recordset
Dim bdate As String '開始日期
Dim edate As String '結束日期
bdate = Text1.Text
edate = Text2.Text
Set rsRptInOut = New ADODB.Recordset
rsRptInOut.Fields.Append "wno", adVarChar
rsRptInOut.Fields.Append "tno", adVarChar
rsRptInOut.Fields.Append "fno", adVarChar
rsRptInOut.Fields.Append "btime", adDate
rsRptInOut.Fields.Append "etime", adDate
rsRptInOut.Fields.Append "stime", adVarChar
rsRptInOut.Fields.Append "money1", adInteger
rsRptInOut.Open
***下面這行發生編譯錯誤:引述不為選擇性(optional)***
Call GetInfo(rsRptInOut)
Set DataReport2.DataSource = rsRptInOut
With DataReport2.Sections("reportheader")
.Controls("label12").Caption = bdate
.Controls("label14").Caption = edate
End With
DataReport2.Show vbModal
End Sub
-----------------------------------------------
Private Sub GetInfo(rs As ADODB.Recordset, bdate As String, edate As String)
Dim rsInfo As ADODB.Recordset
Set rsInfo = New ADODB.Recordset
rsInfo.Open "select * from ball", cn
Do Until rsInfo.EOF
If (rsInfo!wno ＞= bdate) And (rsInfo!wno ＜= edate) Then
rs.AddNew
rs!wno = rsInfo!wno
rs!tno = rsInfo!tno
rs!fno = rsInfo!fno
rs!btime = rsInfo!btime
rs!etime = rsInfo!etime
rs!stime = rsInfo!stime
rs!money1 = rsInfo!money1
rs.Update
rsInfo.MoveNext
End If
Loop
rsInfo.Clone
Set rsInfo = Nothing
End Sub
以下是小弟的程式碼...
Private Sub Command1_Click()
Dim rsall As ADODB.Recordset
Dim rsRptInOut As ADODB.Recordset
Dim bdate As String '開始日期
Dim edate As String '結束日期
bdate = Text1.Text
edate = Text2.Text
Set rsRptInOut = New ADODB.Recordset
rsRptInOut.Fields.Append "wno", adVarChar
rsRptInOut.Fields.Append "tno", adVarChar
rsRptInOut.Fields.Append "fno", adVarChar
rsRptInOut.Fields.Append "btime", adDate
rsRptInOut.Fields.Append "etime", adDate
rsRptInOut.Fields.Append "stime", adVarChar
rsRptInOut.Fields.Append "money1", adInteger
rsRptInOut.Open
***下面這行發生編譯錯誤:引述不為選擇性(optional)***
Call GetInfo(rsRptInOut)
Set DataReport2.DataSource = rsRptInOut
With DataReport2.Sections("reportheader")
.Controls("label12").Caption = bdate
.Controls("label14").Caption = edate
End With
DataReport2.Show vbModal
End Sub
-----------------------------------------------
Private Sub GetInfo(rs As ADODB.Recordset, bdate As String, edate As String)
Dim rsInfo As ADODB.Recordset
Set rsInfo = New ADODB.Recordset
rsInfo.Open "select * from ball", cn
Do Until rsInfo.EOF
If (rsInfo!wno ＞= bdate) And (rsInfo!wno ＜= edate) Then
rs.AddNew
rs!wno = rsInfo!wno
rs!tno = rsInfo!tno
rs!fno = rsInfo!fno
rs!btime = rsInfo!btime
rs!etime = rsInfo!etime
rs!stime = rsInfo!stime
rs!money1 = rsInfo!money1
rs.Update
rsInfo.MoveNext
End If
Loop
rsInfo.Clone
Set rsInfo = Nothing
End Sub
功能表編器沒有 F10 的功能鍵??(編號：1289)
諸位 VB 的愛好者,我在使用"功能表編器"時,
發現 快速鍵(S)中居然沒有 F10 的功能鍵,
直接跳到 F11 ,為什麼!?!?
這下我不知要如何向我老師解釋了.....
請問有那位仁兄知道,
還是我的 VB 有問題??(VB6.0 + sp3)
發現 快速鍵(S)中居然沒有 F10 的功能鍵,
直接跳到 F11 ,為什麼!?!?
這下我不知要如何向我老師解釋了.....
請問有那位仁兄知道,
還是我的 VB 有問題??(VB6.0 + sp3)
請問如何動態更改Dataenvironment的command的SQL陳述式?(編號：1286)
小弟我先在Dataenvironment1內新增了一個command1
然後在form_load()內
寫Dataenvironment1.Command1.CommandText="Select * from A"
Dataenvironment1.Command1.Execute
卻會出現錯誤訊息
"編譯錯誤:不正確的定位項(qualifier)"
並停留在 Dataenvironment1.Command1.CommandText="Select * from A" 上
^^^^^^^^^^
不知道語法或程序錯在哪裡呢?
煩請前輩指點,謝謝!!
然後在form_load()內
寫Dataenvironment1.Command1.CommandText="Select * from A"
Dataenvironment1.Command1.Execute
卻會出現錯誤訊息
"編譯錯誤:不正確的定位項(qualifier)"
並停留在 Dataenvironment1.Command1.CommandText="Select * from A" 上
^^^^^^^^^^
不知道語法或程序錯在哪裡呢?
煩請前輩指點,謝謝!!
vb6 + Data Environment + DataReport(編號：1285)
小女子希望用program 製造出只要某一範圍的 Data Report
但不知應把 SQL 的code 如何、寫在program何處
只懂全數data output .........請賜教!!
如有例子更好
但不知應把 SQL 的code 如何、寫在program何處
只懂全數data output .........請賜教!!
如有例子更好
如何找出兩個不同 recordset 資料中,某個欄位相同的資料的查詢或(編號：1284)
如何找出兩個不同 recordset 資料中,某個欄位相同的資料的查詢或方法
除了一個一個recordset互相比較的方法外，各位高手是否有好方法???
迷惑的人留
除了一個一個recordset互相比較的方法外，各位高手是否有好方法???
迷惑的人留
請問有沒有檢查檔案名稱是否正確的 Function ?(編號：1283)
請問有沒有檢查檔案名稱是否正確的 Function ?
I mean :
我用 textbox 來輸入 filename
想找一個 function or sub 來檢查 此檔名是否正確 !
Thanks for your answer !!!!
I mean :
我用 textbox 來輸入 filename
想找一個 function or sub 來檢查 此檔名是否正確 !
Thanks for your answer !!!!
問一個很嚴重的問題....(編號：1282)
我寫一個程式..需要傳輸兩個變數..但..非得分兩次傳輸..
但.在一個程序中傳輸兩次..居然..居然..
出現了資料跑錯位置的問題
例如:
Z = "2" + X
Winsock1.SendData (Z)
C = "3" + G
Winsock1.SendData (C)
這樣在一個程序中會出現錯亂...請問是電腦處理太快的問題ㄇ?
收到的結果竟然會把變數跑到另外一邊.....拜託高手們幫幫忙..
但.在一個程序中傳輸兩次..居然..居然..
出現了資料跑錯位置的問題
例如:
Z = "2" + X
Winsock1.SendData (Z)
C = "3" + G
Winsock1.SendData (C)
這樣在一個程序中會出現錯亂...請問是電腦處理太快的問題ㄇ?
收到的結果竟然會把變數跑到另外一邊.....拜託高手們幫幫忙..
error number判斷不出來(編號：1279)
UD_SaveDataErrorHandle:
AccountConnection.RollbackTrans '取消這次的交易
Dim UD_SaveDataError As ADODB.Error
Dim UD_SaveDataErrorMsg As String
UD_SaveDataErrorMsg = Err.Number & ": " & Err.Description
MsgBox "資料存檔失敗!!" & UD_SaveDataErrorMsg
For Each UD_SaveDataError In AccountConnection.Errors
If UD_SaveDataError.Number = -2147217900 Then
*************************************
msg = "Number: " & UD_SaveDataError.Number & vbCrLf & _
"Description: " & "單身的程式代號資料有重覆.請更改.." & vbCrLf & _
"Source: " & UD_SaveDataError.Source & vbCrLf & _
"NativeError: " & UD_SaveDataError.NativeError
End If
MsgBox UD_SaveDataErrorMsg
Next
ps..我想跟據不同的error number來顯示不同訊息,但是沒用..監看視窗裏看到的明明是 -2147217900 .
AccountConnection.RollbackTrans '取消這次的交易
Dim UD_SaveDataError As ADODB.Error
Dim UD_SaveDataErrorMsg As String
UD_SaveDataErrorMsg = Err.Number & ": " & Err.Description
MsgBox "資料存檔失敗!!" & UD_SaveDataErrorMsg
For Each UD_SaveDataError In AccountConnection.Errors
If UD_SaveDataError.Number = -2147217900 Then
*************************************
msg = "Number: " & UD_SaveDataError.Number & vbCrLf & _
"Description: " & "單身的程式代號資料有重覆.請更改.." & vbCrLf & _
"Source: " & UD_SaveDataError.Source & vbCrLf & _
"NativeError: " & UD_SaveDataError.NativeError
End If
MsgBox UD_SaveDataErrorMsg
Next
ps..我想跟據不同的error number來顯示不同訊息,但是沒用..監看視窗裏看到的明明是 -2147217900 .
幫幫忙誰能告訴我如何註冊以下的程式碼(編號：1278)
AniBtn32.ocx
dbgrid32.ocx
我該如何註冊這些東東呢?有那位好心人士能告訴我
Gauge32.ocx
Graph32.ocx
Gsw32.EXE
Gswdll32.DLL
Grid32.ocx
KeySta32.ocx
MSChart.ocx
MSOutl32.ocx
Spin32.ocx
Threed32.ocx
謝謝啦!!!!!
dbgrid32.ocx
我該如何註冊這些東東呢?有那位好心人士能告訴我
Gauge32.ocx
Graph32.ocx
Gsw32.EXE
Gswdll32.DLL
Grid32.ocx
KeySta32.ocx
MSChart.ocx
MSOutl32.ocx
Spin32.ocx
Threed32.ocx
謝謝啦!!!!!
有關於資料格式(編號：1276)
當我寫一行指令
Set mydatabase = myworkspace.OpenDatabase( "c:\windows\desktop\member.mdb")
Set mytable = mydatabase.OpenRecordset
("成員名單", dbOpenTable)
這時...執行之後...開啟時發生"無法辨視之資料庫格式...."
是不是我的VB太舊啦?
還是有寫錯ㄇ?
Set mydatabase = myworkspace.OpenDatabase( "c:\windows\desktop\member.mdb")
Set mytable = mydatabase.OpenRecordset
("成員名單", dbOpenTable)
這時...執行之後...開啟時發生"無法辨視之資料庫格式...."
是不是我的VB太舊啦?
還是有寫錯ㄇ?
請大家幫幫忙,測試一下(編號：1275)
這是我做的一個專題,名稱叫做"學生缺課資料管理程式"
在不久前已經寫完了,但是幫助我作測試的人實在太少了
所以希望大家如果可以的話,能否幫我作測試的動作
因為作出來之後是讓學校使用的,因此大家盡量抓Bug吧!!
謝謝
請到下面的網址
http://maduka.heha.net/Student/Down.htm
再次的謝謝大家!!!
在不久前已經寫完了,但是幫助我作測試的人實在太少了
所以希望大家如果可以的話,能否幫我作測試的動作
因為作出來之後是讓學校使用的,因此大家盡量抓Bug吧!!
謝謝
請到下面的網址
http://maduka.heha.net/Student/Down.htm
再次的謝謝大家!!!
如何在兩個 Form 做資料傳遞(編號：1273)
各位高手請教
我現在有一筆資料在 form1處理成一個陣列後要傳給form2做顯示
Form1和Form2都load了,因form1的資料一直再改變,所以就一直會
有陣列資料傳給form2,當然form2的顯示也要一直跟著改變
請問我該如何做？
另外當form2未開啟時,form1的資料處理好後也要能自動load form2
請幫幫忙!
我現在有一筆資料在 form1處理成一個陣列後要傳給form2做顯示
Form1和Form2都load了,因form1的資料一直再改變,所以就一直會
有陣列資料傳給form2,當然form2的顯示也要一直跟著改變
請問我該如何做？
另外當form2未開啟時,form1的資料處理好後也要能自動load form2
請幫幫忙!
請問一下，要如何判斷控制項有無重疊(編號：1272)
我想做一個類似拼圖的東西~~
能用滑鼠控制裡面的控制項~~
動是會動了~~也可以限制移動範圍~~
但是一直想不出如何判斷~~
其是否有撞到或重疊表單內的任一個控制項~~
能不能麻煩各位告知一下要用什麼方法勒~~
能用滑鼠控制裡面的控制項~~
動是會動了~~也可以限制移動範圍~~
但是一直想不出如何判斷~~
其是否有撞到或重疊表單內的任一個控制項~~
能不能麻煩各位告知一下要用什麼方法勒~~
想變更一個ado內容(編號：1271)
你好
小女子是一名電腦書院的學生
想問問你們有關vb ADO＜access＞ 的問題
希望各位高手能賜教
我用如下的方法成功open了一個 mdb
================================================
Dim db As Connection
Dim conn As ADODB.Connection
Dim cmd1 As New ADODB.Command
Dim rs1 As New ADODB.Recordset
Private Sub Form_Load()
Set conn = CreateObject("ADODB.Connection")
conn.Open "ass2"
Set cmd1.ActiveConnection = conn
cmd1.CommandText = "SELECT * FROM [pb]"
rs1.CursorLocation = adUseClient
rs1.Open cmd1, , adOpenDynamic, adLockBatchOptimistic
Set Adodc1.Recordset = rs1
End Sub
'===================================================
但是，當我想把display出來的mdb資料變更時(如下)卻失敗了，有ERROR
請問我應該如果寫Command1_Click() 的 code 才可成功更改 "cmd1.CommandText " 的內容呢?
===================================================
Private Sub Command1_Click()
cmd1.CommandText = "SELECT * FROM [pb] WHERE id＞100"
rs1.CursorLocation = adUseClient
rs1.Open cmd1, , adOpenDynamic, adLockBatchOptimistic
Set Adodc1.Recordset = rs1
End Sub
'===================================================
如能相助，小女子會向你敬上萬分謝意
Thank you!!
小女子是一名電腦書院的學生
想問問你們有關vb ADO＜access＞ 的問題
希望各位高手能賜教
我用如下的方法成功open了一個 mdb
================================================
Dim db As Connection
Dim conn As ADODB.Connection
Dim cmd1 As New ADODB.Command
Dim rs1 As New ADODB.Recordset
Private Sub Form_Load()
Set conn = CreateObject("ADODB.Connection")
conn.Open "ass2"
Set cmd1.ActiveConnection = conn
cmd1.CommandText = "SELECT * FROM [pb]"
rs1.CursorLocation = adUseClient
rs1.Open cmd1, , adOpenDynamic, adLockBatchOptimistic
Set Adodc1.Recordset = rs1
End Sub
'===================================================
但是，當我想把display出來的mdb資料變更時(如下)卻失敗了，有ERROR
請問我應該如果寫Command1_Click() 的 code 才可成功更改 "cmd1.CommandText " 的內容呢?
===================================================
Private Sub Command1_Click()
cmd1.CommandText = "SELECT * FROM [pb] WHERE id＞100"
rs1.CursorLocation = adUseClient
rs1.Open cmd1, , adOpenDynamic, adLockBatchOptimistic
Set Adodc1.Recordset = rs1
End Sub
'===================================================
如能相助，小女子會向你敬上萬分謝意
Thank you!!
關於MCI(編號：1269)
我最近在寫一個CRPG Game，本來用mcisendstring來播背景音樂，
但是我發覺不能重復播放，我只好用MCI來播。我在網上找到一
份關於MCI的資料，有以下一段：
If formstore.MMControl1.Mode = vbMCIModeStop Then
formstore.MMControl1.Command = "Prev"
formstore.MMControl1.Command = "Play"
End If
可是我卻不能使它重復播放，我懷疑那程式宣告的
vbMCIModeStop=524不能用，在此請問各位高手，有
何辦法重復播放音樂(Midi)，謝謝!
最好連Socuce Code
但是我發覺不能重復播放，我只好用MCI來播。我在網上找到一
份關於MCI的資料，有以下一段：
If formstore.MMControl1.Mode = vbMCIModeStop Then
formstore.MMControl1.Command = "Prev"
formstore.MMControl1.Command = "Play"
End If
可是我卻不能使它重復播放，我懷疑那程式宣告的
vbMCIModeStop=524不能用，在此請問各位高手，有
何辦法重復播放音樂(Midi)，謝謝!
最好連Socuce Code
使用ado該如何以唯讀獨占讀取資料庫(編號：1268)
如題...
我之前有問說為何我資料庫燒進光碟後我的程式
無法讀取，大家也很熱心的幫我提出解答，但這
個問題依舊困惑我...我在想是否我寫法錯誤...
所以想請問一下該如何以唯讀獨占的方式開啟讀取資料庫ㄋ
請教教我
我之前有問說為何我資料庫燒進光碟後我的程式
無法讀取，大家也很熱心的幫我提出解答，但這
個問題依舊困惑我...我在想是否我寫法錯誤...
所以想請問一下該如何以唯讀獨占的方式開啟讀取資料庫ㄋ
請教教我
MCI 超怪問題??? 煩高手賜教!(編號：1267)
[急]
請教各位高手,這奇怪的問題我想了好久,就是沒辦法解決...
-----------------------------------------------------
1.用錄音程式預錄好的Wav放於A.wav內。
2.我在Form_Load事件裡面把 A.wav copy to B.wav。
3.Command1 Button Down 時
＞先殺掉 B.wav。
＞再複製一份 B.wav。
＞用 MultiMedia Control Interface 開啟 B.wav, 並錄製。
4.Command Button Up 時
＞停止 MCI。
＞儲存 Wav 檔。
＞關閉 MCI 裝置。
------------------------------------------------------
程式這樣正常跑下來,會一直對B.wav作錄製及刪除的動作
這樣平穩的Run倒也沒出現啥問題,程式會乖乖的動作,可是...
問題來了!...只要我跑這程式後再開啟任何一執行檔(如檔案
總管,IE,Outlook Express...),再回到這錄音程式視窗繼續
Run,程式就會變成可以刪檔,複製,但是儲存完後的 B.Wav 會
爛掉,變成 0 byte,檔案標頭也不是 Wav Format,請問有人可以
幫我解答這問題嗎?不知道跟hwnd有沒有關係,我真的投降了!
(麻煩高手賜教!很急!感激不盡)。
可以的話回我的信箱 junk@blue.url.com.tw
------------------------------------------------------
以下是我這問題的程式碼:
Private Sub Form_Load()
FileCopy App.Path + "\A.wav", App.Path + "\B.wav"
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single
Killpath$ = App.Path + "\B.wav": Kill Killpath$
FileCopy App.Path + "\A.wav", App.Path + "\B.wav"
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path + "\B.wav"
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single
Killpath$ = App.Path + "\B.wav": Kill Killpath$
FileCopy App.Path + "\A.wav", App.Path + "\B.wav"
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path + "\B.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Prev"
MMControl1.Command = "Record"
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single,
MMControl1.Command = "Stop"
MMControl1.Command = "Save"
MMControl1.Command = "Close"
End Sub
請教各位高手,這奇怪的問題我想了好久,就是沒辦法解決...
-----------------------------------------------------
1.用錄音程式預錄好的Wav放於A.wav內。
2.我在Form_Load事件裡面把 A.wav copy to B.wav。
3.Command1 Button Down 時
＞先殺掉 B.wav。
＞再複製一份 B.wav。
＞用 MultiMedia Control Interface 開啟 B.wav, 並錄製。
4.Command Button Up 時
＞停止 MCI。
＞儲存 Wav 檔。
＞關閉 MCI 裝置。
------------------------------------------------------
程式這樣正常跑下來,會一直對B.wav作錄製及刪除的動作
這樣平穩的Run倒也沒出現啥問題,程式會乖乖的動作,可是...
問題來了!...只要我跑這程式後再開啟任何一執行檔(如檔案
總管,IE,Outlook Express...),再回到這錄音程式視窗繼續
Run,程式就會變成可以刪檔,複製,但是儲存完後的 B.Wav 會
爛掉,變成 0 byte,檔案標頭也不是 Wav Format,請問有人可以
幫我解答這問題嗎?不知道跟hwnd有沒有關係,我真的投降了!
(麻煩高手賜教!很急!感激不盡)。
可以的話回我的信箱 junk@blue.url.com.tw
------------------------------------------------------
以下是我這問題的程式碼:
Private Sub Form_Load()
FileCopy App.Path + "\A.wav", App.Path + "\B.wav"
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single
Killpath$ = App.Path + "\B.wav": Kill Killpath$
FileCopy App.Path + "\A.wav", App.Path + "\B.wav"
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path + "\B.wav"
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single
Killpath$ = App.Path + "\B.wav": Kill Killpath$
FileCopy App.Path + "\A.wav", App.Path + "\B.wav"
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.FileName = App.Path + "\B.wav"
MMControl1.Command = "Open"
MMControl1.Command = "Prev"
MMControl1.Command = "Record"
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single,
MMControl1.Command = "Stop"
MMControl1.Command = "Save"
MMControl1.Command = "Close"
End Sub
Assignment(編號：1266)
請問大家誰會寫這個作業,謝謝!
Create an application in VB that does the following:
It brings up a frame with the titlebar "Main". The size of the frame
is 3270x2730 twips. This frame contains three command buttons centered
in the frame. Their sizes are 1215x495, they are aligned one below the
other evenly spaced apart. The top button contains the text "Manipulate
string", the second one "Show color cycle", the third one "Exit".
Pressing on "Manipulate string" brings up an input box without a title,
with the prompt string "Type a string", with one OK button and one
Cancel button. The user can now type a string and then hit return or
OK or Cancel.
When the input box disappears, another frame comes up. This frame has
the title "String results". Its size is 5820X3015 twips. This frame's
position must be so that its left edge exactly touches the right edge
of the "Main" frame and its upper edge is exactly at the same height
as the upper edge of the "Main" frame.
Aligned to the left this frame has four text strings. The first says
"String", the second "Length of string", the third "Reverse string",
and the fourth "Number of words". To the right of each string is
another string of size 3255x495 and of flat appearance, white. In
these white areas will be displayed the results of the string manipula-
tions. In the first the string itself that the user has typed. In the
second the length of the string; in the third the reverse string; and
in the fourth the number of words in the string. These results are all
centered. The first and the third have a font size of 12, the second
and fourth a font size of 14. This frame is removed by the user by
clicking the cross button.
When the user clicks "Show color cycle" in the "Main" frame, another
frame comes up that also aligns with the "Main " frame the same way
as the "String results" frame. It has no controls in it and is all
white. Its titlebar is "Color cycle". Its size is 2565x2415. When
clicking on this frame, its color changes through the colors red,
green, blue, yellow, magenta, and cyan, and keeps cycling through
these indefinitely. This frame is removed by the user by clicking on
the cross button.
The "Color cycle" frame and the "String results" frame cannot be on
the screen at the same time.
Clicking on the "Exit" button in the "Main" frame exits the whole
application.
Create an application in VB that does the following:
It brings up a frame with the titlebar "Main". The size of the frame
is 3270x2730 twips. This frame contains three command buttons centered
in the frame. Their sizes are 1215x495, they are aligned one below the
other evenly spaced apart. The top button contains the text "Manipulate
string", the second one "Show color cycle", the third one "Exit".
Pressing on "Manipulate string" brings up an input box without a title,
with the prompt string "Type a string", with one OK button and one
Cancel button. The user can now type a string and then hit return or
OK or Cancel.
When the input box disappears, another frame comes up. This frame has
the title "String results". Its size is 5820X3015 twips. This frame's
position must be so that its left edge exactly touches the right edge
of the "Main" frame and its upper edge is exactly at the same height
as the upper edge of the "Main" frame.
Aligned to the left this frame has four text strings. The first says
"String", the second "Length of string", the third "Reverse string",
and the fourth "Number of words". To the right of each string is
another string of size 3255x495 and of flat appearance, white. In
these white areas will be displayed the results of the string manipula-
tions. In the first the string itself that the user has typed. In the
second the length of the string; in the third the reverse string; and
in the fourth the number of words in the string. These results are all
centered. The first and the third have a font size of 12, the second
and fourth a font size of 14. This frame is removed by the user by
clicking the cross button.
When the user clicks "Show color cycle" in the "Main" frame, another
frame comes up that also aligns with the "Main " frame the same way
as the "String results" frame. It has no controls in it and is all
white. Its titlebar is "Color cycle". Its size is 2565x2415. When
clicking on this frame, its color changes through the colors red,
green, blue, yellow, magenta, and cyan, and keeps cycling through
these indefinitely. This frame is removed by the user by clicking on
the cross button.
The "Color cycle" frame and the "String results" frame cannot be on
the screen at the same time.
Clicking on the "Exit" button in the "Main" frame exits the whole
application.
ODBC 的問題(編號：1264)
大家好:
我用 VB6.0 + DBase 的資料庫開發了一個小系統.(礙於舊系統故使用 Dbase).
我的問題是每台電腦在安裝該程式時多必須安裝 Dbase 的 ODBC
驅動程式(非常麻煩), 是否有什麼辦法來解決上述的問題.
謝謝 !!
我用 VB6.0 + DBase 的資料庫開發了一個小系統.(礙於舊系統故使用 Dbase).
我的問題是每台電腦在安裝該程式時多必須安裝 Dbase 的 ODBC
驅動程式(非常麻煩), 是否有什麼辦法來解決上述的問題.
謝謝 !!
再次請教 SPENCER YANG...(編號：1260)
我的問題如下..
假如我有一個銷售紀錄表(包含每天的資料),欄位有客戶編號,銷售日期,商品名稱,價格...等
如果我製作一個表單a,放兩個textbox和一個按鈕讓使用者輸入,查詢20000101~20000131的所有銷售紀錄,然後按下預覽按鈕顯示datareport1.show,
把每個客戶編號顯示在群組頁首的地方,詳細資料就顯示所有交易明細,群組頁尾顯示每個客戶(單月or...0)交易金額小計,報表頁尾部分顯示所有客戶單月交易金額...
這個部分我一直做不出來...還有請大哥指導小弟一下....萬分感激
假如我有一個銷售紀錄表(包含每天的資料),欄位有客戶編號,銷售日期,商品名稱,價格...等
如果我製作一個表單a,放兩個textbox和一個按鈕讓使用者輸入,查詢20000101~20000131的所有銷售紀錄,然後按下預覽按鈕顯示datareport1.show,
把每個客戶編號顯示在群組頁首的地方,詳細資料就顯示所有交易明細,群組頁尾顯示每個客戶(單月or...0)交易金額小計,報表頁尾部分顯示所有客戶單月交易金額...
這個部分我一直做不出來...還有請大哥指導小弟一下....萬分感激
DirectX 7.0a SDK(編號：1259)
終於拿到Directx 7.0a SDK光碟片了~~
拿到之後馬上測試一下裡面的VB sample code...
哇~~好棒~~~動畫聲音都好棒~~
不但可同時發出N個wav檔~~還可社各別設定左右聲道~~跟大小聲~~
很棒~~~喔~~~
看來...得要用DirectX做些Game來玩玩了~~^_^
拿到之後馬上測試一下裡面的VB sample code...
哇~~好棒~~~動畫聲音都好棒~~
不但可同時發出N個wav檔~~還可社各別設定左右聲道~~跟大小聲~~
很棒~~~喔~~~
看來...得要用DirectX做些Game來玩玩了~~^_^
請問 Crystal Report 6.0(編號：1258)
請問如果我的 SQL 語法中的 Where
要由使用者自行限定範圍時再代入
Crystal Report 6.0 的報表中，請問
我應如何代入？
它好像不能像 VB6 中一樣，使用 Where date1=?
問號的方式！
要由使用者自行限定範圍時再代入
Crystal Report 6.0 的報表中，請問
我應如何代入？
它好像不能像 VB6 中一樣，使用 Where date1=?
問號的方式！
如何用Flash movie作Button?(編號：1257)
看見別人在VB的程式中使用了Macromedia Flash的Movie做Button, 很酷呢! 一點都不輸放在網頁上的Button!! 可是我怎做都做不到啊! 我已經在VB中加了Shockwave Flash的OCX控制項, 但是我只能夠將一般的flash movie加進去, 卻不能做到Button的效果, 而且那控制項內沒有Click事件呢! 我曾試過以Label將Flash movie蓋著, 想利用Label的Click取替flash movie的click, 但都不成功啊! 在此向各高人請教!
全文索引(編號：1256)
我現在手邊有一些論文，我利用vb來做閱讀的介面
每一篇論文中都有很多章節
我希望能做到全文檢索
但我的SQL語法卻抓不到半筆紀錄
可是我確定資料庫中有該筆紀錄...
可是卻抓不到
請問各位可以給我建議該如何做全文檢索??
每一篇論文中都有很多章節
我希望能做到全文檢索
但我的SQL語法卻抓不到半筆紀錄
可是我確定資料庫中有該筆紀錄...
可是卻抓不到
請問各位可以給我建議該如何做全文檢索??
程式架構(編號：1254)
對不起!我想請教一個有關程式架構的問題.
我想寫一個有關資料庫的程式.
預計會有150個畫面左右.
共分為七個子系統.
我應該如何來建構我的專案呢?
(以前我用PowerBuilder做,我會把它切成一個exe
and 7 個類似DLL 的檔案.)
另外,有關 ado DE 應該如何就設置.我有近80個Table.
Thank you !!
我想寫一個有關資料庫的程式.
預計會有150個畫面左右.
共分為七個子系統.
我應該如何來建構我的專案呢?
(以前我用PowerBuilder做,我會把它切成一個exe
and 7 個類似DLL 的檔案.)
另外,有關 ado DE 應該如何就設置.我有近80個Table.
Thank you !!
如何將bmp轉成jpg或gif(編號：1253)
我想將bmp轉成jpg或gif以在網頁上用，要怎麼做?
我記得好像有人有做出一支dll給大家使用，誰知道在那有
??可不可以告訴我，或mail給我，感激不盡!!!!
我記得好像有人有做出一支dll給大家使用，誰知道在那有
??可不可以告訴我，或mail給我，感激不盡!!!!
如何從傳參數給vb程式(編號：1250)
例c程式
名稱:aa
void main( int argc, char *argv[] )
{
......
}
在dos下呼叫: aa hello
結果: argc=2 argv(1)=hello
請問大家:
在vb 的 module使用 sub main() 如何宣告上述的argc 與argv陣列
.
謝謝!
名稱:aa
void main( int argc, char *argv[] )
{
......
}
在dos下呼叫: aa hello
結果: argc=2 argv(1)=hello
請問大家:
在vb 的 module使用 sub main() 如何宣告上述的argc 與argv陣列
.
謝謝!
請教 SPENCER YANG...(編號：1249)
請原諒小弟白痴...嗚嗚
看完大哥的程式後更加....
如果我用另一種方法...
就是我把開始和結束日期輸入完後...
把得到的資料顯示在datagrid元件裡....
我要怎麼把資料列印出來呢...field(0)要印在群組首..sum(field(n))印在群組尾(小計)...然後再將所有field(n)的sum值印在報表尾(總計)
不好意思再次麻煩您.....感激不盡
看完大哥的程式後更加....
如果我用另一種方法...
就是我把開始和結束日期輸入完後...
把得到的資料顯示在datagrid元件裡....
我要怎麼把資料列印出來呢...field(0)要印在群組首..sum(field(n))印在群組尾(小計)...然後再將所有field(n)的sum值印在報表尾(總計)
不好意思再次麻煩您.....感激不盡
about VB 的 Format(編號：1245)
請問
dim myval as byte
myval = &hB
txtbox1 = Format(Hex(myval), "00")
' 這個時候 txtbox1 顯現 B 而不是 0B
' 如果
myval = &h8
txtbox1 = Format(Hex(myval), "00")
' txtbox1 顯現 08
我需要 show 0B ＜== 這是 VB Format 的 Bug 還是我應該用別的方法呢 ?
望請您不吝指教 !!!!
Thanks very much!
dim myval as byte
myval = &hB
txtbox1 = Format(Hex(myval), "00")
' 這個時候 txtbox1 顯現 B 而不是 0B
' 如果
myval = &h8
txtbox1 = Format(Hex(myval), "00")
' txtbox1 顯現 08
我需要 show 0B ＜== 這是 VB Format 的 Bug 還是我應該用別的方法呢 ?
望請您不吝指教 !!!!
Thanks very much!
RDO 無法使用 update 方法(編號：1243)
請問我使用 RDO接上 ODBC，在執行到 update 時發生錯誤，錯誤訊息如下：
執行期錯誤 '40002':
S1C00 : Only SQL_POSITION/REFRESH is supported for SQLSetPos
請問為什麼會有這個錯誤？我的 SQL server 是 Linux 的 Postgresql。
執行期錯誤 '40002':
S1C00 : Only SQL_POSITION/REFRESH is supported for SQLSetPos
請問為什麼會有這個錯誤？我的 SQL server 是 Linux 的 Postgresql。
ADO 物件與ADODC控制項複製的問題(編號：1241)
請問諸先進:
1.我在FRM1內放ADOC物件 rsAcc1
2.在FRM2內定義ADO物件 rsAcc2
3.rsAcc1 及 rsAcc2指向同一資料庫之table
4.我在FRM2內
SET rsAcc1.recordset = rsAcc2
並CALL執行FRM1
5.此時FRM1執行正常,但執行rsAcc1.refresh時出現錯誤
請問是何原因?如何解決?
VB新手 CMHUNG
1.我在FRM1內放ADOC物件 rsAcc1
2.在FRM2內定義ADO物件 rsAcc2
3.rsAcc1 及 rsAcc2指向同一資料庫之table
4.我在FRM2內
SET rsAcc1.recordset = rsAcc2
並CALL執行FRM1
5.此時FRM1執行正常,但執行rsAcc1.refresh時出現錯誤
請問是何原因?如何解決?
VB新手 CMHUNG
TextBox 輸入 之 Format !(編號：1240)
請問 :
VB 的 TextBox 有沒有 只能輸入 16 進位數字的 Format ?
ie, 我想在 TextBox 中只能輸入 0 ~ F !
Thanks very much !!!
VB 的 TextBox 有沒有 只能輸入 16 進位數字的 Format ?
ie, 我想在 TextBox 中只能輸入 0 ~ F !
Thanks very much !!!
vb的小問題(編號：1237)
恭喜發財!!
vb的開發環境用的是小字型,當程式碼copy至別台機器,用大字型,畫面全都跑位了!應該用什麼方法解決,是做成安裝程式即可不理會這個問題,還是要抓登錄資料庫的值.謝謝!!
vb的開發環境用的是小字型,當程式碼copy至別台機器,用大字型,畫面全都跑位了!應該用什麼方法解決,是做成安裝程式即可不理會這個問題,還是要抓登錄資料庫的值.謝謝!!
關於 Hook (鍵盤,滑鼠 攔截)(編號：1236)
我想寫一程式~~~
常駐於記憶體中!!
此程式要能攔截所有的鍵盤輸入和滑鼠的移動和點選!!
而範圍是整個系統!!(任何的表單或是桌面下)
請問哪有相關的範例或說明(Hook)!!
cww 那我已經看過了~~
不知是否還有其他的相關資訊??
而關於常駐程式的寫法或技巧呢??
用 vb ~~~
常駐於記憶體中!!
此程式要能攔截所有的鍵盤輸入和滑鼠的移動和點選!!
而範圍是整個系統!!(任何的表單或是桌面下)
請問哪有相關的範例或說明(Hook)!!
cww 那我已經看過了~~
不知是否還有其他的相關資訊??
而關於常駐程式的寫法或技巧呢??
用 vb ~~~
關於利用變數代入datdreport(編號：1235)
請問各位vb高手們....
如何使用輸入兩個變數,利用sql求得此範圍的資料
然後用datareport列印符合的資料出來...
例如我輸入開始和結束日期,然後將符合的資料用dadareport顯示...
我有參考松崗出版的vb資料庫程式設計實務...但愈看愈頭大..
煩請各位vb高手們幫忙...感激不盡(如有範例程式最好)...謝謝先
如何使用輸入兩個變數,利用sql求得此範圍的資料
然後用datareport列印符合的資料出來...
例如我輸入開始和結束日期,然後將符合的資料用dadareport顯示...
我有參考松崗出版的vb資料庫程式設計實務...但愈看愈頭大..
煩請各位vb高手們幫忙...感激不盡(如有範例程式最好)...謝謝先
Can VB get the colour value of pixel in viewcam???(編號：1234)
各位人兄,
請問vb 有乜Command 能 get & change the colour value after the viewcam capture a image la????
( eg. VC 有 c = img.Getpixel(x,y) // get colour value
r = getrvalue(c) // get red colour value
g = getgvalie(c) // get green colour value
b = getbvalue(c) // get blue colour value
img.setpixel(i, rgb(r,g,b) //set colour value )
多謝各位小弟感激不盡....
請問vb 有乜Command 能 get & change the colour value after the viewcam capture a image la????
( eg. VC 有 c = img.Getpixel(x,y) // get colour value
r = getrvalue(c) // get red colour value
g = getgvalie(c) // get green colour value
b = getbvalue(c) // get blue colour value
img.setpixel(i, rgb(r,g,b) //set colour value )
多謝各位小弟感激不盡....
徵求標準報表表頭、頁尾寫法？(編號：1233)
請教各位先進:
新近在design Data Report,發現各家對表頭、頁尾寫法各有自己的表達方式，本人未接觸過RPG,COBOL等語言，不知其對報表是否有標準寫法，
有者，表頭、表身、表尾各含有那些元素(EG.報表編號、列印日期)？元素在左方、右方或者順序是否有嚴格定義？
假如可以的話，不吝告知那裡可以找到其STANDARD文件來源或WWW 來源。
新近在design Data Report,發現各家對表頭、頁尾寫法各有自己的表達方式，本人未接觸過RPG,COBOL等語言，不知其對報表是否有標準寫法，
有者，表頭、表身、表尾各含有那些元素(EG.報表編號、列印日期)？元素在左方、右方或者順序是否有嚴格定義？
假如可以的話，不吝告知那裡可以找到其STANDARD文件來源或WWW 來源。
判別布林值(編號：1229)
您好:
如何判定某一變數為布林值或其他數值?
因為若有一變數為布林值時,若為TRUE,TYPENAME判別為BOOLENA,但若為FALSE時,只判定為NULL,會讓使用者無法得知到底是為布林變數呢?還是只是此變數之值是空的?
如何判定某一變數為布林值或其他數值?
因為若有一變數為布林值時,若為TRUE,TYPENAME判別為BOOLENA,但若為FALSE時,只判定為NULL,會讓使用者無法得知到底是為布林變數呢?還是只是此變數之值是空的?
啊部喇請進:(編號：1227)
不知您的信箱好了沒?所以還是在這發信,希望您能看到.
想先問您的Label資料要作何後續處理?必須先釐清這部份才能針對您的問題給予建言.
因為我2/13~2/19人在大陸,希望您能在近期內回覆.
Happy New Year
想先問您的Label資料要作何後續處理?必須先釐清這部份才能針對您的問題給予建言.
因為我2/13~2/19人在大陸,希望您能在近期內回覆.
Happy New Year
專解access保全密碼,以後你不用記密碼(編號：1224)
專解access保全密碼,以後你不用記密碼
下載處:
http://www.fortunecity.com/skyscraper/resedit/463/index.html
下載處:
http://www.fortunecity.com/skyscraper/resedit/463/index.html
cancelupdate失效??(編號：1217)
小弟資料輸入的表單內欲做一個"清除"所有text內容的功能鍵
於是用設空字串的方式
Private Sub clear_Click()
text1=""
text2=""
.
.
.
End Sub
但是若使用者在執行此清除鈕後想"取消",恢復原來的內容
於是按了"取消"的功能鍵
Private Sub cancel_Click()
Set rs1 = DataEnvironment1.rsCommand1
rs1.CancelUpdate
rs1.MoveNext
rs1.MovePrevious
End Sub
卻會發生一個問題,就是此筆資料無法回復了!
我試過若不是用程式去令text1=""
而是使用者自行用鍵盤清除text1的內容後再按"取消"功能鍵
即可恢復原本資料
請問為何會如此?要怎麼解決呢?
謝謝!
於是用設空字串的方式
Private Sub clear_Click()
text1=""
text2=""
.
.
.
End Sub
但是若使用者在執行此清除鈕後想"取消",恢復原來的內容
於是按了"取消"的功能鍵
Private Sub cancel_Click()
Set rs1 = DataEnvironment1.rsCommand1
rs1.CancelUpdate
rs1.MoveNext
rs1.MovePrevious
End Sub
卻會發生一個問題,就是此筆資料無法回復了!
我試過若不是用程式去令text1=""
而是使用者自行用鍵盤清除text1的內容後再按"取消"功能鍵
即可恢復原本資料
請問為何會如此?要怎麼解決呢?
謝謝!
還有一個白癡問題....關於資料...(編號：1215)
sorry...再問一個簡單問題
我有一個表單
有一個DATA選項 兩個TEXTBOX 一個PictureBox
其中一個TEXT BOX 為名子
另一個TEXT BOX是這個名字的敘束
PictureBox 會顯示這個Name 的圖片
當我按下DATA的"＞"鍵時...會顯示另一位的成員
所以....請大家教我一下怎麼寫好嗎?
我有一個表單
有一個DATA選項 兩個TEXTBOX 一個PictureBox
其中一個TEXT BOX 為名子
另一個TEXT BOX是這個名字的敘束
PictureBox 會顯示這個Name 的圖片
當我按下DATA的"＞"鍵時...會顯示另一位的成員
所以....請大家教我一下怎麼寫好嗎?
使用 VB6 的 MsChart 控制項........(編號：1214)
請各位高手解決這一個問題..
本人利用了 VB6.0 連到 SQL7 想用圖表來秀資料, 於是使用了
Microsoft MsChart 的控制項 ,但是每一次秀出的結果"第一筆資料"卻不會秀到圖型上...
就連使用MSDN上面的例子來試試,結果也是相同的"沒有秀到第一筆資料"..........
我到底該怎麼辦????
本人利用了 VB6.0 連到 SQL7 想用圖表來秀資料, 於是使用了
Microsoft MsChart 的控制項 ,但是每一次秀出的結果"第一筆資料"卻不會秀到圖型上...
就連使用MSDN上面的例子來試試,結果也是相同的"沒有秀到第一筆資料"..........
我到底該怎麼辦????
ㄝ...各位前輩好阿!! 問一個超白癡的問題~(編號：1213)
Hi Hi~
我是這個禮拜才剛剛學VB的
現在家裡用的是VB6.0
基本介面都已經混熟了!!
不過...撰寫程式碼時...有一個白癡問題不會...
怎麼經由Click顯示其他的表單咧?
我做了一個按扭...
就是不知怎麼用 Show 還是 Load xxxx 碗糕的來顯示表單
........
還有誰自願留給我ICQ 教我寫VB 咧?
非常感謝....
我是這個禮拜才剛剛學VB的
現在家裡用的是VB6.0
基本介面都已經混熟了!!
不過...撰寫程式碼時...有一個白癡問題不會...
怎麼經由Click顯示其他的表單咧?
我做了一個按扭...
就是不知怎麼用 Show 還是 Load xxxx 碗糕的來顯示表單
........
還有誰自願留給我ICQ 教我寫VB 咧?
非常感謝....
網路連線計時軟體(編號：1211)
我想寫一個能計算網路連線時間的軟體，可是碰到兩個小問題。一、如何讓我的程式能背景作業，並且在系統列的地方出現小圖示？二、如何偵測電腦是否連上網路及切斷網路ㄚ？希望各位高手多多賜教。Thanks!!
怎樣在BMP中找出某一顏色值的座標?(編號：1205)
若把圖放在PicureBox用Point是可以找出某座標在BMP的顏色值.
Dim A as Long
A = Picture1.Point(20, 20)
Print A
但怎樣在BMP中找出某一顏色值的座標呢?
Dim A as Long
A = 16777215 '(白色)
A = Picture1.Point( X, Y )
Print X
Print Y
可是不行,而要怎樣做呢?
Dim A as Long
A = Picture1.Point(20, 20)
Print A
但怎樣在BMP中找出某一顏色值的座標呢?
Dim A as Long
A = 16777215 '(白色)
A = Picture1.Point( X, Y )
Print X
Print Y
可是不行,而要怎樣做呢?
Access Data Type vs SQL Server Data Type(編號：1204)
'最近本人將部分access資料轉換至SQL 7.0,請教各位高有關ACCESS 的YES/NO TYPE問題：
'YES / NO ACCESS DATA TYPE SQL SERVER DATA TYPE
'-------- ----------------- ---------------------
'YES -1 1
'NO 0 O
'假如 VB程式碼 SQL鈙述之中有類似語法是否重新改寫？
'
'
'SELECT * FROM tblSample Where ISEXIST = -1(是否存在=是)
'
''假如不寫改寫是否要將ACCESS' YES /NO DATA TYPE 改為 SQL 7.0' INT DATA TYPE？
'
' SPENCER YANG
'-------------
' 2000/02/04
'YES / NO ACCESS DATA TYPE SQL SERVER DATA TYPE
'-------- ----------------- ---------------------
'YES -1 1
'NO 0 O
'假如 VB程式碼 SQL鈙述之中有類似語法是否重新改寫？
'
'
'SELECT * FROM tblSample Where ISEXIST = -1(是否存在=是)
'
''假如不寫改寫是否要將ACCESS' YES /NO DATA TYPE 改為 SQL 7.0' INT DATA TYPE？
'
' SPENCER YANG
'-------------
' 2000/02/04
這些程式碼到底哪裡出錯了(編號：1202)
下面是我用Winsock寫的發訊程式
Cilent 端
物件:
winsock1 'winsock1物件
command1 '連線的
command2 '中斷的
command3 'Send Data 的
text1 '對方的IP
text2 '傳出去的訊息
程式碼:
Private Sub Command1_Click()
Dim IP As Long
IP = Val(Text1.Text)
Winsock1.RemoteHost = IP
Winsock1.RemotePort = 5240
Winsock1.LocalPort = 0
Winsock1.Connect
End Sub
Private Sub Command2_Click()
Winsock1.Close
End Sub
Private Sub Command3_Click()
Dim mydata As String
mydata = Text2.Text
Winsock1.SendData mydata
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub
Server端
物件:
Winsock1 'winsock物件
程式碼:
Private Sub Form_Load()
Winsock1.LocalPort = 5240
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim mydata As String
Winsock1.GetData mydata
If mydata = "close" Then
Winsock1.Close
Unload Me
Else
MsgBox mydata, 48, "VB"
End If
End Sub
但當我按下傳送(command3)時
確出現"對所要求的交易或要求而言,通訊協定(protocol)不適合或
連線狀態有誤"這到底是怎一回事?
但有時後又可正常執行,這到底是怎一回事?
請大家幫幫忙好嗎?
Thanks a lot
Cilent 端
物件:
winsock1 'winsock1物件
command1 '連線的
command2 '中斷的
command3 'Send Data 的
text1 '對方的IP
text2 '傳出去的訊息
程式碼:
Private Sub Command1_Click()
Dim IP As Long
IP = Val(Text1.Text)
Winsock1.RemoteHost = IP
Winsock1.RemotePort = 5240
Winsock1.LocalPort = 0
Winsock1.Connect
End Sub
Private Sub Command2_Click()
Winsock1.Close
End Sub
Private Sub Command3_Click()
Dim mydata As String
mydata = Text2.Text
Winsock1.SendData mydata
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub
Server端
物件:
Winsock1 'winsock物件
程式碼:
Private Sub Form_Load()
Winsock1.LocalPort = 5240
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim mydata As String
Winsock1.GetData mydata
If mydata = "close" Then
Winsock1.Close
Unload Me
Else
MsgBox mydata, 48, "VB"
End If
End Sub
但當我按下傳送(command3)時
確出現"對所要求的交易或要求而言,通訊協定(protocol)不適合或
連線狀態有誤"這到底是怎一回事?
但有時後又可正常執行,這到底是怎一回事?
請大家幫幫忙好嗎?
Thanks a lot
VB5 or VB6與Win98第二版較速配？(編號：1200)
安裝VB6時會有令人心驚的對話方塊出現，如置換檔案，重新啟動等，當然對用慣VB6寫程式的人是沒什麼，但對大都數人都會猶豫，到底要按確定或取消？安裝VB5就如同安裝一般程式一樣，不必猜也不必[冒險]試。但就整體功能或效率而言，VB6真的比VB5好嗎？還是祇多了幾個少數專業人士才用到的控制項或功能而已？
ActiveX DLL COM(編號：1199)
小弟簡單的用activex dll (因為是activex 新手)寫了一個 dll 用來 access data with sql server
**注意: 現在這個dll 與 sql server 只能使用在同一部電腦中.
請問這個 dll 能否稱為一個COM?
現在, 小弟想用這個dll 在網路給其它電腦使用, 看書得知, 只要將這個 dll 在windows
中用regsvr32.exe register後, 便能透 remote automation manager 供網路上不同電腦使用.
因為時間關係, 小弟不能細閱書藉所有有關知識, 只是略為一看有關example, 小弟試
過register 那個dll 後, 在同一部機中使用那個remote automation manager 也看不見 那個
dll 物件, 也曾嘗試在另一電腦中在remote automation manager 打上那台已register 了這
個dll 電腦的ip 仍然不能看到有關物件...
請問我當中是否欠缺了某些步驟? 若能要成功在網路中運用這個dll, 這個方法是否
正確, 而且有什麼要注意??
請各位高手, 能否指明小第的對或錯 和提出一點例子及步驟供小弟參考~
因為小弟一定要在短時間內成功做成這個試驗~! ＞= )
**注意: 現在這個dll 與 sql server 只能使用在同一部電腦中.
請問這個 dll 能否稱為一個COM?
現在, 小弟想用這個dll 在網路給其它電腦使用, 看書得知, 只要將這個 dll 在windows
中用regsvr32.exe register後, 便能透 remote automation manager 供網路上不同電腦使用.
因為時間關係, 小弟不能細閱書藉所有有關知識, 只是略為一看有關example, 小弟試
過register 那個dll 後, 在同一部機中使用那個remote automation manager 也看不見 那個
dll 物件, 也曾嘗試在另一電腦中在remote automation manager 打上那台已register 了這
個dll 電腦的ip 仍然不能看到有關物件...
請問我當中是否欠缺了某些步驟? 若能要成功在網路中運用這個dll, 這個方法是否
正確, 而且有什麼要注意??
請各位高手, 能否指明小第的對或錯 和提出一點例子及步驟供小弟參考~
因為小弟一定要在短時間內成功做成這個試驗~! ＞= )
救命ㄚ~~~~~~~~~~~(編號：1198)
我是ㄍ高中生啦~~~~
學校電腦課剛好上vb~~~
結果有一大半ㄉ同學都被當ㄌ說~~~
而我僥倖逃過ㄌ一劫~~~~~~~~~
所以要幫幫我們班ㄉ同學~~~
有那ㄍ好心人會寫各ㄍ進位轉換ㄉ程式(補考題目)~~
譬如說~~2進位轉4進位~~~~~
請好心人世能幫幫忙ㄚ~~~~~~
真ㄉ快被這搞瘋ㄌ說~~~~~~
學校電腦課剛好上vb~~~
結果有一大半ㄉ同學都被當ㄌ說~~~
而我僥倖逃過ㄌ一劫~~~~~~~~~
所以要幫幫我們班ㄉ同學~~~
有那ㄍ好心人會寫各ㄍ進位轉換ㄉ程式(補考題目)~~
譬如說~~2進位轉4進位~~~~~
請好心人世能幫幫忙ㄚ~~~~~~
真ㄉ快被這搞瘋ㄌ說~~~~~~
[vb]轉換不同格式資料庫的問題！執行效率好差喔..(編號：1197)
我用VB6.0寫一個把NOVEL SRVER 5.0(forDOS)
上的DBF檔轉換至ACCESS的MDB放到NT上
可是粉慢耶..轉一次五、六萬筆資料
居然要30秒到一分鐘真的好慢喔..
我的環境：
NTSERVER：P-200mmx 64mb
NOVEL SERVER 同上 32MB
網路卡 10MB/sec
我使用ADO2.0+ODBC3.51連
DAO3.51建立MDB
有沒有更快的方法呢..
再不更換硬體的情況下..
上的DBF檔轉換至ACCESS的MDB放到NT上
可是粉慢耶..轉一次五、六萬筆資料
居然要30秒到一分鐘真的好慢喔..
我的環境：
NTSERVER：P-200mmx 64mb
NOVEL SERVER 同上 32MB
網路卡 10MB/sec
我使用ADO2.0+ODBC3.51連
DAO3.51建立MDB
有沒有更快的方法呢..
再不更換硬體的情況下..
SQL指令....(編號：1194)
假設有一個SELECT FN1,FN2 FROM AA WHERE ....查詢結果
現在只要取此查詢結果的前一百筆資料
因為不能寫成SELECT TOP 100 * FROM (SELECT FN1,FN2 FROM AA WHERE ....) ===＞語法不合
也不能寫成SELECT TOP 100 FN1,FN2 FROM AA WHERE ....===＞因為這樣會回沒查詢出結果前,就已經篩選前100筆了
所以需先將查詢存成QUERYDEF,如下
1:SET QD=DB.CREATQUERYDEFS("QDN","SELECT FN1,FN2 FROM AA WHERE ....")
2:SELECT TOP 100 * FROM QDN
但是查詢存成QUERYDEF這方式速度太慢了,約花掉1秒,(同樣結果用select FN1,FN2 from....約只花0.0005秒)
有哪位高手肯指教,將TOP 與SELECT...這兩結果組合起來,該如何做才會快?
現在只要取此查詢結果的前一百筆資料
因為不能寫成SELECT TOP 100 * FROM (SELECT FN1,FN2 FROM AA WHERE ....) ===＞語法不合
也不能寫成SELECT TOP 100 FN1,FN2 FROM AA WHERE ....===＞因為這樣會回沒查詢出結果前,就已經篩選前100筆了
所以需先將查詢存成QUERYDEF,如下
1:SET QD=DB.CREATQUERYDEFS("QDN","SELECT FN1,FN2 FROM AA WHERE ....")
2:SELECT TOP 100 * FROM QDN
但是查詢存成QUERYDEF這方式速度太慢了,約花掉1秒,(同樣結果用select FN1,FN2 from....約只花0.0005秒)
有哪位高手肯指教,將TOP 與SELECT...這兩結果組合起來,該如何做才會快?
如何將SQL Server的Table欄位,設成Password格式呢？(編號：1193)
如何將SQL Server的Table欄位,設成Password格式呢？
也就是進入SQL Server後，看到的資料是加密的(如### or ***)
謝謝！！
也就是進入SQL Server後，看到的資料是加密的(如### or ***)
謝謝！！
mdb資料庫問題...(編號：1192)
form1 open table1,由form1再開form2
在form2中會update table1
待form2離開時,回到form1上作前後筆查詢時
update後的tabl1欄位並不會show出正確的
要離開form1後再進入時才會show出,可有解決方法?
在form2中會update table1
待form2離開時,回到form1上作前後筆查詢時
update後的tabl1欄位並不會show出正確的
要離開form1後再進入時才會show出,可有解決方法?
啊部喇請進:(編號：1191)
您的信我己收到,而且我也回信給您了.嗯!可能我們其中一個人的信箱有問題?
您的問題我在此再略答一次:
1.您的選項其實可以用ssTab控制項(引用Microsoft Tabbed Dialog Control元件)作畫面位置的安排,不但美觀而且可能只要二個Form即可,一個顯示歡迎畫面,一個用來填寫資料,如此一來您的表單間傳遞資料的問題也不存在了.
2.您所描述的資料覆蓋問題我還是不太明白?是否是指使用者會回頭再修改之前的資料,若是如此要看您的系統分析如何規劃:
2.1允許使用者修改之前的資料,但在送出最後結果之前檢查,若有錯誤則通知使用者,並清除錯誤或全部的資料,要求使用者再次填寫.
2.2不允許使用者修改之前的資料,您可設定每個控制項的Enabled屬性,如:
sub Check1_LostFouse()
Check1.Enabled = False
end Sub
LostFouse代表控制項失去駐點後立即無法再更改,在寫在何處要視您系統流程的規劃,建議您先繪好流程圖,再依此寫程式碼
Good Luck
您的問題我在此再略答一次:
1.您的選項其實可以用ssTab控制項(引用Microsoft Tabbed Dialog Control元件)作畫面位置的安排,不但美觀而且可能只要二個Form即可,一個顯示歡迎畫面,一個用來填寫資料,如此一來您的表單間傳遞資料的問題也不存在了.
2.您所描述的資料覆蓋問題我還是不太明白?是否是指使用者會回頭再修改之前的資料,若是如此要看您的系統分析如何規劃:
2.1允許使用者修改之前的資料,但在送出最後結果之前檢查,若有錯誤則通知使用者,並清除錯誤或全部的資料,要求使用者再次填寫.
2.2不允許使用者修改之前的資料,您可設定每個控制項的Enabled屬性,如:
sub Check1_LostFouse()
Check1.Enabled = False
end Sub
LostFouse代表控制項失去駐點後立即無法再更改,在寫在何處要視您系統流程的規劃,建議您先繪好流程圖,再依此寫程式碼
Good Luck
Error code : 3633(Can't load DLL: MSJTER35.DLL)(編號：1189)
程式有error時, 得到error code=3633, error message=Can't load DLL: MSJTER35.DLL, 但VB help並沒有這一個error code的說明, 請問這個error message是什麼意思, 或者我可以到哪裡查到相關資料. 謝謝您的幫忙.
ps. 我用的是Oracle DB.
ps. 我用的是Oracle DB.
About MSMQ(編號：1185)
小弟想請問一下..
當我寫Message到MSMQ Queue..(用MQ Explorer確定有寫入)
然後shutdown MSMQ service, and then restart MSMQ service..
卻發現MSMQ Queue裡的Message消失了...
想請問一下, MSMQ把Message寫到哪裡??
還有SQLServer裡 MQIS DataBase記載了什麼資訊....
當我寫Message到MSMQ Queue..(用MQ Explorer確定有寫入)
然後shutdown MSMQ service, and then restart MSMQ service..
卻發現MSMQ Queue裡的Message消失了...
想請問一下, MSMQ把Message寫到哪裡??
還有SQLServer裡 MQIS DataBase記載了什麼資訊....
使用後又發現新的問題(編號：1184)
感謝兩位前輩的指導,昨晚弄到快三點才弄清楚兩位所教的方法,哈哈一個初學者好像就應該如此喔,真的很感激兩位的指導,謝謝
我想再問一些問題,請各位前輩加以指導,設在Form3有一個Label或Text
其內容,想要是收集來自Form2及Form3中各個TextBox及CheckBox所累積而成,並且程式往下開啟的Form也將依據這個Label的內容來開啟
目前遇到的是我從書中引申例子加以修改,雖可以每按一個CheckBox的動
作 Label的Caption是會更改沒錯不過當我再按第二個CheckBox時卻發現把前面的資料蓋掉了,而且假設我選錯了CheckBox當我把再按一次時前一
個CheckBox所留下的資料也不見了,請問我該怎麼辦
我想再問一些問題,請各位前輩加以指導,設在Form3有一個Label或Text
其內容,想要是收集來自Form2及Form3中各個TextBox及CheckBox所累積而成,並且程式往下開啟的Form也將依據這個Label的內容來開啟
目前遇到的是我從書中引申例子加以修改,雖可以每按一個CheckBox的動
作 Label的Caption是會更改沒錯不過當我再按第二個CheckBox時卻發現把前面的資料蓋掉了,而且假設我選錯了CheckBox當我把再按一次時前一
個CheckBox所留下的資料也不見了,請問我該怎麼辦
作 rs.update 前如何check 該筆record是否重複(編號：1183)
請問諸先進,我以rs.addnew新增一筆record
在作rs.update 前我想以find方法
check資料是否重複,但一進存檔副程序,馬上發生資料庫
主索引重複的錯誤,請問如何解決?
ps.我以vb6.0 的ado聯接asses資料庫,並設定新增rs.addnew及存檔rs.update副程序
vb新手c.m.
在作rs.update 前我想以find方法
check資料是否重複,但一進存檔副程序,馬上發生資料庫
主索引重複的錯誤,請問如何解決?
ps.我以vb6.0 的ado聯接asses資料庫,並設定新增rs.addnew及存檔rs.update副程序
vb新手c.m.
VB狂人 再請教一下有關 ActiveX 的問題 !!(編號：1180)
先謝謝您的指導,我尚有幾個問題想請教一下,我之前提的 DLL 是單晶片廠商所提供的,作用是用VB去呼叫來做控制,原始碼也有提供,但不包含那個DLL的原始碼,那個dll是不用註冊的,在VB程式中直接宣告即可使用,(假如你願意看看,我可以Mail給你試試,不過我不知道您的Mail);一個是 ActiveX 元件 一個是不知道的 DLL 真是不知道要如何呼叫;問題 2 --＞ 您所提的 COM Utils 是用來做什麼的,希望您能稍微解釋一下 !!
問題繁雜 希望大家能幫忙解個惑 先謝啦 ~~~
問題繁雜 希望大家能幫忙解個惑 先謝啦 ~~~
關於 ActiveX DLL 的問題(編號：1179)
在ASP 中宣告了一個DLL之後，有幾種使用的方法，其中有一種情況是：
Set xxx = createobject("aaa.bbb")
xxx.p = "abc" ＜=== 注意這一行
p 是 xxx 的屬性之一
在 VB 中撰寫的話，要怎麼寫才能設定 p 為此物件的屬性之一。
我記得好像是 properties string ?????(or Public string ?????)(????? 為屬性名稱)，好像啦~~~!我不記得了!!
請各位高手麻煩幫我解答一下...!!
Set xxx = createobject("aaa.bbb")
xxx.p = "abc" ＜=== 注意這一行
p 是 xxx 的屬性之一
在 VB 中撰寫的話，要怎麼寫才能設定 p 為此物件的屬性之一。
我記得好像是 properties string ?????(or Public string ?????)(????? 為屬性名稱)，好像啦~~~!我不記得了!!
請各位高手麻煩幫我解答一下...!!
請教VB狂人,璉璉~(編號：1178)
不知前可否請前輩介紹一下關於VB進階物件的書籍
我逛了很多書局都找不到這類的書ㄝ,連阿柳(彭明柳)前輩的
"Visual Basic 6 專業版徹底研究"都沒有就Winsock這類物件做深入探討如果前輩您肯撥冗回附的話,繁請告知書名,出版社,出版社地址,劃撥帳號,因為我還是國中生,且又處窮鄉僻壤,不方便上台北購書~
謝謝~
我逛了很多書局都找不到這類的書ㄝ,連阿柳(彭明柳)前輩的
"Visual Basic 6 專業版徹底研究"都沒有就Winsock這類物件做深入探討如果前輩您肯撥冗回附的話,繁請告知書名,出版社,出版社地址,劃撥帳號,因為我還是國中生,且又處窮鄉僻壤,不方便上台北購書~
謝謝~
再次請教璉璉及紀文和先生或其他先進，有沒有辦法得知實際硬碟(F(編號：1176)
上次小弟有發問該問題，但璉璉及紀文和先生可能誤解小弟的意思，小弟的問題是，若小弟電腦裡真正有兩顆硬碟（但實際上卻用Fdisk切割成多顆邏輯硬碟，璉璉及紀文和先生所提的解法是對邏輯硬碟的計算大小)，而小弟是想知道實際上原來那兩顆硬碟的大小及可用空間，可否有解??（還是璉璉及紀文和先生的solution就可用了？)
謝謝﹗﹗﹗﹗
謝謝﹗﹗﹗﹗
用Crysatl Report 如何列印直式的報表??(編號：1175)
大家好：
我用Crysatl Report 想要印直式的A4公文報表，好像不行呢?
有沒有人有印過的，可不可告訴我要怎麼設?謝謝!!
我用Crysatl Report 想要印直式的A4公文報表，好像不行呢?
有沒有人有印過的，可不可告訴我要怎麼設?謝謝!!
treevieww 問題(編號：1173)
想請問"檔案總管"中之treeview_oledrapdrop
之事件,是如何寫的有人知道嗎?
因我一直搞不清楚treeview_oledrapdrop之目的地目錄如何判斷
之事件,是如何寫的有人知道嗎?
因我一直搞不清楚treeview_oledrapdrop之目的地目錄如何判斷
我已經困擾了兩週無法突破 請救救我(編號：1172)
我是一個剛學vb的新手,目前遇到了幾個問題一直無法突破,身邊又沒有任識vb高手,今天上網看到很多高手聚集在此如獲至寶,拜託拜託請幫幫我忙我想寫一個程式在form2內有將近40個TextBox,而在Form3中有將進百個
CheckBox和一個Label(或TEXTBOX)
請問要如何將Form2中Text所輸入的資料表現在Form3中的Label或List
Box中還有請問如何才能將CheckBox所選擇的資料轉成代用數字並且表示在Label或listBox中,因為下一個Form的開啟我想利用這些選項的內容為依據 這些問題以困擾了我兩三週翻了幾本書都無法解決 請高手們救救我
CheckBox和一個Label(或TEXTBOX)
請問要如何將Form2中Text所輸入的資料表現在Form3中的Label或List
Box中還有請問如何才能將CheckBox所選擇的資料轉成代用數字並且表示在Label或listBox中,因為下一個Form的開啟我想利用這些選項的內容為依據 這些問題以困擾了我兩三週翻了幾本書都無法解決 請高手們救救我
ActiveX元件的更新(編號：1170)
我設計了一個 ActiveX DLL 元件供 ASP 使用，但由於該元件已經在 ASP 中利用 CreateObject 建立物件，每次要更新覆蓋此元件時，都會發生共享違規，都必須先將電腦重開機後才能用新版的 DLL 檔覆蓋掉原來的檔案。
請問何人知道如何處理以上的情況而又不至於需要重新開機的呢？
感激不盡。
請問何人知道如何處理以上的情況而又不至於需要重新開機的呢？
感激不盡。
VB5 莫名的當機!! 不知有沒有人碰過!!(編號：1169)
VB5在撰寫程式碼時會適時的出現提示視窗讓你方便快速地選擇屬性事件或參數...等, 實在是非常地方便, 但不知何故? 最近這個功能有點狀況:
剛進VB時一切正常, 過一段時間後(數分鐘或者數十分鐘不等) 該功能就失去作用了! 這不打緊, 嚴重的是失去作用之後幾分鐘內VB必定當死, 必須按 Alt+Ctrl+Del(畫面上顯示VB程式是＜沒有回應＞) 將它結束工作, 重新再啟動VB 才會恢復正常, 但沒多久又發生以上的狀況! 我快瘋了! 不知有沒有人知道原因及解決方法!
PS.重灌VB還是一樣!!
剛進VB時一切正常, 過一段時間後(數分鐘或者數十分鐘不等) 該功能就失去作用了! 這不打緊, 嚴重的是失去作用之後幾分鐘內VB必定當死, 必須按 Alt+Ctrl+Del(畫面上顯示VB程式是＜沒有回應＞) 將它結束工作, 重新再啟動VB 才會恢復正常, 但沒多久又發生以上的狀況! 我快瘋了! 不知有沒有人知道原因及解決方法!
PS.重灌VB還是一樣!!
rs.Find 的問題(編號：1168)
請問一下, 在資料查詢中 rs.Find 除了可以用
比較(=,＞,＜,＜＞,＜=,＞=)
範圍(Between,Not Between)
列舉(IN,NOT IN)
萬用字元比較(Like, Not Like)
是否可以用
複合條件(AND,OR) 及 否定(NOT) 這兩種?
如不行可有解法?
比較(=,＞,＜,＜＞,＜=,＞=)
範圍(Between,Not Between)
列舉(IN,NOT IN)
萬用字元比較(Like, Not Like)
是否可以用
複合條件(AND,OR) 及 否定(NOT) 這兩種?
如不行可有解法?
動態影像畫線(編號：1165)
請問如何在動態影像中畫線
ex:我撥放一個mpg檔,希望在撥放出來的圖像中,繪製一個矩形範圍
請問應該如何處理?
說明:1.在Video Card(Video 影像)中,我可以將影像繪在我的From中,然後在在同樣的位置放置一個Pictrue Box,再利用Timer,定時
約0.1秒,繪製我所需要的矩形於PictureBox上,如此便可以看到Video
影像中出現我所需要的矩形框架;但是相同的方式若撥放mpg檔有時會
成功,有時會失敗....若撥放avi檔則不可行(Why?)
希望諸位先進給予指導....謝謝
ex:我撥放一個mpg檔,希望在撥放出來的圖像中,繪製一個矩形範圍
請問應該如何處理?
說明:1.在Video Card(Video 影像)中,我可以將影像繪在我的From中,然後在在同樣的位置放置一個Pictrue Box,再利用Timer,定時
約0.1秒,繪製我所需要的矩形於PictureBox上,如此便可以看到Video
影像中出現我所需要的矩形框架;但是相同的方式若撥放mpg檔有時會
成功,有時會失敗....若撥放avi檔則不可行(Why?)
希望諸位先進給予指導....謝謝
如何知道 Mouse 點在 Form 的外面(編號：1162)
如標題.
LostFocus 事件似乎非常不可靠. 請各位指點.
(我有一個 Form 包在一個UserControl內, 也收不到 WM_KILLFOCUS 的訊息)
LostFocus 事件似乎非常不可靠. 請各位指點.
(我有一個 Form 包在一個UserControl內, 也收不到 WM_KILLFOCUS 的訊息)
訂閱：
文章 (Atom)