VB.NET Programming Corner!

[marry012]

pa help nmn mga sir. Edit button problem..

may problem po ako sa edit button ko. Ang nangyari kasi, nagproproduce ng panibagong record ung system ko kapag ineedit ko ung record sa form ko. Ang dapat sana is irereplace lng nya ung specific data na pinalitan ko.

e2 po ung codes ko..

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
If dgvSetting.Visible = True Then
EditSender()
fmSender.btnSSave.Text = "Update"

Else
Exit Sub
End If


End Sub
Sub EditSender()
Dim rsSSender As New ADODB.Recordset
rsSSender = New ADODB.Recordset
rsSSender.Open("SELECT * FROM sender_table WHERE sender_ID='" & dgvSetting.SelectedCells.Item(0).Value & "'", iconnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
If rsSSender.RecordCount <> 0 Then
With fmSender
.txtSLName.Text = rsSSender.Fields("sender_LName").Value
.txtSFName.Text = rsSSender.Fields("sender_FName").Value
.txtSMI.Text = rsSSender.Fields("sender_MI").Value
.txtSAddress.Text = rsSSender.Fields("sender_Address").Value
.txtSCNo.Text = rsSSender.Fields("sender_ContactNO").Value
.btnSSave.Text = "Update"
.Show(Me)

End With
Me.Enabled = False
Else
Exit Sub
End If
End Sub



PHELP Po!!! maraming salamat sa tutulong.

 

[xiayn]

^ hindi ba dapat sa query mo eh insert un gagamitin? hula lang po

 

[Genue26]

pa help nmn mga sir. Edit button problem..

may problem po ako sa edit button ko. Ang nangyari kasi, nagproproduce ng panibagong record ung system ko kapag ineedit ko ung record sa form ko. Ang dapat sana is irereplace lng nya ung specific data na pinalitan ko.

e2 po ung codes ko..

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
If dgvSetting.Visible = True Then
EditSender()
fmSender.btnSSave.Text = "Update"

Else
Exit Sub
End If


End Sub
Sub EditSender()
Dim rsSSender As New ADODB.Recordset
rsSSender = New ADODB.Recordset
rsSSender.Open("SELECT * FROM sender_table WHERE sender_ID='" & dgvSetting.SelectedCells.Item(0).Value & "'", iconnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
If rsSSender.RecordCount <> 0 Then
With fmSender
.txtSLName.Text = rsSSender.Fields("sender_LName").Value
.txtSFName.Text = rsSSender.Fields("sender_FName").Value
.txtSMI.Text = rsSSender.Fields("sender_MI").Value
.txtSAddress.Text = rsSSender.Fields("sender_Address").Value
.txtSCNo.Text = rsSSender.Fields("sender_ContactNO").Value
.btnSSave.Text = "Update"
.Show(Me)

End With
Me.Enabled = False
Else
Exit Sub
End If
End Sub



PHELP Po!!! maraming salamat sa tutulong.

asan query moh for add/update?

 

[name_name]

Gud pm sainyo,
Help naman po kung paano mag retrieve ng data at ilalagay sa Listview control calling Stored Procedure ng SQL server. Any sample po basta merong iinput sa textbox kung saan iyon yung value ng where clause. Need badly talaga. Sana po matulungan nyo po ako. Sana po complete code at may comment na rin para gets ko po agad.
Thanks po ng madami..

 

[marry012]

asan query moh for add/update?

kaya nga po sir. wala akong Update query. di ko kasi alam kung panu gamitin ang Update eh, Select and Delete lng ung alam ko.


Sa code ko po kasi, pag clinick mo ung edit button, lalabas po ung Sender Form kung saan doon ka na po mageedit ng mga information about the sender. Kaso ang problema po ay nag aadd ung record, instead na ireplace nya ung enedit na record.

E2 po ung codes ko sa Sender Form.

Sub SaveSender()



Dim rsSender As New ADODB.Recordset
rsSender = New ADODB.Recordset

rsSender.Open("SELECT * FROM sender_table", iconnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
rsSender.AddNew()
rsSender.Fields("sender_ID").Value = "Sender_" + strSenderID
rsSender.Fields("sender_LName").Value = txtSLName.Text
rsSender.Fields("sender_FName").Value = txtSFName.Text
rsSender.Fields("sender_MI").Value = txtSMI.Text
rsSender.Fields("sender_Address").Value = txtSAddress.Text
rsSender.Fields("sender_ContactNO").Value = txtSCNo.Text


rsSender.Update()


MsgBox("Transaction has been processed, thanks,", vbInformation, "JRS")
End Sub

Private Sub btnSSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSSave.Click
If MsgBox("Do you want to process", vbInformation + vbYesNo, "JRS") = vbYes Then

SaveSender()

Else
Exit Sub
End If
End Sub


>> Ang Function po ng Sender Form ko is to Save the information about the Sender. Pero dahil ginamit ko ang code na
If rsSSender.RecordCount <> 0 Then
With fmSender
.txtSLName.Text = rsSSender.Fields("sender_LName").Value
.txtSFName.Text = rsSSender.Fields("sender_FName").Value
.txtSMI.Text = rsSSender.Fields("sender_MI").Value
.txtSAddress.Text = rsSSender.Fields("sender_Address").Value
.txtSCNo.Text = rsSSender.Fields("sender_ContactNO").Value
.btnSSave.Text = "Update"
.Show(Me)

End With

>> so mag oopen siya pag mag eedit na ako at sa Sender Form na mismo mag uupdate.
>> Ask ko lng po. Pwede bang magfunction ang Sender Form ko ng dalawang beses as Nagsasave ng record and pwede rin siyang Mag update sa mismong Form na un?


E2 po ung screen shots ko. Sa Sender Form na po gagawin ang pag edit.

 

[Genue26]

kaya nga po sir. wala akong Update query. di ko kasi alam kung panu gamitin ang Update eh, Select and Delete lng ung alam ko.


Sa code ko po kasi, pag clinick mo ung edit button, lalabas po ung Sender Form kung saan doon ka na po mageedit ng mga information about the sender. Kaso ang problema po ay nag aadd ung record, instead na ireplace nya ung enedit na record.

E2 po ung codes ko sa Sender Form.

Sub SaveSender()



Dim rsSender As New ADODB.Recordset
rsSender = New ADODB.Recordset

rsSender.Open("SELECT * FROM sender_table", iconnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
rsSender.AddNew()
rsSender.Fields("sender_ID").Value = "Sender_" + strSenderID
rsSender.Fields("sender_LName").Value = txtSLName.Text
rsSender.Fields("sender_FName").Value = txtSFName.Text
rsSender.Fields("sender_MI").Value = txtSMI.Text
rsSender.Fields("sender_Address").Value = txtSAddress.Text
rsSender.Fields("sender_ContactNO").Value = txtSCNo.Text


rsSender.Update()


MsgBox("Transaction has been processed, thanks,", vbInformation, "JRS")
End Sub

Private Sub btnSSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSSave.Click
If MsgBox("Do you want to process", vbInformation + vbYesNo, "JRS") = vbYes Then

SaveSender()

Else
Exit Sub
End If
End Sub


>> Ang Function po ng Sender Form ko is to Save the information about the Sender. Pero dahil ginamit ko ang code na
If rsSSender.RecordCount <> 0 Then
With fmSender
.txtSLName.Text = rsSSender.Fields("sender_LName").Value
.txtSFName.Text = rsSSender.Fields("sender_FName").Value
.txtSMI.Text = rsSSender.Fields("sender_MI").Value
.txtSAddress.Text = rsSSender.Fields("sender_Address").Value
.txtSCNo.Text = rsSSender.Fields("sender_ContactNO").Value
.btnSSave.Text = "Update"
.Show(Me)

End With

>> so mag oopen siya pag mag eedit na ako at sa Sender Form na mismo mag uupdate.
>> Ask ko lng po. Pwede bang magfunction ang Sender Form ko ng dalawang beses as Nagsasave ng record and pwede rin siyang Mag update sa mismong Form na un?


E2 po ung screen shots ko. Sa Sender Form na po gagawin ang pag edit.

I'll will just give an idea ha.. Di kasi ako familiar sa way ng connection mo with mysql. I mean magkaiba tayo ng way.
As what I've understand sa logic mo, once you click the edit button, the Sender form will open showing the selected data from the recordset.

So sa paguupdate naman ng data, bukod dun sa mga textboxes na ginamit mo para maview yung mga selected data, dapat may isa ka pang object(another textbox or label na nakahide) na maghohold pa ng isa sa mga selected data. Yun kasi ang gagamitin mo para sa paguupdate. Para kahit mabago mo lahat ng laman ng textboxes mo, makikita at makikita parin yung record na yun sa table mo using that hidden textbox or label.

Dun naman sa query moh, try mo to, "Select* from table_name where column_name like '"& textbox.text &"'"
Yung '"& textbox diyan &"' is yung hidden textbox mo holding the data from one of your columns.
Tapos isingit mo to after nung may query
"If rsSSender.RecordCount <> 0 Then" (Di ko alam kung ito mismo yung code para macheck mo kung may ganun ngang record sa table mo)
Tapos tanggalin mo na yung "rsSender.AddNew()"
itira mo lang ung rsSender.Update()

Yan yung idea ko.

 

[marry012]

I'll will just give an idea ha.. Di kasi ako familiar sa way ng connection mo with mysql. I mean magkaiba tayo ng way.
As what I've understand sa logic mo, once you click the edit button, the Sender form will open showing the selected data from the recordset.

So sa paguupdate naman ng data, bukod dun sa mga textboxes na ginamit mo para maview yung mga selected data, dapat may isa ka pang object(another textbox or label na nakahide) na maghohold pa ng isa sa mga selected data. Yun kasi ang gagamitin mo para sa paguupdate. Para kahit mabago mo lahat ng laman ng textboxes mo, makikita at makikita parin yung record na yun sa table mo using that hidden textbox or label.

Dun naman sa query moh, try mo to, "Select* from table_name where column_name like '"& textbox.text &"'"
Yung '"& textbox diyan &"' is yung hidden textbox mo holding the data from one of your columns.
Tapos isingit mo to after nung may query
"If rsSSender.RecordCount <> 0 Then" (Di ko alam kung ito mismo yung code para macheck mo kung may ganun ngang record sa table mo)
Tapos tanggalin mo na yung "rsSender.AddNew()"
itira mo lang ung rsSender.Update()



Yan yung idea ko.

Cge po sir. itatry ko po yan. Maraming salamat po.
>>Sir panu po ba mag edit, directly to the datagrid na kung sakaling magkacomplikasyon ang ginagawa kong program. May nagsabi kasi sa akin, mas madali raw dun eh.

 

[akosiken23]

Ask lang if anong maganda

im using sql server 2014 w/ visual basic 2012

anong magandang connection kaya gamitin ko

Oledb Command or SQL command

nakapag basa na ako sa net

refer nila if im using sql server
much better if SQL command

just want to know your thoughts about it

THX in ADVANCE

 

[maritesmacute]

bakit po adodb yung gamit nyu? mas bago and mas reliable yung ado.net hehe

 

[knives645]

Cge po sir. itatry ko po yan. Maraming salamat po.
>>Sir panu po ba mag edit, directly to the datagrid na kung sakaling magkacomplikasyon ang ginagawa kong program. May nagsabi kasi sa akin, mas madali raw dun eh.

Heto ang code mo sa pag-save, mali kase, kasi nag-add new ka, instead of edit,
tapos, yung SELECT Statement mo walang WHERE Condition, so hindi alam ng code mo kung alin talaga ang kailangan i-edit.
Much better, if you place unique field on your table to serve as your Primary Key or ID.

Sub SaveSender()

Dim rsSender As New ADODB.Recordset
rsSender = New ADODB.Recordset

rsSender.Open("SELECT * FROM sender_table", iconnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
rsSender.AddNew()
rsSender.Fields("sender_ID").Value = "Sender_" + strSenderID
rsSender.Fields("sender_LName").Value = txtSLName.Text
rsSender.Fields("sender_FName").Value = txtSFName.Text
rsSender.Fields("sender_MI").Value = txtSMI.Text
rsSender.Fields("sender_Address").Value = txtSAddress.Text
rsSender.Fields("sender_ContactNO").Value = txtSCNo.Text

rsSender.Update()

MsgBox("Transaction has been processed, thanks,", vbInformation, "JRS")
End Sub

 

[sinigangnapork]

Makikisingit lang po, may question ako, Pwede po bang mag bigay kayo ng 3 RFID hardwares na available dito sa pilipinas? Criteria is dapat integrateable din sya sa .Net, Siguro ung price pwede din nating sabihing criteria un since mas mura at matibay, mas ok... Question lang po mga master..

 

[marry012]

Heto ang code mo sa pag-save, mali kase, kasi nag-add new ka, instead of edit,
tapos, yung SELECT Statement mo walang WHERE Condition, so hindi alam ng code mo kung alin talaga ang kailangan i-edit.
Much better, if you place unique field on your table to serve as your Primary Key or ID.


[/CODE]

kasi sir ung Sender Form, ginagamit ko kasi sa pag add ng information sa Sender. Ung pag edit nmn po is nasa Setting Form na siya. Nasa separate Form po ung add and edit. Pero ang ginawa ko is pagclinick ang Edit button na nasa setting form ay lalabas ung Sender Form at duon pwedeng gawin ang pag edit which is MALI!! kasi ang function po ng Sender Form ko is to add.
>> Pwde po bang gumawa n lng ako ng hidden button na may function na nag UUpdate sa Sender Form na magiging visible lng pag clinick ko n ung edit button?

Sir maraming salamat po sa tulong ah. Reply n lng po ako pag may tanong pa ako.
Itatry ko po lahat ng advise nyo. Pati n rin ung advise ni Sir Genue.

 

[ginebra poging_bagsik]

mga bro saan pwede mag download ng vb 2010 with sql 2008 yung express lang thanks !

 

[knives645]

kasi sir ung Sender Form, ginagamit ko kasi sa pag add ng information sa Sender. Ung pag edit nmn po is nasa Setting Form na siya. Nasa separate Form po ung add and edit. Pero ang ginawa ko is pagclinick ang Edit button na nasa setting form ay lalabas ung Sender Form at duon pwedeng gawin ang pag edit which is MALI!! kasi ang function po ng Sender Form ko is to add.
>> Pwde po bang gumawa n lng ako ng hidden button na may function na nag UUpdate sa Sender Form na magiging visible lng pag clinick ko n ung edit button?

Sir maraming salamat po sa tulong ah. Reply n lng po ako pag may tanong pa ako.
Itatry ko po lahat ng advise nyo. Pati n rin ung advise ni Sir Genue.

Madali lang naman yan, practice lang...

mga bro saan pwede mag download ng vb 2010 with sql 2008 yung express lang thanks !

Sa microsoft sir, search mo na lang sa google.

 

[marry012]

Salamat po kay sir @xiayn, kay sir @Genue26 at kay sir @knives645 sa pagtulong sa akin.

dahil sa tulong nila. I came up with these codes.

[CODE or edit button]
Setting Form
Sub EditSender()
Dim rsSSender As New ADODB.Recordset
rsSSender = New ADODB.Recordset
rsSSender.Open("SELECT * FROM sender_table WHERE sender_ID='" & dgvSetting.SelectedCells.Item(0).Value & "'", iconnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
If rsSSender.RecordCount <> 0 Then
With fmSender
.txtSID.Text = rsSSender.Fields("sender_ID").Value
.txtSLName.Text = rsSSender.Fields("sender_LName").Value
.txtSFName.Text = rsSSender.Fields("sender_FName").Value
.txtSMI.Text = rsSSender.Fields("sender_MI").Value
.txtSAddress.Text = rsSSender.Fields("sender_Address").Value
.txtSCNo.Text = rsSSender.Fields("sender_ContactNO").Value
.Show(Me)
.btnSUpdate.Visible = True
.btnSSave.Visible = False
End With
Me.Enabled = False
Else
Exit Sub
End If
End Sub



Sender Form
Private Sub btnSUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSUpdate.Click


Dim rsSender As New ADODB.Recordset
rsSender = New ADODB.Recordset

rsSender.Open("SELECT * FROM sender_table where sender_ID '" & txtSID.Text & "'", iconnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)


rsSender.Fields("sender_LName").Value = txtSLName.Text
rsSender.Fields("sender_FName").Value = txtSFName.Text
rsSender.Fields("sender_MI").Value = txtSMI.Text
rsSender.Fields("sender_Address").Value = txtSAddress.Text
rsSender.Fields("sender_ContactNO").Value = txtSCNo.Text


rsSender.Update()


MsgBox("Transaction has been processed, thanks,", vbInformation, "JRS")
End Sub




>> Ginamit ko po ung itinuro mo sa akin sir Genue. Gumamit po ako ng hidden txtbox for my sender_ID tapos gumawa ako ng another button for update. Ung Isang button kasi is pang Add un kaya dapat di galawin.

Baguhan p lng kasi ako sa programming eh, pero pag natuto ako ng mabuti, itratry ko rin tumulong sa mga ka symbianize natin. Thanks for sharing ur ideas mga ka symbianize. Ang laking tulong ng thread na to.

 

[knives645]

@marry012, nice one!
Matanong ko lang, ADODB lang ba talaga ang tinuro sa inyo sa skul? ADO.Net, hindi ba?
Mas madali kasi pag yun ang ginamit nyo.

Ma-encounter ko yang ganyang style na code, nung merong nagpa-tutor sakin sa pampanga.
Sabi nila, yun daw tinuro ng prof nila.

Sana, mag-upgrade naman ang mga old school na mga profs sa mga schools.

 

[Genue26]

Salamat po kay sir @xiayn, kay sir @Genue26 at kay sir @knives645 sa pagtulong sa akin.

dahil sa tulong nila. I came up with these codes.

[CODE or edit button]
Setting Form
Sub EditSender()
Dim rsSSender As New ADODB.Recordset
rsSSender = New ADODB.Recordset
rsSSender.Open("SELECT * FROM sender_table WHERE sender_ID='" & dgvSetting.SelectedCells.Item(0).Value & "'", iconnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
If rsSSender.RecordCount <> 0 Then
With fmSender
.txtSID.Text = rsSSender.Fields("sender_ID").Value
.txtSLName.Text = rsSSender.Fields("sender_LName").Value
.txtSFName.Text = rsSSender.Fields("sender_FName").Value
.txtSMI.Text = rsSSender.Fields("sender_MI").Value
.txtSAddress.Text = rsSSender.Fields("sender_Address").Value
.txtSCNo.Text = rsSSender.Fields("sender_ContactNO").Value
.Show(Me)
.btnSUpdate.Visible = True
.btnSSave.Visible = False
End With
Me.Enabled = False
Else
Exit Sub
End If
End Sub



Sender Form
Private Sub btnSUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSUpdate.Click


Dim rsSender As New ADODB.Recordset
rsSender = New ADODB.Recordset

rsSender.Open("SELECT * FROM sender_table where sender_ID '" & txtSID.Text & "'", iconnect, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)


rsSender.Fields("sender_LName").Value = txtSLName.Text
rsSender.Fields("sender_FName").Value = txtSFName.Text
rsSender.Fields("sender_MI").Value = txtSMI.Text
rsSender.Fields("sender_Address").Value = txtSAddress.Text
rsSender.Fields("sender_ContactNO").Value = txtSCNo.Text


rsSender.Update()


MsgBox("Transaction has been processed, thanks,", vbInformation, "JRS")
End Sub




>> Ginamit ko po ung itinuro mo sa akin sir Genue. Gumamit po ako ng hidden txtbox for my sender_ID tapos gumawa ako ng another button for update. Ung Isang button kasi is pang Add un kaya dapat di galawin.

Baguhan p lng kasi ako sa programming eh, pero pag natuto ako ng mabuti, itratry ko rin tumulong sa mga ka symbianize natin. Thanks for sharing ur ideas mga ka symbianize. Ang laking tulong ng thread na to.

Your welcome! nice to hear that!

 

[marry012]

@marry012, nice one!
Matanong ko lang, ADODB lang ba talaga ang tinuro sa inyo sa skul? ADO.Net, hindi ba?
Mas madali kasi pag yun ang ginamit nyo.

Ma-encounter ko yang ganyang style na code, nung merong nagpa-tutor sakin sa pampanga.
Sabi nila, yun daw tinuro ng prof nila.

Sana, mag-upgrade naman ang mga old school na mga profs sa mga schools.

HINDI po eh. Tinuro lng yan sa akin ng kakilala ng kaibigan ko kaso, sobrang busy un at malayo. di ko rin siya macontact eh. Di ko nga alam ang mga functions ng ibang codes n ginamit ko eh, pinag aaralan ko pa.

iba kasi ung inadd kong references eh, kaysa dun sa mga nababasa kong tutorial sa google kaya medyo nahihirapan ako at iba rin ung code ng pagconnect sa database eh.

e2 po pala ung code ng ko sa pagconnect ng vb.net 2010 sa mysql 5.0, ishashare ko lng po kung sakaling makatulong at pag aralan n lng. nakalagay po ung code sa module para separated n cya sa codes ng ibang form. Nakapublic din po siya kung saan pwedeng gamitin ang functions nito sa lahat ng forms na paggagamitan.

Module SQLConnect
    Public iconnect As New ADODB.Connection
    Public Sub con()
        If iconnect.State = 1 Then iconnect.Close()
        With iconnect
            .ConnectionString = "DRIVER=MySQL ODBC 3.51 Driver;" _
            & "SERVER=localhost;" _
            & "DATABASE=jrssystem; " _
            & "UID=root;PWD=c;Option 3"
            .CursorLocation = ADODB.CursorLocationEnum.adUseClient
            .Open()

        End With

    End Sub

End Module


>>e2 nmn po ung mga references

DevComponents.DotNetBar2                                        Type: .NET    
MicrosoftActiveXDataObjects2.6Library                         Type: COM
Microsoft Visual Basic for Application Extensibility 5.3   Type: COM
Microsoft.VisualBasic.PowerPacks.Vs                            Type: .NET
OLE Automation                                                            Type: COM   


Once again: Maraming salamat po sa inyo, pati na rin kay sir Genue

 

[knives645]

HINDI po eh. Tinuro lng yan sa akin ng kakilala ng kaibigan ko kaso, sobrang busy un at malayo. di ko rin siya macontact eh. Di ko nga alam ang mga functions ng ibang codes n ginamit ko eh, pinag aaralan ko pa.

iba kasi ung inadd kong references eh, kaysa dun sa mga nababasa kong tutorial sa google kaya medyo nahihirapan ako at iba rin ung code ng pagconnect sa database eh.

e2 po pala ung code ng ko sa pagconnect ng vb.net 2010 sa mysql 5.0, ishashare ko lng po kung sakaling makatulong at pag aralan n lng. nakalagay po ung code sa module para separated n cya sa codes ng ibang form. Nakapublic din po siya kung saan pwedeng gamitin ang functions nito sa lahat ng forms na paggagamitan.

Module SQLConnect
    Public iconnect As New ADODB.Connection
    Public Sub con()
        If iconnect.State = 1 Then iconnect.Close()
        With iconnect
            .ConnectionString = "DRIVER=MySQL ODBC 3.51 Driver;" _
            & "SERVER=localhost;" _
            & "DATABASE=jrssystem; " _
            & "UID=root;PWD=c;Option 3"
            .CursorLocation = ADODB.CursorLocationEnum.adUseClient
            .Open()

        End With

    End Sub

End Module


>>e2 nmn po ung mga references

DevComponents.DotNetBar2                                        Type: .NET    
MicrosoftActiveXDataObjects2.6Library                         Type: COM
Microsoft Visual Basic for Application Extensibility 5.3   Type: COM
Microsoft.VisualBasic.PowerPacks.Vs                            Type: .NET
OLE Automation                                                            Type: COM   


Once again: Maraming salamat po sa inyo, pati na rin kay sir Genue[/QUOTE]

Try mo yung MySQL Connector.

Download it [URL="http://dev.mysql.com/downloads/connector/net/"]here[/URL].
And the documentation [URL="http://dev.mysql.com/doc/connector-net/en/connector-net-programming.html"]here[/URL].

If you need help, don't hesitate to ask any questions.

 

[Genue26]

Try mo yung MySQL Connector.

Download it here.
And the documentation here.

If you need help, don't hesitate to ask any questions.

Tama... ito din kasi ginagamit ko ngayon...
Sir tanong ko lang, ung database na ginawa ko kasi was through command line lang.
Ok lang ba yun kung halimbawang gawin ko nang installer ung system na ginagawa ko?