Symbianize Forum

Most of our features and services are available only to members, so we encourage you to login or register a new account. Registration is free, fast and simple. You only need to provide a valid email. Being a member you'll gain access to all member forums and features, post a message to ask question or provide answer, and share or find resources related to mobile phones, tablets, computers, game consoles, and multimedia.

All that and more, so what are you waiting for, click the register button and join us now! Ito ang website na ginawa ng pinoy para sa pinoy!

Exclusively for Visual Basic 6.0 Programmers Only!

Need help po sa mga sir...
gumawa po ako ng module....see attached image po...
tpos ayaw nia mag run nag eeror sya....


pero pag nilagay ko po sa form mismo itong statement na to..

"dbcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;"


nag run naman po siya... salamat po..
 

Attachments

  • error.png
    error.png
    110.4 KB · Views: 13
^naka close daw


unga po...

kaya nga po pag sa form ako naglagay ng "dbcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;" nag ru-run po sya..... pero pag sa module nakalagay nag eerror na xa....

gusto ko po sana sa module lang sya nkalagay... paano po gawin ko? salamat po...
 
Last edited:
unga po...

kaya nga po pag sa form ako naglagay ng "dbcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;" nag ru-run po sya..... pero pag sa module nakalagay nag eerror na xa....

gusto ko po sana sa module lang sya nkalagay... paano po gawin ko? salamat po...

tignan mo signature ko
 
patulong naman po san po kaya mga magandang company para maka pasok mga 2 year course na i.t katulad ko????patulong naman po....
 
patulong naman po san po kaya mga magandang company para maka pasok mga 2 year course na i.t katulad ko????patulong naman po....

sir/kasymbian, pwede kang magpunta sa goldilocks as Tech. Support, sa main office nila search mo nalang sa google bandang madaluyong po yun.

ang hindi ko lang po alam kung direct hiring sila ngaun o need pa ng agency para makapasok dun.

sana nakatulong,.. :)
 
Need help po sa mga sir...
gumawa po ako ng module....see attached image po...
tpos ayaw nia mag run nag eeror sya....


pero pag nilagay ko po sa form mismo itong statement na to..

"dbcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;"


nag run naman po siya... salamat po..


Bigay mo sa akin source code mo para ko.
 
hi mga kasymbianize cnu po my sample ng badget office system pa :help: naman po sa LGU po.. un po kc ung pinropose kong system sana po makatulong kau...

tnx guysss...
 
hi mga kasymbianize cnu po my sample ng badget office system pa :help: naman po sa LGU po.. un po kc ung pinropose kong system sana po makatulong kau...

tnx guysss...

walang magbibigay sau ng BADGET system dito. my dfd kanaba para jian? tutulungan ka namin :excited:
 
Mga ka SB, Bakit ganito? alam ko madali lang to., pero di ko magawa hehe,, tingnan nyo nlang..

Gusto ko kasi kapag k'nlick ko yung "APPROVED Radio Button" then CLICK yung "EDIT BUTTON" ang lalabas(VISIBLE = true) na label sa FORM 2 is "Remarks".. ELSE (VISIBLE = true) naman yung LABEL2.. SEE PIC. ATTACHED..View attachment 128757

pero bakit mali yung IF STATEMENT KO.. hmm

ETO CODE ko..



Code:
dlgRemarks = FORM 2
edit BUTTON = FORM 1

Private Sub cmdEdit_Click()

Dim frmdlg As dlgRemarks
Set frmdlg = New dlgRemarks
    frmdlg.Show vbModal
    

If optApprvd.Value = True Then
   frmdlg.Label2.Visible = True
Else
    frmdlg.Label1.Visible = True
End If

end sub

:help::)
 

Attachments

  • ERROR.png
    ERROR.png
    17.2 KB · Views: 7
View attachment 128779



Questions:

1. ) Gusto kong ilagay sa VALUE ng "approval_status" COLUMN ko ay:

"1" = kapag hindi NULL yung value ng DATE TIME PICKER
"0" = kapag NULL yung value ng DATE TIME PICKER

pero PAANO ? HELP pls..






2. ) Gusto kong ilagay sa VALUE ng "remarks" COLUMN ko ay:

LAMAN ng LISTBOX.. SO kung anim yung LIST inside the LISTBOX.
ganun YUN VALUE NG remarks ko... HELPP!!!!

SEE ATTACH PICTURE.. thx:help::help::help::help::help: thanks









Private Function Add_Record() As Boolean

Dim STRSQL As String
Dim iStatus As Integer


iStatus = Abs(dtp1.CheckBox = True)
If Abs(dtp1.CheckBox = False) Then iStatus = 0


On Error GoTo errHandler


STRSQL = "INSERT INTO " & APPROVAL & " (site_id," & _
"date_survey," & _
"loginname," & _
"date_approved," & _
"approval_status," & _
"remarks) " & _
" VALUES('" & txtSite.Text & "',' " & _
txtDateSurvey.Text & " ' ,' " & _
txtUserName.Text & " ' ,' " & _
CDate(dtp1.value) & " ' , " & _
CInt(iStatus) & " ,' " & _
List1.Index & "')"
gConnect1.Execute STRSQL
debug.print
MsgBox "Check and Approval Information was Added", vbInformation


Add_Record = True
Exit Function
errHandler:
MsgBox Err.description
Add_Record = False
End Function
 

Attachments

  • LAST.png
    LAST.png
    36 KB · Views: 5
Last edited:
mga bossing meron pu ba kaung sample payroll system , need qu lang boss for thesis. Mamatz !
 
Tanong

bakit di ko po ma install ung VB??? gamit ko pong OS ay windows 7 starter..
 
ts, ask ko lang kung meron kang guide para sa integration ng vb program at plc program.,,:help:
 
Back
Top Bottom