Exclusively for Visual Basic 6.0 Programmers Only!

[miggy93]

mga sir, pano po magconnect sa database using connection string? ung pong relative ang file location ng database and hindi specific.

 

[karloy]

ganito kasi ginawa ko dati dyan


Dim c As String
rs1.MoveLast
c = rs1.Fields("ID")
Label3.Caption = c + 1

so kada form load mo kung ano yung last value + 1 sa database mo yun ang lalabas sa Label3

kuya pano po pag walang laman un database ko?

 

[frozenice13]

kuya pano po pag walang laman un database ko?

pag number ang format ng field mo sa database hindi ata siya pwedeng blangko

dapat ata 0

di po ako ganun ka sure a

@mark no problem buti nakatulong ako

 

[knowmeifyou]

mga sir, pano po magconnect sa database using connection string? ung pong relative ang file location ng database and hindi specific.

app.path ba sinasabi mo or pwedeng ibrowse ni system ung database?

 

[miggy93]

app.path ba sinasabi mo or pwedeng ibrowse ni system ung database?

ung pwedeng ibrowse ang database. nagawa kse ako ng inventory system, ung pwede mong ibrowse and iupdate ang data such as stock, price, etc.

 

[nhojyer28]

Sir Penge po Installer ng Visual Basic 6.0..

Feedback poh...

Nice Thread Thanks

 

[stabilizer]

napagana ko na sir

eto nilagay ko

'General Declaration ko
Option Explicit
Private cn As ADODB.Connection 'this is the connection object
Private rs As ADODB.Recordset 'this is the recordset object


sa form load

Set cn = New ADODB.Connection
'specify the connectionstring
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & "C:\Users\MARK\database.mdb"
'open the connection
cn.Open

'instantiate the recordset object
Set rs = New ADODB.Recordset
'open the recordset
With rs
.Open "data1", cn, adOpenKeyset, adLockPessimistic, adCmdTable
End With

sa vote()

Dim a As Integer
Dim b As Integer


If optitem1.Value = True Then
rs.Fields("vote1") = Val(lblvote1.Caption) + 1
ElseIf optitem2.Value = True Then
rs.Fields("vote2") = rs.Fields("vote2") + Val(lblvote2.Caption)

kung ayaw mo ng declaration
pwede mong gamitin ganito

adodc1.recordset.fields("vote1")

SIR TAMA GA PO ANG PAG TUTULOY KO?? ALIN PO BA ANG GAGAMITIN KO SA DLAWA??ITO PO BA rs.Fields("vote1") = Val(lblvote1.Caption) + 1 O ITO rs.Fields("vote2") = rs.Fields("vote2") + Val(lblvote2.Caption)

 

[karloy]

pag number ang format ng field mo sa database hindi ata siya pwedeng blangko

dapat ata 0

di po ako ganun ka sure a

@mark no problem buti nakatulong ako

salamat po.

 

[Nightdeath]

Guys, patulong naman po,
may alam po ba kayong code kung pano makuha ung list ng running applications?
Hindi po kasama ung mga process, un lang nasa taskbar sana,

sa vb 2010 ganito ung implementation niya

For Each p As Process In Process.GetProcesses
       If p.MainWindowTitle <> "" Then ListBox1.Items.Add(p.MainWindowTitle)
Next

pano po kaya sa vb6? salamat po sa makaktulong!

 

[stabilizer]

SIR PATULONG NAMN PO ULIT BAKIT D AKO MAKAPAGSAVE
NAGANAN PO SYA PAG WALA ANG LINE NA ITO
Adodc1.Recordset.Fields("vote1") = lblvote1.Caption
Adodc1.Recordset.Fields("vote2") = lblvote2.Caption
Adodc1.Recordset.Fields("vote3") = lblvote3.Caption
Adodc1.Recordset.Fields("vote5") = lblvote5.Caption
Adodc1.Recordset.Fields("total") = lbltotal.Caption

KASO PO AY NGANA SYA PAG ITO LANG ANG LINE
Adodc1.Recordset.Fields("txtitem1") = txtitem1.Text
Adodc1.Recordset.Fields("txtitem2") = txtitem2.Text
Adodc1.Recordset.Fields("txtitem3") = txtitem3.Text
Adodc1.Recordset.Fields("txtitem4") = txtitem4.Text
Adodc1.Recordset.Fields("txtitem5") = txtitem5.Text

ITO LANG ANG MASASAVE SA DATABASE KO PANO KO KAYA MASASAMA YUNG IBA KO???

 

[ton06]

ts..parequest nga poh ng Puzzle Slider na meron 1 to 3 level..tas may sound na dn.. thanks

 

[benjar30]

cnu po nakaka alam ng code ng speed meter
at meron pa ako itatanong paano ung cmd result doon mapupunta sa loob ng textbox.... thankss

 

[sentihtic]

pa help po mga master pa hingi naman po ng sample daily time record for employee plssssssssssss.

 

[agentmarc09]

gooday mag sir pahelp naman po dito dami pa po asi error ehh

like

>>pag nidelete ko yung first data may error
>> and sa edit din po
pa fix naman ng mga error yung lang po salamat

nakaattach po yung gawa ko salamat
sana may tumulong

 

[stabilizer]

Sir baka may mga picture kau dyan para sa user login
need lang po..hehe

 

[lesterluma]

Questions:

1st part :
1. 1st click - form1.show vbmodal.
2. In form1. - Click button then form1.hide and form2.show.
3. close form2.

2nd part :
1. 1st click - form3.show vbmodal
2. In form3. - Click button then form3.hide and form2.show.
3. close form2.

Question:
Gusto ko sana everytime na isasarado(QueryUnload/close) ko yung form2. dapat lalabas yung nakahide na form.
Else-if yung code nun dba? pero paano po ba yung condition nun? thanks. sana may tumulong.

 

[lesterluma]

PAHELP PO SIR sa SQL(QUERY):

paano ko madidisplay itong output ko sa query!, thanks ka SB. see attached pix.


okay ,dapat ganito output...

OUTPUT:

site_id date_survey
SV01026LZ_AC 1/9/2007 - 1/16/2007
SV01026LZ_AC 2/6/2007 - 2/13/2007



paano po yan sa query thanks..


View attachment 134604

 

[frozenice13]

PAHELP PO SIR sa SQL(QUERY):

paano ko madidisplay itong output ko sa query!, thanks ka SB. see attached pix.


okay ,dapat ganito output...

OUTPUT:

site_id date_survey
SV01026LZ_AC 1/9/2007 - 1/16/2007
SV01026LZ_AC 2/6/2007 - 2/13/2007



paano po yan sa query thanks..


View attachment 788691

SELECT  site_id, date_survey FROM test.tb1 
where date_survey between '2007-01-09' and '2007-01-16' 
order by date_survey asc

eto sir pwede mo sigurong i try di po ako sure ah

 

[lesterluma]

SELECT  site_id, date_survey FROM test.tb1 
where date_survey between '2007-01-09' and '2007-01-16' 
order by date_survey asc

eto sir pwede mo sigurong i try di po ako sure ah

thanks. pero sa tingin ko sa binigay nyong code.. ididisplay lang nya yung pagitang ng '2007-01-09' and '2007-01-16'..

between '2007-01-09' and '2007-01-16'

yung expected output ko po kasi ganito eh.



OUTPUT:

site_id date_survey
SV01026LZ_AC 1/9/2007 - 1/16/2007
SV01026LZ_AC 2/6/2007 - 2/13/2007

 

[frozenice13]

na try nyo ba yan sir ? kasi kung ang expected out nyo is
january 9 - 16

between 9 - 16 ang lalabas dyan is 9 10 11 12 13 14 15 16

yan po may example ako