Try this...


With MasterList.SelectedItem
myID = .Text
lblEmpNo = .SubItems(1)
txtLastname = .SubItems(2)
txtFirstname = .SubItems(3)
...

'if your list2.text is a Number
strSQL = "SELECT * FROM Usages WHERE UsageID = " & Cint(List2.Text) & ""


A String is a String...
A number is a Number..

mySQl connection string (requires a mysqlODBC driver)
Public Const sqlCon = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=<Server address>;DATABASE=<Database name>;USER=user;PASSWORD=password;OPTION=3"
...

first download mysql ODBC driver 3.51 and instal it to your machine.

' the connection string
Public Const sqlCon = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=<server address>;DATABASE=<database...

Jx,
he wants to generate the source code from the exe he has which is i think will give anyone a hell of a headache.

why do you wanna do this?

form1.show vbmodal

could you post your code? or attach a sample of your project?

Man, I ashamed of you. were both form the same country but PLEASE!!!! if you cant speak or write english, better do nothing. And Please take a english tutor.

"WAG MO IPAHIYA LAHI NATING MGA...

mySql Date Format is: Year-Month-Date

which is YYYY-MM-dd

Why not use a date picker instead?

how do you want it to be displayed?

Dim rs As ADODB.Recordset
Dim adoConn As ADODB.Connection

Set adoConn = New ADODB.Connection
adoConn.ConnectionString = sqlcon
adoConn.Open

Set rs = New...

Lets assume that you already have the recordset with the records inside it.

this is how i populate a combobox...

rs.Movefirst

Do While Not rs.EOF

cbo.AddItem...

Check this out..


Dim rs As ADODB.Recordset
Dim adoConn As ADODB.Connection
dim Str as string

Set adoConn = New ADODB.Connection
adoConn.ConnectionString = sqlcon...

On my Opinion... your gonna get the result of txtQty * txtPrice when the value entered on txtQty is greater than 1...

So...

if txtQty >= 1 then
lblval.caption=Val(txtQty) * Val(txtPrice)...

Whats an MDB v7.0??? Never heard of it...

hmmm.... This is somewhat can be explained here but it will take a long time.

kaya ko gawin to pero medyo matatagalan since im a bit bc. but i will try..

what database are you planning to use?

Using ADO is easier.. for me. ill try to solve your problem when im not bc ok?

Taga Pilipinas ka naman eh kaya hintay ka lang. medyo bc kasi ako ok?

Maybe later i could help you.

hmmm... seems like a school project ei? But why use DAO?

hmmm... Could you post your code? We'll see if we can help.

Calling this function will empty all the textboxes within a form...




Public Sub ControlStatus(frm As Form, stat As Boolean)
On Error Resume Next
Dim ctrl As Control

For...

what are you trying to get here? why do you want to add an item from a textbox?

hmmm... creating a table on runtime? what for?

Here is a code for editing a table on an access database. The logic is there, you just have to edit.


Dim conn As New ADODB.Connection
Dim dbPath As String
Dim strEdit As String

dbPath =...

Select CI.name,I.ServiceID,P.packagename,P.duration,P.price,[I.date],I.timeIn,I.timeOut
From CustInfo CI, InDate I, PakInfo P Where [Date] >= <DatePicker1> and [Date] <= <DatePicker2>....

Now to...

You will know a variables value on the immediate window simply by typing...

?myVariable

after pressing enter, the value of the variable will appear below

Dim Total As Integer


Private Function sum(a, b)
Dim c As Integer
sum = a + b

End Function

Private Sub Command1_Click()

for single line comments use single quotes( ' )

for multi line comments this is what i use

View --> Toolbars --> Edit

On your code highlight the lines you want to comment
then on Edit...

could you explain it on a clear way?

is this what you want to do?


If Form5.Visible = True Then
Command3.Caption = "Unhide History"
Unload Form5
Else
Form5.Show
Command3.Caption = "Hide History"
End If

Glad to help and please mark the thread closed

this is from Madboy of VBForums

Put a bracket on Date.

'easier way to open a recordset
rs.Open "Select Whofirst,Player, [Date], Status, Level, End_Time from yyyy", YourConnection, , adOpenDynamic, adLockPessimistic

Compared to Data Report, CR (Crystal Report) is more advance reporting tool. For more infos you can always go to http://www.businessobjects.com/ about CR's.

Glad to help and Please mark the thread closed. Thanks.

here it is...


Dim Rate As Double
Dim ElectricalUsage As Double
Dim TotalPayment As Double
'get Electrical Usage
ElectricalUsage = Val(txtLatestMeterReading.Text) -...

You got it already. The problem is you have to Code it. Lol. Let me look at this one.

Date you say?
TDBDate1.Text = Date