Ran-time error '-214721790(80040e14)';
Characters found after end SQL ststement
Код формы:
- Код: Выделить всё
Option Explicit
Private conn As ADODB.Connection
Private WithEvents currCustomer As clsCustomer
Private data_changed As Boolean
Private Sub cmdSave_Click()
Call currCustomer.Save
End Sub
Private Sub currCustomer_SaveSucceed(flag As Boolean)
If flag Then
lblMsg.Caption = "Save succeed"
lblMsg.BackColor = vbGreen
lstCustomers.List(lstCustomers.ListIndex) = currCustomer.FirstName & " " & currCustomer.LastName
Else
lblMsg.Caption = " Save failed."
lblMsg.BackColor = vbRed
End If
tmrMsg.Enabled = True
lblMsg.Visible = True
End Sub
Private Sub Form_Load()
If CreateConnection(conn) Then
Dim rs As New ADODB.Recordset
Set rs = conn.Execute("SELECT id_code, ID, Full_Name, Address, Telefon, E_Mail, ICQ, Notes FROM Address_Table; ")
Do Until rs.EOF
lstCustomers.AddItem CStr(rs!Full_Name)
lstCustomers.ItemData(lstCustomers.NewIndex) = CLng (rs!id_code)
rs.MoveNext
Loop
End If
End Sub
Private Sub Form_Resize()
With lstCustomers
.Left = 0
.Top = 0
.Width = Me.ScaleWidth * 0.3
.Height = Me.ScaleHeight
End With
With fraCustomer
.Left = lstCustomers.Width
.Top = 0
.Width = Me.ScaleWidth * 0.7
.Height = Me.ScaleHeight
End With
End Sub
Private Sub lstCustomers_Click()
Dim code As Long
If data_changed Then
Dim ret As Single
ret = MsgBox("Changes have been made. Do you want to save them?", vbQuestion + vbYesNoCancel, "Customer Service")
If ret = vbYes Then
currCustomer.Save
ElseIf ret = vbCancel Then
Exit Sub
End If
Set currCustomer = Nothing
End If
code = lstCustomers.ItemData(lstCustomers.ListIndex)
Set currCustomer = New clsCustomer
'Set cust2 = New clsCustomer
Call currCustomer.Load(code)
'Call cust2.Load(1)
txtDetail(0).Text = currCustomer.FullName
txtDetail(1).Text = currCustomer.EMail
txtDetail(2).Text = currCustomer.CellPhone
txtDetail(3).Text = currCustomer.Address
txtDetail(4).Text = currCustomer.ICQ
txtDetail(5).Text = currCustomer.Notes
txtDetail(6).Text = currCustomer.ID
data_changed = False
End Sub
Private Sub mnuFileExit_Click()
Unload Me
End Sub
Private Sub mnuFileSave_Click()
If Not (currCustomer Is Nothing) Then
Call currCustomer.Save
End If
End Sub
Private Sub tmrMsg_Timer()
lblMsg.Visible = False
tmrMsg.Enabled = False
End Sub
Private Sub txtDetail_Change(Index As Integer)
Select Case Index
Case 0
currCustomer.FirstName = Trim(txtDetail(Index).Text)
Case 1
currCustomer.LastName = Trim(txtDetail(Index).Text)
Case 2
currCustomer.CellPhone = Trim(txtDetail(Index).Text)
Case 3
currCustomer.Address = Trim(txtDetail(Index).Text)
Case 4
currCustomer.ICQ = Trim(txtDetail(Index).Text)
Case 5
currCustomer.Notes = Trim(txtDetail(Index).Text)
Case 6
currCustomer.ID = Trim(txtDetail(Index).Text)
End Select
data_changed = True
End Sub
Выделенно именно то место где комп вспотыкается!
Подскажите пожалуйста что всё это значит и что с этим делать!!!!!
