-
Mar 20th, 2018, 01:40 AM
#1
Thread Starter
New Member
[RESOLVED] my listview is not updating, you need to rerun to see the updated listview
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Private Sub Command1_Click()
If ValidateTextFields Then
Set rs = New ADODB.Recordset
rs.Open " select * from customerinfo ", conn, 3, 3
rs.AddNew
rs.Fields("CN") = Text1.Text
rs.Fields("CA") = Text2.Text
rs.Fields("CDA") = Text4.Text
rs.Fields("CCP") = Text3.Text
rs.Fields("CT") = Text5.Text
rs.Fields("CF") = Text6.Text
rs.Fields("CE") = Text7.Text
rs.Fields("CS") = Combo2.Text
rs.Fields("Terms") = Combo1.Text
rs.UPDATE
Adodc1.Refresh
MsgBox "Data Added"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Combo2.Text = ""
Combo1.Text = ""
Else
MsgBox "All fields are required."
End If
End Sub
Private Sub Command2_Click()
MainForm.Show
Me.Hide
End Sub
Private Sub Command3_Click()
ListView1.Visible = True
Command3.Visible = False
Command4.Visible = True
Command1.Visible = False
End Sub
Private Sub Command4_Click()
Command4.Visible = False
Command3.Visible = True
ListView1.Visible = False
Command1.Visible = True
End Sub
Private Sub Command5_Click()
If ValidateTextFields Then
rs.Open " select * from Costumerinfo ", conn, 3, 3
rs.AddNew
Adodc1.Recordset.Fields("CN") = Text1.Text
Adodc1.Recordset.Fields("CA") = Text2.Text
Adodc1.Recordset.Fields("CDA") = Text4.Text
Adodc1.Recordset.Fields("CCP") = Text3.Text
Adodc1.Recordset.Fields("CT") = Text5.Text
Adodc1.Recordset.Fields("CF") = Text6.Text
Adodc1.Recordset.Fields("CE") = Text7.Text
Adodc1.Recordset.Fields("CS") = Combo2.Text
Adodc1.Recordset.Fields("Terms") = Combo1.Text
Adodc1.Recordset.UPDATE
MsgBox "Data has been Updated"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Combo2.Text = ""
Combo1.Text = ""
Command1.Visible = True
Else
MsgBox "All fields are required."
End If
End Sub
Private Sub Form_Load()
dbconnection
loadlist
Set rs = New ADODB.Recordset
rs.Open "select * from Salesman ", conn, 3, 3
Do While Not rs.EOF
Combo2.AddItem rs!SName
rs.MoveNext
Loop
Set rs = Nothing
End Sub
Private Sub ListView1_DblClick()
Text1.Text = ListView1.SelectedItem
Text2.Text = ListView1.SelectedItem.SubItems(1)
Text4.Text = ListView1.SelectedItem.SubItems(2)
Text3.Text = ListView1.SelectedItem.SubItems(3)
Text5.Text = ListView1.SelectedItem.SubItems(4)
Text6.Text = ListView1.SelectedItem.SubItems(5)
Text7.Text = ListView1.SelectedItem.SubItems(6)
Combo2.Text = ListView1.SelectedItem.SubItems(7)
Combo1.Text = ListView1.SelectedItem.SubItems(8)
ListView1.Visible = False
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Text5.Text & Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0
End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Text6.Text & Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0
End Sub
Private Function ValidateTextFields() As Boolean
Dim ctrl As Control
Dim result As Boolean
result = True 'set this to false if a textbox fails
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then
If Len(ctrl.Text) = 0 Then
result = False
Exit For 'bail on the first failure
End If
End If
Next ctrl
ValidateTextFields = result
End Function
Sub loadlist()
Dim list As ListItem
ListView1.ListItems.Clear
rs.Open "SELECT * FROM customerinfo ", conn, adOpenForwardOnly, adLockReadOnly, adCmdText
Do Until rs.EOF
Set list = ListView1.ListItems.Add(, , rs!CN)
list.SubItems(1) = rs!CA
list.SubItems(2) = rs!CDA
list.SubItems(3) = rs!CCP
list.SubItems(4) = rs!CT
list.SubItems(5) = rs!CF
list.SubItems(6) = rs!CE
list.SubItems(7) = rs!terms
list.SubItems(8) = rs!CS
rs.MoveNext
Loop
End Sub
Sub dbconnection()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\JRDManufacturing\Desktop\VB6\System\JRD.mdb"
End Sub
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|