-1
내가 원하는 것을 표시하고 싶지만 한 행만 표시합니다. 그것을 해결하는 방법은 PLZ? 저는 첫 번째 행 데이터 만 가져옵니다.하지만 두 번째 라운드에서 do를 실행하면 루프를 건너 뛰고 프로세스가 종료됩니다.VB.net에서 MySQL 데이터베이스의 여러 행을 쿼리 할 수 없습니다.
ListView1.Items.Clear() SQLstring = "SELECT * From record WHERE member_code like '" & u1 & "' " SQLConnection.Open() SQLcommand = New MySqlCommand(SQLstring, SQLConnection) SQLdatareader = SQLcommand.ExecuteReader() Do While SQLdatareader.Read() a = (SQLdatareader.Item("book_code").ToString()) b = (SQLdatareader.Item("member_code").ToString()) c = (SQLdatareader.Item("book_status").ToString()) d = (SQLdatareader.Item("Borrow_date").ToString()) f = (SQLdatareader.Item("Due_date").ToString()) SQLdatareader.Close() SQLcommand.Dispose() SQLConnection.Close() SQLstring = "SELECT * From book WHERE book_code like '" & a & "' " SQLConnection.Open() SQLcommand = New MySqlCommand(SQLstring, SQLConnection) SQLdatareader = SQLcommand.ExecuteReader() Do While SQLdatareader.Read() g = (SQLdatareader.Item("book_name").ToString()) h = (SQLdatareader.Item("book_writer").ToString()) i = (SQLdatareader.Item("book_year").ToString()) Loop Dim SQLlist As ListViewItem = ListView1.Items.Add(g) SQLlist.SubItems.Add(h) SQLlist.SubItems.Add(i) SQLlist.SubItems.Add(d) SQLlist.SubItems.Add(f) If dtNow > f Then Dim fine_amount = f.Subtract(dtNow) SQLlist.SubItems.Add(fine_amount) Else SQLlist.SubItems.Add("0") End If Loop SQLdatareader.Close() SQLcommand.Dispose() SQLConnection.Close() End Sub