mrbrainfreeze

mag bisikleta

Cool!

Mga Masters,

 

Pwede nyo ba ako tulungan i-convert itong code from VB6 to VB.NET (2010 Express)? I developed kasi a program for private schools at gusto ko i-upgrade ang code to .Net pero I am having problem sa coding ng ADO to ADO.net

 

Here is the code I use:

 

Public Conn As New ADODB.Connection

Public Rs As ADODB.Recordset

Public Fld As ADODB.Field

Public ConnString

Dim Arr_Enrollees()

Dim Ctr

 

 

Private Sub Form_Load()

ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=littleangel_db;UID=pss;PWD=pss;OPTION=3;"

Set Conn = New ADODB.Connection

Conn.ConnectionString = ConnString

Conn.Open

Set Rs = New ADODB.Recordset

Rs.CursorLocation = adUseServer

 

with Rs

Ctr=0

.open "select count(*) from file_enrollees", Conn

redim Arr_Enrollees(.fields("count(*)"), 2)

.close

.open "select * from file_enrollees", Conn

if not .eof then

.movefirst

Ctr=0

do while not .eof

Arr_Enrollees(Ctr, 0) = .fields("enrollees_fname")

Arr_Enrollees(Ctr, 1) = .fields("enrollees_lname")

.movenext

Ctr= Ctr + 1

loop

end if

.close

 

.open "select * from file_enrollees", Conn, adOpenStatic, adLockOptimistic

.addnew

!enrollees_fname = "Juan"

!enrollees_lname = "Calintong"

.update

.close

end with

End Sub

 

 

Sana merong makatulong maka-explain ng simple kung paano ma-convert itong example to VB.Net / ADO.Net

 

Thanks in advance

 

BTW. MySQL pala gamit ko

May pangconvert ang vb.net. No need to revised the codes. Pm me if you need help.

Pwede po bang quarterly ang bayad sa personal contribution? O kelangan monthly pa din?

i am planning to buy a Nikon D3100.. sirs matibay ba etong cam na eto?

Depende kung pano mo aalagaan. Any cameras basta maalaga ka tatagal.

But this is a good cam.

2500 per week sakit sa face