Exclusively for Visual Basic 6.0 Programmers Only!

[cukoz]

salamat sir!

 

[URhonor]

mga ka-SB ask ko lang kung paano mag load ng Picture nagaling sa "ComboBox" ang value... Ginagamit ko yung string na LoadPicture, pano ko ba sya i-combine sa ComboBox..

Di ko msyadong magets tol, paki linaw or screenshot po tol

 

[apocalypse1206]

need help po sa project

pahelp po ndi ko kc malaman kung anong kulang ko d2.. kelangan daw kc n kpag nag add ako ndi daw tatanggapin ng program kpg may blank n field.

e2 po codes:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

Private Sub cboAccountType_Change()
cboAccountType.Clear
cboAccountType.AddItem "Admin"
cboAccountType.AddItem "User"
End Sub

Private Sub cmdAdd_Click()
txtUsername.Enabled = True
txtPassword.Enabled = True
txtConfirmPass.Enabled = True
cboAccountType.Enabled = True
txtUsername.SetFocus

cmdAdd.Enabled = False
cmdSave.Enabled = True
cmdCancel.Enabled = True
End Sub

Private Sub cmdCancel_Click()
txtUsername.Enabled = False
txtPassword.Enabled = False
txtConfirmPass.Enabled = False
cboAccountType.Enabled = False

cmdAdd.Enabled = True
cmdSave.Enabled = False
cmdCancel.Enabled = False
End Sub

Private Sub cmdSave_Click()
sql = "SELECT * FROM tblUserAccounts WHERE Username = '" & txtUsername.Text & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

If rs.RecordCount > 0 Then
MsgBox "Username already taken."
Else
rs.AddNew
rs!UserName = txtUsername.Text
rs!Password = txtPassword.Text
rs!AccountType = cboAccountType
rs.Update
rs.Close

Set rs = New ADODB.Recordset
sql = "SELECT * FROM tblUserAccounts"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

Set DataGrid.DataSource = rs
rs.Requery

txtUsername.Enabled = False
txtPassword.Enabled = False
txtConfirmPass.Enabled = False
cboAccountType.Enabled = False
txtUsername.Text = ""
txtPassword.Text = ""
txtConfirmPass.Text = ""
cboAccountType.Clear

cmdAdd.Enabled = True
cmdSave.Enabled = False
cmdCancel.Enabled = False

End If
End Sub

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database\dbEnrollment.mdb;Persist Security Info=False"
cn.Open
cn.CursorLocation = adUseClient

Set rs = New ADODB.Recordset
sql = "SELECT * FROM tblUserAccounts"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

Set DataGrid.DataSource = rs
rs.Requery

End Sub

 

[apocalypse1206]

mga fafs ty n lang po nasolve ko n prob ko sa program.. ahehe

 

[bob_frog]

mga sirs patulong naman po sa prob ko..

search button po ung ididisplay sa txtbox ung datas galing sa database..
di ko kasi maintindihan ung sample ni sir eric!! newbie plng kc ako..

sana po matulungan nyo ko
gusto ko po kasi talagang matuto..

 

[URhonor]

Re: need help po sa project

Private Sub cmdSave_Click()
if txtUsername.Tex = "" or txtPassword.Text = "" then
Msgbox "Please fill-up all fields"
Exit sub
end if
sql = "SELECT * FROM tblUserAccounts WHERE Username = '" & txtUsername.Text & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

If rs.RecordCount > 0 Then
MsgBox "Username already taken."
Else
rs.AddNew
rs!UserName = txtUsername.Text
rs!Password = txtPassword.Text
rs!AccountType = cboAccountType
rs.Update
rs.Close

Set rs = New ADODB.Recordset
sql = "SELECT * FROM tblUserAccounts"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

Set DataGrid.DataSource = rs
rs.Requery

txtUsername.Enabled = False
txtPassword.Enabled = False
txtConfirmPass.Enabled = False
cboAccountType.Enabled = False
txtUsername.Text = ""
txtPassword.Text = ""
txtConfirmPass.Text = ""
cboAccountType.Clear

cmdAdd.Enabled = True
cmdSave.Enabled = False
cmdCancel.Enabled = False

End If
End Sub

 

[zhelene]

Send me the program tol. try ntin

ge ge tol...

eto link
http://www.sendspace.com/file/ss6x1n

sa ubuntu ko ngwang archive yan, kya tar.gz...


salamat ha! uuu

 

[zhyke08]

Re: need help po sa project

pahelp po ndi ko kc malaman kung anong kulang ko d2.. kelangan daw kc n kpag nag add ako ndi daw tatanggapin ng program kpg may blank n field.

e2 po codes:

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

Private Sub cboAccountType_Change()
cboAccountType.Clear
cboAccountType.AddItem "Admin"
cboAccountType.AddItem "User"
End Sub

Private Sub cmdAdd_Click()
txtUsername.Enabled = True
txtPassword.Enabled = True
txtConfirmPass.Enabled = True
cboAccountType.Enabled = True
txtUsername.SetFocus

cmdAdd.Enabled = False
cmdSave.Enabled = True
cmdCancel.Enabled = True
End Sub

Private Sub cmdCancel_Click()
txtUsername.Enabled = False
txtPassword.Enabled = False
txtConfirmPass.Enabled = False
cboAccountType.Enabled = False

cmdAdd.Enabled = True
cmdSave.Enabled = False
cmdCancel.Enabled = False
End Sub

Private Sub cmdSave_Click()
sql = "SELECT * FROM tblUserAccounts WHERE Username = '" & txtUsername.Text & "'"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

If rs.RecordCount > 0 Then
MsgBox "Username already taken."
Else
rs.AddNew
rs!UserName = txtUsername.Text
rs!Password = txtPassword.Text
rs!AccountType = cboAccountType
rs.Update
rs.Close

Set rs = New ADODB.Recordset
sql = "SELECT * FROM tblUserAccounts"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

Set DataGrid.DataSource = rs
rs.Requery

txtUsername.Enabled = False
txtPassword.Enabled = False
txtConfirmPass.Enabled = False
cboAccountType.Enabled = False
txtUsername.Text = ""
txtPassword.Text = ""
txtConfirmPass.Text = ""
cboAccountType.Clear

cmdAdd.Enabled = True
cmdSave.Enabled = False
cmdCancel.Enabled = False

End If
End Sub

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Database\dbEnrollment.mdb;Persist Security Info=False"
cn.Open
cn.CursorLocation = adUseClient

Set rs = New ADODB.Recordset
sql = "SELECT * FROM tblUserAccounts"
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

Set DataGrid.DataSource = rs
rs.Requery

End Sub

dapat may error trappings ka dun sa may save button mo..
example:

if textbox1.text = "" then
msgbox"Blank entry not allowed."

else

dito na yung save codes mo.....

 

[zhelene]

haha pareho lng tayo nanganga-ilangan ng tulong dito noh. .inopen ko tong thread para sa ating lahat. .haha lahat tayo studyante dito!

kuya! patulong naman po...

pwede po ba gumawasa vb 6 ng simulation of a single runway airport?
applicable din po ba sa vb6 ung mga simulation????
need kc namin e..
kailangan po ng following:
1. simulation clock
2. methods to schedule the ocurence of events
3. tools to collect and analyze statistics
4. tools for reporting results
5. random number generators

need to know if it would be possible na maacomplish, or other language na lng.
salamat ng madami!! uuu

 

[zhelene]

masters!!!!!!!
kuya, ate! patulong naman po...

pwede po ba gumawa sa vb 6 ng simulation of a single runway airport?
applicable din po ba sa vb6 ung mga simulation programs????
need kc namin e..
kailangan po ng following:
1. simulation clock
2. methods to schedule the ocurence of events
3. tools to collect and analyze statistics
4. tools for reporting results
5. random number generators

need to know if it would be possible na maacomplish, or other language na lng.
tpos patulong na din sa logic.. ^^
salamat ng madami!! uuu

 

[codeproject]

URHonor kumusta na po yung request ko po sa inyo. yung pm ko po dati sa inyo!

 

[URhonor]

ge ge tol...

eto link
http://www.sendspace.com/file/ss6x1n

sa ubuntu ko ngwang archive yan, kya tar.gz...


salamat ha! uuu

Try mo tol

 

[URhonor]

@ codeproject
hinahanap ko pa tol. I will upload it pag nkita ko na. Pasensya na.

 

[apocalypse1206]

salamat sa mga nag respond dun sa post ko. natapos ko dn xa kaninang madaling araw.. nasolve ko n dn.. mejo matagal lang dn kc napatigil sa pagpprogram.. ahehe.. agen ty po

 

[jubel]

mga bro help para sa kapatid ko nakaproblema na kc sya gusto ko po sya tulongan
di po ako marunong VB6

pero tulongan nyo naman ako gumawa ng student profile.....

turbo C lng kc alam ko....

 

[yapanitz]

I have two of these statements in one form

Private Sub lvwEvents_ItemClick(ByVal Item As MSComctlLib.ListItem)
m_EventNumber = Item.Tag
GetEventFile Item.Tag
End Sub

Private Sub lvwContestants_ItemClick(ByVal Item2 As MSComctlLib.ListItem)
m_ConsNumber = Item2.Tag
GetContestantFile Item2.Tag
End Sub

Ang problema is ayaw magpalit ng value ni Item2.Tag

Paano po yun?

 

[ericgmejia]

I have two of these statements in one form





Ang problema is ayaw magpalit ng value ni Item2.Tag

Paano po yun?

Base sa code mo na nakita ko, walang problem sa code, sa database ang problem, yung sa table mo ng contestant, ginamit mo as tag yung EventID para makuha ang isang contestant, dapat ContestantID ang ginamit mo as Tag sa 2nd listview para makuha yung particular contestant.

by the way ganda ng coding mo, malinis. parang pro.
sumabit lang sa database design.

 

[ericgmejia]

mga bro help para sa kapatid ko nakaproblema na kc sya gusto ko po sya tulongan
di po ako marunong VB6

pero tulongan nyo naman ako gumawa ng student profile.....

turbo C lng kc alam ko....

anong tulong ang kelangan mo?
try mo aralin to
http://symbianize.com/showthread.php?t=163979

 

[codeproject]

brod san ako makakuha or anung software ang para sa delphi?

 

[wenks0910]

mga bro help naman .... maliit n tulong lang..nalimutan ko kasi ...

may textbox ako ..which is list ng mga information ng judge.. name,gender,address and so on... then may button na add muna..saka n ung iba...then ang prob is .. d ko na alam kung papanu ko ma a-add ung info sa textbox through listview.. help pls... tnx