|
 |
ติด error ตรงนี้อ่ะค่ะ รบกวนช่วยทีนะค่ะ ติดมาหลายวันแร้วค่ะแก้ไม่ได้ซักที |
| |
 |
|
|
 |
 |
|
Debug ตัว strsend มาให้ดูหน่อยครับ
|
 |
 |
 |
 |
| Date :
2012-02-19 17:38:21 |
By :
webmaster |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
คืออะไรหรอค่ะ
|
| |
|
|
| |
| Date :
2012-02-19 17:58:23 |
By :
ีumporn |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ค่าตัวแปร strsend ครับ
|
| |
|
|
| |
| Date :
2012-02-19 18:02:42 |
By :
webmaster |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Private Sub txtsend_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtsend.KeyDown
'ค้นหา
If e.KeyCode = Keys.Enter Then
Dim strsend As String
strsend = "select o.datetimes,o.companyname,o.VendorName,o.Address_Com,o.Email_Com,o.Tel_Com,o.PayID,r.OrderID,r.CarID,r.ModerCar,r.ColorCar,r.Number,r.StatusCar,r.Price,r.total"
strsend &= "from Orders o,OrderDetail r"
strsend &= "where o.OrderID=r.OrderID and r.OrderID ='" & txtsend.Text & " '"
With cn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With
With cm
.CommandText = strsend
.Connection = cn
Dr = .ExecuteReader
End With
If Dr.HasRows Then
Do While Dr.Read()
txtid.Text = Dr.GetString(7)
txtIDcar.Text = Dr.GetString(8)
txtColor.Text = Dr.GetString(10)
txtStatus.Text = Dr.GetString(12)
txtModer.Text = Dr.GetString(9)
txtNumber.Text = Dr.GetString(11)
txtPrice.Text = Dr.GetValue(13)
txtTotal.Text = Dr.GetValue(14)
txtPany.Text = Dr.GetString(1)
txtName.Text = Dr.GetString(2)
ComboPay.Text = Dr.GetString(6)
txtAdd.Text = Dr.GetString(3)
txtMail.Text = Dr.GetString(4)
txtPhone.Text = Dr.GetString(5)
DateTimes.Text = Dr.GetString(0)
Loop
End If
End If
cn.Close()
End Sub
|
| |
|
|
| |
| Date :
2012-02-19 18:04:03 |
By :
ีumporn |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
 Load balance : Server 03
|
