Exclusively for Visual Basic 6.0 Programmers Only!

[roxietot]

mga sir pahelp sa pos system ko. vb6+ access sya dati tpos nag transfer ako sa sql. my konting error sa ordering form. nag manual insert ako ng 1 data sa bawat table para my mabasa sya pero current data deleted padin. baka po pwede pahelp

Do While Not rs.EOF
.ListItems.Add , , rs![productID]

Set rs1 = New Recordset
rs1.Open "select * from tblcategory where categoryID=" & rs!categoryID, con, adOpenStatic, adLockOptimistic

.ListItems.Item(.ListItems.Count).ListSubItems.Add , , rs1![category]
.ListItems.Item(.ListItems.Count).ListSubItems.Add , , rs![ProductName]

Set rs2 = New Recordset
rs2.Open "select * from tblprice where price=" & rs!sellingprice, con, adOpenStatic, adLockOptimistic

' .ListItems.Item(.ListItems.Count).ListSubItems.Add , , rs2![price]
rs.MoveNext
Loop

error po ung naka comment
sa access database is okay naman po. d2 lang sa mysql nageerror

 

[silversaint07]

ganto ung logic q pag nagtype ng username may lumalabas sa text1 value sa form 1 tpos pag click ng login ang gusto q ung value ng textbox sa form1 lalabas sa textbox sa form2

pa help po vb6 xampp mysql db

=markizzmo13

Gumamit ka ng timer Ilagay mo sa form 2 tapos dun sa property nya i-set mo yung interval nya sa (one) 1 ...

then sa loob ng timer itype mo yung code na to...


Private Sub Timer1_Timer()

form2.text1.text = form1.text1.text

End Sub

 

[silversaint07]

ano po ba ang cause ng ganitong Error ..

GUsto ko po kasi ibato sa Excel yung mga data sa msAcces ..

nung i-Try ko nang i-run ganito yung lumalabas ..

 

[a4tech501]

mga sir pahelp sa pos system ko. vb6+ access sya dati tpos nag transfer ako sa sql. my konting error sa ordering form. nag manual insert ako ng 1 data sa bawat table para my mabasa sya pero current data deleted padin. baka po pwede pahelp


error po ung naka comment
sa access database is okay naman po. d2 lang sa mysql nageerror

Madami pala possible reason para mag-error ung code u. Hindi u na-check kung may result ung recordsets, tapos hindi din nai-close ung mga recordsets. Please try this:

Set rs1 = New Recordset
Set rs2 = New Recordset

Do While Not rs.EOF
.ListItems.Add , , rs![productID]

rs1.Open "select * from tblcategory where categoryID=" & rs!categoryID, con, adOpenStatic, adLockOptimistic

.ListItems.Item(.ListItems.Count).ListSubItems.Add , , rs1![category]
.ListItems.Item(.ListItems.Count).ListSubItems.Add , , rs![ProductName]

rs2.Open "select * from tblprice where price=" & rs!sellingprice, con, adOpenStatic, adLockOptimistic

If rs2.EOF = False Then
.ListItems.Item(.ListItems.Count).ListSubItems.Add , , rs2![price]
End If

rs2.Close
rs1.Close
DoEvents

rs.MoveNext
Loop

 

[a4tech501]

BRAINY QUESTION )

mga kuya ano mag magandang DATABASE pag naka LAN? yung mabilis yung process..

yung gamit q kasi now currently MSACCESS at ang bagal bagal pag 2 na yung user ptaas

ay naq hehe

question. yung xampp po ba pwede q gamitin dun? or yung wampp?

Ang gamit ko e MySQL sa Xampp. Halos konti lang ang babaguhin u sa coding u. Magi-install nga lang u ng mysql odbc driver.

Para madali, gawa u ng function para sa database connection:

Public Function ConnectString() As String
Dim strServerName As String
Dim strDatabaseName As String
Dim strUserName As String
Dim strPassword As String

strServerName = "localhost"
strDatabaseName = "dbname"
strUserName = "root"
strPassword = ""

ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=" & strServerName & _
";DATABASE=" & strDatabaseName & ";" & _
"USER=" & strUserName & _
";PASSWORD=" & strPassword & _
";OPTION=3;"
End Function

Tapos pag mago-open u ng database, ganito naman:

db.Open ConnectString()

 

[JajaDina]

sir. paano po ba yung codes nit0? yung easiest way lang ah..

Ganito po:
-maglalagay ako ng text sa textbox at ipapasok ko sa database.

What if kung ang ilagay ko na text is: ako'y isang pinoy sa puso, isip & gawa

the tendency is papasok siya sa database?
error na siya kasi may nakita siyang symbols na (' at & at +)

-what should I do? easiest codes po ah.. tia sb,

 

[a4tech501]

sir. paano po ba yung codes nit0? yung easiest way lang ah..

Ganito po:
-maglalagay ako ng text sa textbox at ipapasok ko sa database.

What if kung ang ilagay ko na text is: ako'y isang pinoy sa puso, isip & gawa

the tendency is papasok siya sa database?
error na siya kasi may nakita siyang symbols na (' at & at +)

-what should I do? easiest codes po ah.. tia sb,

Pwede po pa-post ng codes nyo d2? Para madebug natin.

 

[louieocampo]

mga sir may tanung po ako, ahm gusto ko sanang magsend nh command sa cmd tapos yung output nya mapupunta sa text box, for example nagsend ako ng "echo Hello world!" na code so ang magiging out put nya sa cmd is "Hello world!" so gusto ko po sanang kunin yung output nya at magdisplay sa textbox. thanks po in advance.

Mga sir patulong naman po :'(

 

[marlonlaural]

sir. paano po ba yung codes nit0? yung easiest way lang ah..

Ganito po:
-maglalagay ako ng text sa textbox at ipapasok ko sa database.

What if kung ang ilagay ko na text is: ako'y isang pinoy sa puso, isip & gawa

the tendency is papasok siya sa database?
error na siya kasi may nakita siyang symbols na (' at & at +)

-what should I do? easiest codes po ah.. tia sb,

ate,

lumalabas yung error na yon pag ginagamit mo sa query as where po kasi variable po sa database yung ' at & at +, meaning hindi alam ng database mo kung ano gusto mo gawin.... post mo n lang code mo...!

 

[marlonlaural]

ano po ba ang cause ng ganitong Error ..

GUsto ko po kasi ibato sa Excel yung mga data sa msAcces ..

nung i-Try ko nang i-run ganito yung lumalabas ..

boss na try mo na ba mag add ng reference para sa excel sa vb? yon ang kulang nyan..

 

[marlonlaural]

mga sir pahelp sa pos system ko. vb6+ access sya dati tpos nag transfer ako sa sql. my konting error sa ordering form. nag manual insert ako ng 1 data sa bawat table para my mabasa sya pero current data deleted padin. baka po pwede pahelp


error po ung naka comment
sa access database is okay naman po. d2 lang sa mysql nageerror

ate,


ang error po nyan wala nakita yung select query mo tapos wala k nilagay na condition kung ano gagawin ng program kung wala nkita, maglagay k condition sample :


if rs2.eof then

condition:

end if

sbi mo nglipat k sa mysql pwede na nwala yung field sa table...
check mo kung nag exist yung field mo...

 

[marlonlaural]

ito pa po pala di pumapasok ung customer ID sa db my eror po panu ba icode to
Private Sub Combo1_Click()


connect
sql = "select *from customer where CONCAT (Lastname,',', Firstname, ' ',Middlename )='" & Combo1.Text & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenStatic, adLockOptimistic
Do While Not rs.EOF
CustomerID = rs!Customer_Id
rs.MoveNext
Loop
rs.CLose
Set rs = Nothing

End Sub

pare ito gawin mo


Private Sub Combo1_Click()


connect
sql = "select *from customer where CONCAT (Lastname,',', Firstname, ' ',Middlename )='" & Combo1.Text & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenStatic, adLockOptimistic
Do While Not rs.EOF
CustomerID = val(combo1.itemdata(combo1.listindex))
rs.MoveNext
Loop
rs.CLose
Set rs = Nothing

End Sub

 

[knives645]

ganto po kase mahirap sa google po lalong gumugulo hehe

kase po gumana na ung name nabubuo na sa combo box tpos ang pumapasok sa database ung name lng di ung idnumber or customerid pwede ba pagclick ng combobox ung value nun ay equal sa customer id? nila

Spoonfeeding?
Ganito...

Sub PopulateCustomerCombo()

Dim sConn As New ADODB.Connection
Dim rsADO As New ADODB.Recordset
Dim iCol As Long

On Error GoTo ErrLine

sConn.Open "Your ConnectionString Here"

cboCustomer.Clear

If sConn.State = adStateOpen Then
rsADO.CursorLocation = adUseClient
rsADO.Open "SELECT CustomerID, CONCAT (Lastname,',', Firstname, ' ',Middlename) AS EmployeeName FROM customer", sConn, adOpenForwardOnly
rsADO.MoveFirst

Do While Not rsADO.EOF

'Dito ang display mo sa combo box.
cboCustomer.AddItem rsADO.Fields("EmployeeName").Value
'Dito ang CustomerID
cboCustomer.ItemData(iCol) = rsADO.Fields("CustomerID").Value
iCol = iCol + 1

rsADO.MoveNext
Loop
Else
'Connection problem?
End If


Set rsADO = Nothing
sConn.Close 'Close the connection to free up memory
Set sConn = Nothing
Exit Sub

ErrLine:
MsgBox err.Number & vbNewLine & err.Description, vbExclamation, "Error"


End Sub

Pag kukunin mo ang value ng CustomerID,
ganito...
cboCustomer.ItemData(cboCustomer.ListIndex)

 

[marlonlaural]

may problem ako sa codes ng vb sana may makatulong po,
so here it is..sa DB(database) ko ayoko iauto increment ung Patient ID..kasi halimbawa meron ako 1,2,3 patient tapos sa vb ko nidelete ko si 2, ang magiging output nia sa DB ko 1,3 na agad..gusto ko sa bale sa vb ko par nierase ko si 2, automatically ung DB ko mag uupdate xa na ung 3 ko magiging 2 na xa..1,2,3 binura ko si 2,so ung 3 magiging 2 na dapat..pnu codes sa vb nun?

ate,

kung for the sake lang na magandang tingnan, wag mo na gawin yung gusto mo, dahil later on maiintindihan mo pag nag delete ka madami ka update na tables... if you know what i mean!.....

besides hindi nanaman papakialaman ng user yan ang gusto nila mapadali trabaho nila...!

 

[marlonlaural]

boss eto un code ko..

Private Sub cmdnewpatient_Click()

Dim c As String
Set rs = New ADODB.Recordset
rs.Open "select * from patient_info", cn, adOpenStatic, adLockOptimistic
rs.MoveLast
If rs.RecordCount < 0 Then
rs.MoveLast
c = rs.Fields("patientID")
c = Mid(c, 5, 4)
If c < 9 Then
txtptnum.Text = "pt-000" & c + 1
ElseIf c < 99 Then
txtptnum.Text = "pt-00" & c + 1
ElseIf c < 999 Then
txtptnum.Text = "pt-0" & c + 1
Else
txtptnum.Text = "pt-" & c + 1
End If
Else
txtptnum.Text = "pt-0001"
End If

End Sub

--------------------------

kapag mag-add ako ng bagong patient dapat sa may customer ID ang nakalagay ay pt-0001 kasi wala pang laman un database ko.

nag error siya sa may rs.movelast kapag walang laman un database ko. pero kapag may laman un database kahit isa nagrurun naman siya.

pa help naman po.

sagutin ko na rin wala na nga laman yung database mo movelast pa...

try mo tanggalin po yung movelast para sa pumasok muna sa IF...

 

[JajaDina]

sir. paano po ba yung codes nit0? yung easiest way lang ah..

Ganito po:
-maglalagay ako ng text sa textbox at ipapasok ko sa database.

What if kung ang ilagay ko na text is: ako'y isang pinoy sa puso, isip & gawa

the tendency is papasok siya sa database?
error na siya kasi may nakita siyang symbols na (' at & at +)

-what should I do? easiest codes po ah.. tia sb,

ate,

lumalabas yung error na yon pag ginagamit mo sa query as where po kasi variable po sa database yung ' at & at +, meaning hindi alam ng database mo kung ano gusto mo gawin.... post mo n lang code mo...!

-ganito mga sir. halimbawa ganito yung VALUE ng val1.

val1 = it's complicated

STRSQL3 = "INSERT INTO " & TABLE1 & " (column1) " & _
" VALUES( '" & val1 & "')"

Debug.Print STRSQL3


-so yung tendency na iniinsert mo sa database ay ganito.. which is wrong kasi 3 yung quoutes(')

INSERT INTO approval(TABLE1) VALUES('it's complicated')


-Paano yung solution dito ? thx

 

[jfmjason]

ate,

kung for the sake lang na magandang tingnan, wag mo na gawin yung gusto mo, dahil later on maiintindihan mo pag nag delete ka madami ka update na tables... if you know what i mean!.....

besides hindi nanaman papakialaman ng user yan ang gusto nila mapadali trabaho nila...!

Tomooooo hehehe besides hindi nmn talaga advisable na edelete ang data

isa pa kung naka reference yang id na yan sa kabilang table kung meron man dapat mo rin e update yong ibang tables and parang ma question yong data integrity sa dbase mo hehe pabagobago ng id kc


opinion ko lang po

 

[lovelyabella]

idols, may problema ako nag upgrade kasi ako ng operating system. nag windows 8 na ako. eh mag iinstall sana ako ng visual basic 6.0. nung iinstall ko na ang sabi "This program has compatibility issues" tinary ko din iconfigure ung.. setting.exe>properties>compatibility tab

panu kaya?

tska ano po kaya mererecommend nyo sa akin
database. gusto ko sana gumamit ng MySQL ung pwede ko mapagpractisan habang wala pa akong work, at the same time parehas ng database cycle sa office?


tska ano po kaya mererecommend nyo sa akin
visualbasic, dati ko kasi gamit is visual basic .net 2010 kung di ako nag kakamali.

enge na din ng dl link. if maroon po kayo?

 

[knives645]

-ganito mga sir. halimbawa ganito yung VALUE ng val1.

val1 = it's complicated

STRSQL3 = "INSERT INTO " & TABLE1 & " (column1) " & _
" VALUES( '" & val1 & "')"

Debug.Print STRSQL3


-so yung tendency na iniinsert mo sa database ay ganito.. which is wrong kasi 3 yung quoutes(')

INSERT INTO approval(TABLE1) VALUES('it's complicated')


-Paano yung solution dito ? thx

Before inserting/altering record,
scan mo muna ang existence ng single quote sa String mo,
pag meron, gawin mong dalawa ang quote,
ex.
it's complicated.
ganito dapat sya...
it''s complicated.

Heto pala ang gamit ko na function, para mabilis

Public Function PrepString(InputString As Variant) As Variant
Dim vLoopCounter As Integer
Dim vChar As String
Dim vOutputString As String
If IsNull(InputString) Then
vOutputString = ""
Else
vLoopCounter = 1
Do While vLoopCounter <= Len(InputString)
vChar = Mid(InputString, vLoopCounter, 1)
vOutputString = vOutputString & vChar
If vChar = "'" Then
vOutputString = vOutputString & "'"
End If
vLoopCounter = vLoopCounter + 1
Loop
End If
PrepString = RTrim(vOutputString)
End Function

to use..
PrepString("It's Complicated")

result is

It''s Complicated

 

[kezuke]

anyone knows how to program on e-gizmo device using vb6