Exclusively for Visual Basic 6.0 Programmers Only!

[yeshin12]

cnu po my system na ATM d2 using vb6.0 PL also? bka meron n kaung nagawa.. pwede mgpapasa ng codes? ) PLEASE salamat po ^_^ i really appreciate it if you help me with my favor. Thanks Again D

 

[agentmarc09]

hirap na hirap na ko.,d ko parin siya magawa
help nmn po ng code plsss balak ko po kasi pag nag search ako ng contact number ehh lalabas ung detail sa another form

 

[bryan1207]

hirap na hirap na ko.,d ko parin siya magawa
help nmn po ng code plsss balak ko po kasi pag nag search ako ng contact number ehh lalabas ung detail sa another form

Try mo muna ito.
Pag click_event ng button diba my textbox ka sa current form? Assuming name niya is oTextName.Text and the 2nd form is frm2.

Try mo muna ang hard coded.
Try this :

oTextName.Text = frm2.oTextNam.Text
frm2.Show

 

[jskhulitz]

hirap na hirap na ko.,d ko parin siya magawa
help nmn po ng code plsss balak ko po kasi pag nag search ako ng contact number ehh lalabas ung detail sa another form

kung ok ka na dun sa part ng database connection and select query para mahanap yung records using their contact number, ibato mo na lang yung content nung record na yun dun sa mga objects na nasa ibang form

like

Form5.text1.text = rs!prodName
form5.text2.text = rs!prodDescription

gamitin mo lang yung form name as reference para mas maintindihan ni VB na hindi sya maghahanap within the same form

 

[reiner28]

MYSQL po ako. hehehe. thanks!

hindi boss , pang ms access yang connection string n yan . dba sbi mo mysql gamit mo ? gn2 format nya .
ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER="<d2 ung IP>";DATABASE="<DBName;USER="<username> ";PASSWORD="<Password>";OPTION=3;"

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=192.168.0.101\dbaging.mdb;Persist Security Info=False

ganyan ba?[/QUOTE]

thanks! update ko dito kung gumana. [/QUOTE]

para mas madali gumamit ka ng odbc connector... una donwload ka ng odbc connector sa mysql website, tapos after ma DL, install mo yung odbc connector sa pc kung saan nandoon ung system or program, tapos after ma install ng odbc conn.., go to control panel>administrative tools>data source (odbc)

then go to system dsn tab then click add > then click mo yung mysql odbc 5.1 driver tapos click finish..

after that may lalabas na window na mag fifill-up ka ng info which is ung config para sa data source mo using odbc connector

lagay mo data source name (kahit ano gusto mo DSN yan ang lalagay mo sa connection string mo), tci/ip server (lagay mo yung ip ng pc kung saan nandun ung mysql database), tapos ung user (default nun ay root, its up to you kung ano ang nilagay mo..), then password (kung ano password na nilagay mo sa mysql database), and last yung database mo... just use the drop down list and choose ur database... dyan mo malalaman kung ok yung info na nilagay mo... then test mo kung working na...

tapos sa connection string mo ito lagay mo:

Provider=MSDASQL.1;Persist Security Info=False;Data Source=(name nung datasource na nilagay mo sa odbc connetor)

sana makatulong sau

post mo kung gumana or hindi...

btw sa firewall mo excemp mo yung port ng mysq which is 3306

gud to go na yan

 

[rayzle16]

assuming you already have your connectionstring, palitan mo lang yung value ng servername ito dapat yung name ng pc kung nasaan ang mysql. syempre ganun pa rin sa username and password. ang maiiba lang is yung servername kung dati ay localhost, di na yan uubra.

Paano po i-connect ang VB6 kung ang database ay nasa ibang PC?

Bali ganito po kasi yun, may PC1 at PC2 ako. Yung MYSQL database ay nasa PC1 tapos yung application ko ay kailangan kumonek sa database na nasa PC1. Paano po yung connection string nun? Thanks!

 

[agentmarc09]

kung ok ka na dun sa part ng database connection and select query para mahanap yung records using their contact number, ibato mo na lang yung content nung record na yun dun sa mga objects na nasa ibang form

like

Form5.text1.text = rs!prodName
form5.text2.text = rs!prodDescription

gamitin mo lang yung form name as reference para mas maintindihan ni VB na hindi sya maghahanap within the same form

sir salamat pu pero ang problema kopo eh ung search pag ng type ako ng account n0. Eh ipapakita nya ung mga detail so d0on wala na pong problema dun nlng tlga sa search dko pa po kc gaano alam ung sql.. Pde penge ng sample para mkakuha ng idea..tnx

 

[maritesmacute]

pano magkaron ng computation dito?

data report and data environment tu hehe

 

[jskhulitz]

maglagay ka ng computation mo sa sql mo sa dataenvironment

 

[rayzle16]

you can use formula fields kung may computation.

 

[jskhulitz]

sir salamat pu pero ang problema kopo eh ung search pag ng type ako ng account n0. Eh ipapakita nya ung mga detail so d0on wala na pong problema dun nlng tlga sa search dko pa po kc gaano alam ung sql.. Pde penge ng sample para mkakuha ng idea..tnx

use sql such as this

"select * from table where accNum='" & text1.text & "'"

 

[white shadow]

..ask ko lang po panu po ba i'animate yung from title na wlang tigil as long as na nakaran yung program?

 

[maritesmacute]

ok na ko xDhttp://msdn.microsoft.com/en-us/library/aa262325(v=VS.60)

 

[arnold15]

Bakit ayaw gumana yung Connection string para mysql na nasa ibang computer ang server. Tama naman. Can't connect daw.

 

[anbonn]

bro paturo naman ng vb 6.0 to ms access at paanu ang paggawa ng data report pa tutor naman boss

 

[maritesmacute]

bro paturo naman ng vb 6.0 to ms access at paanu ang paggawa ng data report pa tutor naman boss

nakita mo nmn yung link na binigay q dba,>? yun na yung tutorial dun,

 

[arnold15]

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=192.168.0.101\dbaging.mdb;Persist Security Info=False

ganyan ba?

thanks! update ko dito kung gumana. [/QUOTE]

para mas madali gumamit ka ng odbc connector... una donwload ka ng odbc connector sa mysql website, tapos after ma DL, install mo yung odbc connector sa pc kung saan nandoon ung system or program, tapos after ma install ng odbc conn.., go to control panel>administrative tools>data source (odbc)

then go to system dsn tab then click add > then click mo yung mysql odbc 5.1 driver tapos click finish..

after that may lalabas na window na mag fifill-up ka ng info which is ung config para sa data source mo using odbc connector

lagay mo data source name (kahit ano gusto mo DSN yan ang lalagay mo sa connection string mo), tci/ip server (lagay mo yung ip ng pc kung saan nandun ung mysql database), tapos ung user (default nun ay root, its up to you kung ano ang nilagay mo..), then password (kung ano password na nilagay mo sa mysql database), and last yung database mo... just use the drop down list and choose ur database... dyan mo malalaman kung ok yung info na nilagay mo... then test mo kung working na...

tapos sa connection string mo ito lagay mo:

Provider=MSDASQL.1;Persist Security Info=False;Data Source=(name nung datasource na nilagay mo sa odbc connetor)

sana makatulong sau

post mo kung gumana or hindi...

btw sa firewall mo excemp mo yung port ng mysq which is 3306

gud to go na yan[/QUOTE]

Host "192.168.x.x" is not allowed to connect to MySQL server. Laging ganito yung sinasabi sakin. Bakit? Inadd ko na naman yung port 3306 sa firewall sa parehas na PC. Kailangan ba kung ano yung ginawa ko sa isang pc ganun din sa isa? O sa isang pc lang dapat?

 

[maritesmacute]

pano ko makukuha yung total nitong kolokoy na to>?

 

[redarlow]

gud pm po, phelp nmn po, pano ko po b mllman n ung last date ng current month eh mg fafall s weekends, for accounting system po sna. den pg na scan nya n weekend, the date before the last date kylangan nya n mg end of month... pls.. help me..

e2 po ung code ko...

If Format(Sysdate, "d") = monthend Then
lbl1.Caption = "System will now processing Month end....."
Call endofmonth
End If

Private Sub endofmonth()

If mDBRS1.State = 1 Then mDBRS5.Close
str = "Select * from tbldailyend order by cbranchcode asc "
mDBRS1.Open str, mDBCon2, adOpenForwardOnly, adLockOptimistic

With mDBRS1
If Not .EOF Then
.MoveFirst
While Not .EOF
branchid = !cbranchcode
id = !cid
If !clsacctcode = "" Then
acctname = !cglAcctname
acct = !cglacctcode
mbal = !nbeginning
If mDBRS2.State = 1 Then mDBRS2.Close
mDBCon2.CommandTimeout = 500
str = "Update tblmonthend set month" & monthnow & " = '" & mbal & "' where id = '" & cid & "' and cbranchcode = '" & branchid & "' and cglacctname = '" & acctname & "'"
mDBRS2.Open str, mDBCon2, adOpenForwardOnly, adLockOptimistic
lblinfo.Caption = acctname + " " + "with branchcode" + branchid + " " + "completed."
Else
acctname = !cslacctname
acct = !cglacctcode
mbal = !nbeginning
If mDBRS2.State = 1 Then mDBRS2.Close
mDBCon2.CommandTimeout = 500
str = "update tblmonthend set month " & monthnow & " = '" & mbal & "' where id = '" & cid & "' and cbranchcode = '" & branchid & "' and cslacctname = '" & acctname & "'"
mDBRS2.Open str, mDBCon2, adOpenForwardOnly, adLockOptimistic
lblinfo.Caption = acctname + " " + "with branchcode" + branchid + " " + "completed."
End If

Wend
End If
End With


End Sub

ung sysdate po ung serverdate
ung monthend po e ung variable n gnmit k pra mkuha ung last date ng month...
pls... patulong nmn po.... salamat...

 

[rayzle16]

use function IsDate(). ang last day ng month either 30 or 31 and ang feb 28 lang at pag leap year 29. simulan mo na lang lagi sa 31 tapos i-test mo using isDate function, pag true yan na yung last day, otherwise minus 1 mo lang hanggang sa tumama.
to check if weekend, use:

if Weekday(varDate) = vbSaturday then