เว็บไซต์ในเครือ

ติดตามพันทิป

ดาวน์โหลดได้แล้ววันนี้

Pantip iOS

Pantip Android

Pantip Android

เกี่ยวกับเรา

For next loop และ SQL

กระทู้สนทนา

Private Sub cmdRunSQL_Click()
Dim i
Dim SQL

For i = 1 To 5
SQL = "select * from table where code1 = " & i
Next

Adodc1.RecordSource = SQL
Adodc1.Refresh
If DataGrid1.DataSource Is Nothing Then
Set DataGrid1.DataSource = Adodc1
End If
End Sub

ผลที่ได้ จะออกมาแต่ข้อมูลที่ code1 = 5 ส่วน code1 = 1 ถึง 4 ไม่ออกครับ ไม่ทราบว่าขาดคำสั่งอะไร

ขอบคุณมากครับ

จากคุณ รบกวนด้วยครับ ( Ticket ID : 253582)

0

ถูกใจให้พอยต์

ยังไม่ได้เป็นสมาชิก

▼ กำลังโหลดข้อมูล... ▼

แสดงความคิดเห็น

คุณสามารถแสดงความคิดเห็นกับกระทู้นี้ได้ด้วยการเข้าสู่ระบบ

เข้าสู่ระบบ

สมาชิกหมายเลข 1799584

ตูนน้อย

สมาชิกหมายเลข 973876

บนสุด ล่างสุด อ่านเฉพาะข้อความเจ้าของกระทู้

โปรดศึกษาและยอมรับนโยบายข้อมูลส่วนบุคคลก่อนเริ่มใช้งาน อ่านเพิ่มเติมได้ที่นี่