I made a program for my boss. It uses the calendar control. The calendar control works on my computer but when I give the program to my boss, the calendar control is not on his program. How do I get the calendar control on his computer?
↧
Microsoft calendar control
↧
[RESOLVED] Microsoft calendar control
I made a program for my boss. It uses the calendar control. The calendar control works on my computer but when I give the program to my boss, the calendar control is not on his program. How do I get the calendar control on his computer?
↧
↧
VB6 with Access Lan Sharing in Network
I developed a simple Program in VB6 With Access 2003 Database. I want to connect in a Lan Network of 2 Computers. My Database Size is 11MB. This programme is used for Retail Billing system. In System 1 Shared Folder named ACT that contains EXE file as well as database file. In System 2 I used EXE file only that system should fetches data from data base file residing in system 1
System1 computer name is computer
System 1 shared folder named ACT
My problem is
1. System 2 EXE file is working , buy if system 2 is idle for 10 minutes Exe file hanged. I have to restart EXE file once again.
( There is no problem in system 2 only exe file hanging if idle
For more than minutes). If I continuously working in system 2 there is no problem in billing.
My code for data base connection (public function used)
Public Function opendb()
Set CN = New ADODB.Connection
CN.Open "provider=Microsoft.jet.OLEDB.4.0;jet OLEDB:database password=abc1311 ; data source=\\computer\ACT\sample.mdb"
End Function
My code for form load event and record set usage and fetching.
Private Sub Form_Load()
modDB.opendb
rs.Close
Private Sub txtrcno_LostFocus()
On Error Resume Next
If txtrcno.Text = "" Then
MsgBox " Please Any Receipt Number "
txtrcno.Text = ""
txtrcno.SetFocus
End If
If optmanual.Value = True Then
Set rs4 = New ADODB.Recordset
sql = "select rno from income where rno= '" & Trim(txtrcno.Text) & "'"
rs4.Open sql, CN, adOpenStatic, adLockPessimistic
If rs4.RecordCount >= 1 Then
MsgBox " Receipt Number already Entered "
txtrcno.Text = ""
txtrcno.SetFocus
Exit Sub
End If
End If
End Sub
System1 computer name is computer
System 1 shared folder named ACT
My problem is
1. System 2 EXE file is working , buy if system 2 is idle for 10 minutes Exe file hanged. I have to restart EXE file once again.
( There is no problem in system 2 only exe file hanging if idle
For more than minutes). If I continuously working in system 2 there is no problem in billing.
My code for data base connection (public function used)
Public Function opendb()
Set CN = New ADODB.Connection
CN.Open "provider=Microsoft.jet.OLEDB.4.0;jet OLEDB:database password=abc1311 ; data source=\\computer\ACT\sample.mdb"
End Function
My code for form load event and record set usage and fetching.
Private Sub Form_Load()
modDB.opendb
rs.Close
Private Sub txtrcno_LostFocus()
On Error Resume Next
If txtrcno.Text = "" Then
MsgBox " Please Any Receipt Number "
txtrcno.Text = ""
txtrcno.SetFocus
End If
If optmanual.Value = True Then
Set rs4 = New ADODB.Recordset
sql = "select rno from income where rno= '" & Trim(txtrcno.Text) & "'"
rs4.Open sql, CN, adOpenStatic, adLockPessimistic
If rs4.RecordCount >= 1 Then
MsgBox " Receipt Number already Entered "
txtrcno.Text = ""
txtrcno.SetFocus
Exit Sub
End If
End If
End Sub
↧
MSDATGRD.OCX problem in Windows 10 from Outlook form 2016 with VBA
Hi All :wave:
I've a project written in VBA in OUTLOOK 2010.
This project uses a UserForm with a DataGrid ActiveX Control 6.0 (SP6).
The OCX is MSDATGRD.OCX.
Now we have to pass everything to Windows 10 with Outlook 2016 and the ocx doesn't work anymore.
I tried different solutions but seems it can not be registerd correctly (we've already registered it and de-register with regsvr32...).
msdatgrd.ocx is too old, I know.... Which is the equivalent gridView that I can use in VBA in a UserfForm under Windows 10 without any problems?
Thanks. Gandalf :)
I've a project written in VBA in OUTLOOK 2010.
This project uses a UserForm with a DataGrid ActiveX Control 6.0 (SP6).
The OCX is MSDATGRD.OCX.
Now we have to pass everything to Windows 10 with Outlook 2016 and the ocx doesn't work anymore.
I tried different solutions but seems it can not be registerd correctly (we've already registered it and de-register with regsvr32...).
msdatgrd.ocx is too old, I know.... Which is the equivalent gridView that I can use in VBA in a UserfForm under Windows 10 without any problems?
Thanks. Gandalf :)
↧
DMM output decoding (RS232)
Hi everyone, I am new to vb6. Currently, I am working on a small project, as part of it I have to decode the data received from a DMM (Digitek DT 4000ZC) via RS232. After doing a bit of search, I found that the DMM uses FS9721_LPS chip which send output in the form of 14 byte packets.
Following is the link:
https://sigrok.org/wiki/Multimeter_ICs
Has anyone worked along these lines before? Can you please get me started with few lines of code.
Thanks.
Following is the link:
https://sigrok.org/wiki/Multimeter_ICs
Has anyone worked along these lines before? Can you please get me started with few lines of code.
Thanks.
↧
↧
Msdn
Does anyone know where I can get a copy of the MSDN?
↧
[RESOLVED] Msdn
Does anyone know where I can get a copy of the MSDN?
↧
[RESOLVED] Icon for my project
Does anyone know a place where I can get a picture icon for my project? I have tried all over the internet and can't seem to find a site that I can download an icon pic for my project.
↧
Problem with Inno Setup
I know that this is not a visual basic 6 question but if anyone knows anything about Inno Setup. I'm trying to put together a installation program using Inno setup but it won't put the icon on my desktop. Anyone who can figure this out for me I will pay $25.00
Thanks
Scratchmyhead.
Thanks
Scratchmyhead.
↧
↧
Is Visual Basic.Net the next step up from VB6?
I have visual basic 6 and have been using it for some time. I was wanting to upgrade to visual basic.net Anyone have any suggestions. If I install Visual Basic.Net, it wont delete VB6 will it?
↧
[RESOLVED] Problem with Inno Setup
I know that this is not a visual basic 6 question but if anyone knows anything about Inno Setup. I'm trying to put together a installation program using Inno setup but it won't put the icon on my desktop. Anyone who can figure this out for me I will pay $25.00
Thanks
Scratchmyhead.
Thanks
Scratchmyhead.
↧
[RESOLVED] Does anyone know where I can get visual basic.net
Does anyone know where I can get a copy of visual basic.net?
↧
[RESOLVED] Installing VB.Net
If I download VB.Net and install, it won't delete VB6 will it?
↧
↧
Open Web page not message ActiveX
Hello :wave:
help my :blush:
The same way but by codes
Internet Options > Security > Custom Level > and Set ActiveX Controls and Plugins to Disable
Automatic code ?
Private Sub Command2_Click()
Dim obj As Object
Set obj = CreateObject("InternetExplorer.Application")
obj.Navigate2 App.Path & "\index.htm"
obj.Visible = True
End Sub
Example
![Name: 22.jpg
Views: 31
Size: 23.0 KB]()
help my :blush:
The same way but by codes
Internet Options > Security > Custom Level > and Set ActiveX Controls and Plugins to Disable
Automatic code ?
Private Sub Command2_Click()
Dim obj As Object
Set obj = CreateObject("InternetExplorer.Application")
obj.Navigate2 App.Path & "\index.htm"
obj.Visible = True
End Sub
Example
↧
Problem with Outlook
Hi,
From my project I make a E-mail with attachment and than it goes to the outbox of Outlook.
This did work a long time good.
Since about two month I get the error 429 ActiveX component can't create object.
I have no idea why. Please help
Below is the code I use:
From my project I make a E-mail with attachment and than it goes to the outbox of Outlook.
This did work a long time good.
Since about two month I get the error 429 ActiveX component can't create object.
I have no idea why. Please help
Below is the code I use:
Code:
Dim patha As String
Dim result As Integer
Dim displaymessage As Boolean
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
patha = "C:\temp\HATA814147586L02LA16010002160301.xml"
displaymessage = True
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Add the To recipient(s) to the message.
Temp = "xxxx@xxxxx.nl"
Set objOutlookRecip = .Recipients.Add(Temp)
objOutlookRecip.Type = olTo
' ' Add the CC recipient(s) to the message.
' Set objOutlookRecip = .Recipients.Add("me@...")
' objOutlookRecip.Type = olCC
' Add the BCC recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add("aaaaaa@aaaaaaaa.nl")
objOutlookRecip.Type = olBCC
' Set the Subject, Body, and Importance of the message.
.Subject = "Hierbij zenden wij de gegevens"
.Body = "This is the body of the message." & vbCrLf & vbCrLf
.Importance = olImportanceHigh 'High importance
' Add attachments to the message.
'If Not IsMissing(AttachmentPath) Then
Set objOutlookAttach = .Attachments.Add(patha)
'End If
' Resolve each Recipient's name.
For Each objOutlookRecip In .Recipients
objOutlookRecip.Resolve
Next
' Should we display the message before sending?
If displaymessage Then
.Display
Else
.Save
.Send
End If
End With
Set objOutlook = Nothing
End Select
..↧
Making my project file larger
Does anyone know how to make my project file size to increase? I made a new program but it is not a very large file.
↧
[RESOLVED] Making my project file larger
Does anyone know how to make my project file size to increase? I made a new program but it is not a very large file.
↧
↧
Can Somebody convert below code snippet to vb6
Code:
procedure TFPProcess.SaveFPData(AQuery: TADOQuery; AFingerID: Integer; AFPData:
OleVariant);
var
pData: PChar;
begin
with AQuery do begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM zkFingerPrint WHERE FingerID = ' + IntToStr(AFingerID));
Open;
if IsEmpty then
Append
else
Edit;
FieldByName('FingerID').Value := AFingerID;
//Save the fingerprint template
with TBlobStream(CreateBlobStream(FieldByName('Template'), bmWrite)) do begin
pData := VarArrayLock(AFPData);
try
Write(pData^, VarArrayHighBound(AFPData, 1) - VarArrayLowBound(AFPData, 1) + 1);
finally
VarArrayUnlock(AFPData);
end;
Free;
end;
Post;
Close;
end;
end;Code:
procedure TFPProcess.GetFPData(AQuery: TADOQuery; AFingerID: Integer; var AFPData:
OleVariant);
var
pData: PChar;
begin
with AQuery do begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM zkFingerPrint WHERE FingerID = ' + IntToStr(AFingerID));
Open;
//read-out data
if not IsEmpty then
with TBlobStream(CreateBlobStream(FieldByName('Template'), bmRead)) do begin
AFPData := VarArrayCreate([0, Size + 1], varByte);
pData := VarArrayLock(AFPData);
try
Read(pData^, Size);
finally
VarArrayUnlock(AFPData);
end;
Free;
end;
Close;
end;
end;↧
Visual Basic 6 program can communicate serial com port on windows 7?
Hi folks,
Just like the title indicate, can VB6 program be able to communicate to serial com port
on Windows 7 32-bit system ?
If it can, anyone know the setup for it.
Thanks in advance,
BSDME
Just like the title indicate, can VB6 program be able to communicate to serial com port
on Windows 7 32-bit system ?
If it can, anyone know the setup for it.
Thanks in advance,
BSDME
↧
How to get GetCursor and SetCursor together...
I have this code where it can give me the range of my cursor but I also want to insert cursor or set my cursor within that range, how to call the x and y with SetCursor? After that I want to insert/attach a string in to it, i.e. Text=X and Y, do I need to use Dim as Range or Dim as Long? I tried SetCursorPos PT.x,PT.y and SetCursorPos Text1.text, but it gives me error or Invalid outside Procedure...
Code:
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Timer1_Timer()
Dim PT As POINTAPI
GetCursorPos PT
Text1.Text = "(" & PT.x & "," & PT.y & ")"
End Sub↧