Need ure help in vb6.

**reyarita** · 09-29-2009, 01:13 PM

mga istoryan naay ko ask.

Unsay pasabot anang USER-DEFINED TYPE NOT DEFINED error ni sa vb (sa module ako gibutang kay Public Conn as ADODB.Connection)with database MSHFlexgrid.
i have my code in here, I need ure help. Sige kog balikbalik ani mao lang ghapon.

i can send my code.

**sanggano_boy** · 09-29-2009, 02:42 PM

Originally Posted by reyarita

mga istoryan naay ko ask.

Unsay pasabot anang USER-DEFINED TYPE NOT DEFINED error ni sa vb (sa module ako gibutang kay Public Conn as ADODB.Connection)with database MSHFlexgrid.
i have my code in here, I need ure help. Sige kog balikbalik ani mao lang ghapon.

i can send my code.

it's an object if you use you have to instantiate first,

you can write it this way:
Public Conn as new ADODB.Connection

or

Conn = new ADODB.Connection

I hope it helps

**reyarita** · 09-30-2009, 10:41 AM

ok i try it.

dili man

this is my code :

================================================== ==============================
Dim newEdit As Byte

Private Sub cmdCancel_Click()
clearTextboxes
defaultMode
End Sub

Private Sub cmdDelete_Click()
Dim ans As Byte
ans = MsgBox("Do you want to delete this record?", vbYesNo, "Delete")
If ans = vbYes Then
Dim rs As New ADODB.Recordset
rs.Open "Delete From Student Where Stud_id='" & txtID.Text & "'", Conn, adOpenDynamic, adLockOptimistic
MsgBox "One Record Deleted."
End If
defaultMode
clearTextboxes
End Sub

Private Sub cmdEdit_Click()
controlTextBoxes (True)
controlButtons (False)
cmdSave.Enabled = True
cmdCancel.Enabled = True
newEdit = 1
txtLname.SetFocus
End Sub

Private Sub cmdNew_Click()
controlTextBoxes (True)
clearTextboxes
txtID.SetFocus
controlButtons (False)
cmdSave.Enabled = True
cmdCancel.Enabled = True
newEdit = 0
End Sub

Function clearTextboxes()
txtID = ""
txtLname = ""
txtFname = ""
txtMname = ""
txtCourse = ""
txtYear = ""
cboBirth = ""
txtAddress = ""
End Function

Private Sub cmdSave_Click()
controlButtons (False)
controlTextBoxes (False)
cmdNew.Enabled = True
cmdSearch.Enabled = True
cmdCancel.Enabled = True

Dim rs As New ADODB.Recordset
Dim sqlStr As String
If newEdit = 0 Then
sqlStr = "Select * From Student Where Stud_id='" & txtID.Text & "'"
rs.Open sqlStr, Conn, adOpenDynamic, adLockOptimistic
If rs.EOF Then
With rs
.Addnew
!Stud_id = txtID.Text
!Stud_lname = txtLname.Text
!Stud_fname = txtFname.Text
!Stud_mname = txtMname.Text
!Stud_course = txtCourse.Text
!Stud_year = txtYear.Text
!Stud_address = txtAddress.Text
!Stud_DOB = cboBirth.Text
.Update
End With
MsgBox "Record was been save!"
Else
MsgBox "ERROR: Duplicate ID Number!"
End If

Else
sqlStr = "Select * From Student Where Stud_id='" & txtID.Text & "'"
rs.Open sqlStr, Conn, adOpenDynamic, adLockOptimistic
With rs
!Stud_id = txtID.Text
!Stud_lname = txtLname.Text
!Stud_fname = txtFname.Text
!Stud_mname = txtMname.Text
!Stud_course = txtCourse.Text
!Stud_year = txtYear.Text
!Stud_address = txtAddress.Text
!Stud_DOB = cboBirth.Text
.Update
End With
MsgBox "Record was been Updated!"
End If
rs.Close
Set rs = Nothing
populateFlexGrid
End Sub

Private Sub cmdSearch_Click()
lblSearch.Visible = True
txtSearch.Visible = True
txtSearch.SetFocus
End Sub

Private Sub txtSearch_Change()
Dim rs As New ADODB.Recordset
sqlStr = "Select Stud_id,Stud_id,Stud_lname,Stud_fname,Stud_mname From Student Where Stud_lname Like '" & txtSearch.Text & "%' Order by Stud_lname"
rs.Open sqlStr, Conn, adOpenForwardOnly, adLockReadOnly
Set MSHStudent.Recordset = rs
rs.Close
End Sub

Private Sub Form_Load()
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "StudInfo.mdb" & ";Persist Security Info=False"
Conn.Open
Conn.CursorLocation = adUseClient
newEdit = 0
defaultMode
End Sub

Function defaultMode()
populateFlexGrid
controlButtons (False)
controlTextBoxes (False)
cmdNew.Enabled = True
cmdSearch.Enabled = True
cmdCancel.Enabled = True
End Function

Function controlButtons(flag)
cmdNew.Enabled = flag
cmdSave.Enabled = flag
cmdEdit.Enabled = flag
cmdDelete.Enabled = flag
cmdSearch.Enabled = flag
cmdCancel.Enabled = flag
End Function

Function controlTextBoxes(flag)
txtID.Enabled = flag
txtLname.Enabled = flag
txtFname.Enabled = flag
End Function

Function populateFlexGrid()
Dim rs As New ADODB.Recordset
Dim sqlStr As String
sqlStr = "SELECT Stud_id,Stud_id,Stud_lname,Stud_fname from Student Order by Stud_lname"
rs.Open sqlStr, Conn, adOpenForwardOnly, adLockReadOnly
If Not rs.EOF Then
MSHStudent.FixedCols = 0
Set MSHStudent.Recordset = rs
With MSHStudent
.FormatString = "ID|ID Number|Last Name|First Name"
.ColWidth(0) = 0
.ColWidth(1) = 1500
.ColWidth(2) = 2500
.ColWidth(3) = 2500
.AllowUserResizing = flexResizeColumns
.SelectionMode = flexSelectionByRow
End With
MSHStudent.Enabled = True
Else
MSHStudent.FixedCols = 0
With MSHStudent
.FormatString = "ID|ID Number|Last Name|First Name"
.ColWidth(0) = 0
.ColWidth(1) = 1500
.ColWidth(2) = 2500
.ColWidth(3) = 2500
MSHStudent.TextMatrix(1, 1) = ""
MSHStudent.TextMatrix(1, 2) = ""
MSHStudent.TextMatrix(1, 3) = ""
End With
MSHStudent.Enabled = False
End If
End Function

Private Sub MSHStudent_Click()
txtID.Text = MSHStudent.TextMatrix(MSHStudent.RowSel, 1)
txtLname.Text = MSHStudent.TextMatrix(MSHStudent.RowSel, 2)
txtFname.Text = MSHStudent.TextMatrix(MSHStudent.RowSel, 3)
controlButtons (False)
cmdEdit.Enabled = True
cmdDelete.Enabled = True
cmdCancel.Enabled = True
End Sub

Private Sub MSHStudent_KeyDown(KeyCode As Integer, Shift As Integer)
MSHStudent_Click
End Sub

================================================== =============================
Sa ako module mao ni

Public Conn As New ADODB.Connection
================================================== =============================
dili man gihapon

**RU9halogen** · 10-01-2009, 01:58 PM

something like this..

in your connection.bas module to make it global

Public rsnext As New ADODB.Recordset

**sanggano_boy** · 10-02-2009, 01:14 PM

Originally Posted by reyarita

ok i try it.

dili man

this is my code :

================================================== ==============================
Dim newEdit As Byte

Private Sub cmdCancel_Click()
clearTextboxes
defaultMode
End Sub

Private Sub cmdDelete_Click()
Dim ans As Byte
ans = MsgBox("Do you want to delete this record?", vbYesNo, "Delete")
If ans = vbYes Then
Dim rs As New ADODB.Recordset
rs.Open "Delete From Student Where Stud_id='" & txtID.Text & "'", Conn, adOpenDynamic, adLockOptimistic
MsgBox "One Record Deleted."
End If
defaultMode
clearTextboxes
End Sub

Private Sub cmdEdit_Click()
controlTextBoxes (True)
controlButtons (False)
cmdSave.Enabled = True
cmdCancel.Enabled = True
newEdit = 1
txtLname.SetFocus
End Sub

Private Sub cmdNew_Click()
controlTextBoxes (True)
clearTextboxes
txtID.SetFocus
controlButtons (False)
cmdSave.Enabled = True
cmdCancel.Enabled = True
newEdit = 0
End Sub

Function clearTextboxes()
txtID = ""
txtLname = ""
txtFname = ""
txtMname = ""
txtCourse = ""
txtYear = ""
cboBirth = ""
txtAddress = ""
End Function

Private Sub cmdSave_Click()
controlButtons (False)
controlTextBoxes (False)
cmdNew.Enabled = True
cmdSearch.Enabled = True
cmdCancel.Enabled = True

Dim rs As New ADODB.Recordset
Dim sqlStr As String
If newEdit = 0 Then
sqlStr = "Select * From Student Where Stud_id='" & txtID.Text & "'"
rs.Open sqlStr, Conn, adOpenDynamic, adLockOptimistic
If rs.EOF Then
With rs
.Addnew
!Stud_id = txtID.Text
!Stud_lname = txtLname.Text
!Stud_fname = txtFname.Text
!Stud_mname = txtMname.Text
!Stud_course = txtCourse.Text
!Stud_year = txtYear.Text
!Stud_address = txtAddress.Text
!Stud_DOB = cboBirth.Text
.Update
End With
MsgBox "Record was been save!"
Else
MsgBox "ERROR: Duplicate ID Number!"
End If

Else
sqlStr = "Select * From Student Where Stud_id='" & txtID.Text & "'"
rs.Open sqlStr, Conn, adOpenDynamic, adLockOptimistic
With rs
!Stud_id = txtID.Text
!Stud_lname = txtLname.Text
!Stud_fname = txtFname.Text
!Stud_mname = txtMname.Text
!Stud_course = txtCourse.Text
!Stud_year = txtYear.Text
!Stud_address = txtAddress.Text
!Stud_DOB = cboBirth.Text
.Update
End With
MsgBox "Record was been Updated!"
End If
rs.Close
Set rs = Nothing
populateFlexGrid
End Sub

Private Sub cmdSearch_Click()
lblSearch.Visible = True
txtSearch.Visible = True
txtSearch.SetFocus
End Sub

Private Sub txtSearch_Change()
Dim rs As New ADODB.Recordset
sqlStr = "Select Stud_id,Stud_id,Stud_lname,Stud_fname,Stud_mname From Student Where Stud_lname Like '" & txtSearch.Text & "%' Order by Stud_lname"
rs.Open sqlStr, Conn, adOpenForwardOnly, adLockReadOnly
Set MSHStudent.Recordset = rs
rs.Close
End Sub

Private Sub Form_Load()
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "StudInfo.mdb" & ";Persist Security Info=False"
Conn.Open
Conn.CursorLocation = adUseClient
newEdit = 0
defaultMode
End Sub

Function defaultMode()
populateFlexGrid
controlButtons (False)
controlTextBoxes (False)
cmdNew.Enabled = True
cmdSearch.Enabled = True
cmdCancel.Enabled = True
End Function

Function controlButtons(flag)
cmdNew.Enabled = flag
cmdSave.Enabled = flag
cmdEdit.Enabled = flag
cmdDelete.Enabled = flag
cmdSearch.Enabled = flag
cmdCancel.Enabled = flag
End Function

Function controlTextBoxes(flag)
txtID.Enabled = flag
txtLname.Enabled = flag
txtFname.Enabled = flag
End Function

Function populateFlexGrid()
Dim rs As New ADODB.Recordset
Dim sqlStr As String
sqlStr = "SELECT Stud_id,Stud_id,Stud_lname,Stud_fname from Student Order by Stud_lname"
rs.Open sqlStr, Conn, adOpenForwardOnly, adLockReadOnly
If Not rs.EOF Then
MSHStudent.FixedCols = 0
Set MSHStudent.Recordset = rs
With MSHStudent
.FormatString = "ID|ID Number|Last Name|First Name"
.ColWidth(0) = 0
.ColWidth(1) = 1500
.ColWidth(2) = 2500
.ColWidth(3) = 2500
.AllowUserResizing = flexResizeColumns
.SelectionMode = flexSelectionByRow
End With
MSHStudent.Enabled = True
Else
MSHStudent.FixedCols = 0
With MSHStudent
.FormatString = "ID|ID Number|Last Name|First Name"
.ColWidth(0) = 0
.ColWidth(1) = 1500
.ColWidth(2) = 2500
.ColWidth(3) = 2500
MSHStudent.TextMatrix(1, 1) = ""
MSHStudent.TextMatrix(1, 2) = ""
MSHStudent.TextMatrix(1, 3) = ""
End With
MSHStudent.Enabled = False
End If
End Function

Private Sub MSHStudent_Click()
txtID.Text = MSHStudent.TextMatrix(MSHStudent.RowSel, 1)
txtLname.Text = MSHStudent.TextMatrix(MSHStudent.RowSel, 2)
txtFname.Text = MSHStudent.TextMatrix(MSHStudent.RowSel, 3)
controlButtons (False)
cmdEdit.Enabled = True
cmdDelete.Enabled = True
cmdCancel.Enabled = True
End Sub

Private Sub MSHStudent_KeyDown(KeyCode As Integer, Shift As Integer)
MSHStudent_Click
End Sub

================================================== =============================
Sa ako module mao ni

Public Conn As New ADODB.Connection
================================================== =============================
dili man gihapon

bro. dili mn ko maka pa run ani imong code, wala pud ko time, pwde imo e e-mail sa akong ang actual file?

imo namn kaha gi check kung naka referrence ang ADODB object? sa imong reference files

Asa jud dapit sa code ang mo highlight if mo error?

**vash_guy** · 10-06-2009, 12:21 AM

Case Closed.. !!! ^_^ hheheeheheh

mana solbad guys!!!

**MarkCuering** · 10-06-2009, 09:11 AM

Add your components or "CTRL-T", add Microsoft ADO data control, and some desired components you will be using.

**reyarita** · 10-06-2009, 09:18 PM

salamat sa inyong tabang especially vash_guy

**reyarita** · 10-06-2009, 09:19 PM

mapatabang ya ko ninyo sunod
mga istoryaniks

**MarkCuering** · 10-07-2009, 07:33 AM

LOL... if you followed my advice i'm sure you got it right.

Thread: Need ure help in vb6.

Thread Tools

Search Thread