 |
| |
รบกวนช่วยเช็ค loop for ให้ผมหน่อยครับ ผมต้องการเพิ่มรูปเข้า DB ครับ(มือใหม่) |
| |
 |
|
|
 |
 |
|
ผมมีข้อมูลของรูปที่เชี่อมกับ barcode อยู่คนละ database อยากดึงออกมาแล้วไปใส่อีก database ครับ
โดยการดึง ข้อมูลจาก listview ในแต่ละ row ออกมา แล้วผมต้องการ ให้คิดรี่ข้อมูลรูปจาก barcode แล้วใส่รูปเข้าไปตาม bacode นั้นครับ
แต่ผลการรัน ได้เพียงแค่รูปที่เพิ่มเข้าไปรูปแรกครับ รูปใน row 2 row 3 ไม่ตรงกับ barcode ครับ
Code (VB.NET)
Dim shw As String = TextBox1.Text
Dim date2 As String = DateTimePicker1.Text
Dim namec As String = TextBox3.Text
Dim objConn As New OleDbConnection
Dim objCmd As New OleDbCommand
Dim strConnString As String
Dim cmdUpdate As New OleDbCommand
Dim img2 As Byte()
olecon = New OleDbConnection
olecon.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database\database2.accdb;"
olecon.Open()
strConnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database\databaseorder.mdb;"
objConn.ConnectionString = strConnString
objConn.Open()
Dim i As Integer = ListView1.Items.Count - 1
For j As Integer = 0 To i
Dim num As String = ListView1.Items(j).SubItems(0).Text
Dim barp As String = ListView1.Items(j).SubItems(1).Text
Dim namep As String = ListView1.Items(j).SubItems(2).Text
Dim pricep As Double = ListView1.Items(j).SubItems(3).Text
Dim coup As Double = ListView1.Items(j).SubItems(4).Text
Dim sump As Double = ListView1.Items(j).SubItems(5).Text
oledb = "select * from warehouse where barcode = '" & barp & "'"
Dim dts2 As DataTable = cmd_excuteToDataTable()
MsgBox(oledb)
img2 = dts2.Rows(0)("picofpro")
cmdUpdate.CommandText = "INSERT INTO ordercus (order_code,no_id,barcode,namecus,namepro,pricepro,countpro,sumprice,dateorder,pic_pro) VALUES ('" & shw & "','" & num & "','" & barp & "','" & namec & "','" & namep & "','" & pricep & "','" & coup & "','" & sump & "','" & date2 & "',@img);"
cmdUpdate.Parameters.Add("@img", OleDbType.LongVarBinary).Value = img2
cmdUpdate.CommandType = CommandType.Text
cmdUpdate.Connection = objConn
cmdUpdate.ExecuteNonQuery()
ขอบคุณครับ
Tag : .NET, Ms Access, Crystal Report, Win (Windows App), VB.NET, Windows
|
ประวัติการแก้ไข
2017-06-17 03:08:35
2017-06-17 03:08:54
|
 |
 |
 |
 |
| Date :
2017-06-17 03:07:35 |
By :
ytnart |
View :
812 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ไม่ select มาตรงๆ แล้ว Insert into เข้าอีกฐานข้อมูลเลยล่ะครับ ไม่ต้องเอามาใส่ listview
เช่น ผมมีข้อมูลใน SQLite เอามาใส่ใน MySQL
Code (VB.NET)
cmdSQLite = New SQLiteCommand("SELECT * FROM comfix_cache" , connSQLite)
Call open_connectionSQLite()
Try
DrSQLite = cmdSQLite.ExecuteReader()
Catch ex As Exception
End Try
With DrSQLite
While .Read()
cmd = New MySqlCommand("INSERT INTO comfix(fix_id,claims_id,date_save,customer_id,customer_name,sn," _
& "symptom,managerdata,fixrepairnote,fixaccessory,fixnote,fixtprice,varuntee," _
& "date_get,fixuser,`status`,user_repair,note_repair,teltocus,date_send," _
& "datecom_repair,importune,comfix_barcode)" _
& "VALUES(@fix_id,@claims_id,@date_save,@customer_id,@customer_name,@sn," _
& "@symptom,@managerdata,@fixrepairnote,@fixaccessory,@fixnote,@fixtprice,@varuntee," _
& "@date_get,@fixuser,@status,@user_repair,@note_repair,@teltocus,@date_send," _
& "@datecom_repair,@importune,@comfix_barcode)", ConnectionDB)
With cmd
.Parameters.AddWithValue("@fix_id", DrSQLite.Item("fix_id"))
.Parameters.AddWithValue("@claims_id", DrSQLite.Item("claims_id"))
.Parameters.AddWithValue("@date_save", DrSQLite.Item("date_save"))
.Parameters.AddWithValue("@customer_id", DrSQLite.Item("customer_id"))
.Parameters.AddWithValue("@customer_name", DrSQLite.Item("customer_name"))
.Parameters.AddWithValue("@sn", DrSQLite.Item("sn"))
.Parameters.AddWithValue("@symptom", DrSQLite.Item("symptom"))
.Parameters.AddWithValue("@managerdata", DrSQLite.Item("managerdata"))
.Parameters.AddWithValue("@fixrepairnote", DrSQLite.Item("fixrepairnote"))
.Parameters.AddWithValue("@fixaccessory", DrSQLite.Item("fixaccessory"))
.Parameters.AddWithValue("@fixnote", DrSQLite.Item("fixnote"))
.Parameters.AddWithValue("@fixtprice", DrSQLite.Item("fixtprice"))
.Parameters.AddWithValue("@varuntee", DrSQLite.Item("varuntee"))
.Parameters.AddWithValue("@date_get", DrSQLite.Item("date_get"))
.Parameters.AddWithValue("@fixuser", DrSQLite.Item("fixuser"))
.Parameters.AddWithValue("@status", DrSQLite.Item("status"))
.Parameters.AddWithValue("@user_repair", DrSQLite.Item("user_repair"))
.Parameters.AddWithValue("@note_repair", DrSQLite.Item("note_repair"))
.Parameters.AddWithValue("@teltocus", DrSQLite.Item("teltocus"))
.Parameters.AddWithValue("@date_send", DrSQLite.Item("date_send"))
.Parameters.AddWithValue("@datecom_repair", DrSQLite.Item("datecom_repair"))
.Parameters.AddWithValue("@importune", DrSQLite.Item("importune"))
.Parameters.AddWithValue("@comfix_barcode", DrSQLite.Item("comfix_barcode"))
End With
Call open_connection()
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
End Try
End While
End With
|
ประวัติการแก้ไข
2017-06-17 08:06:32
| |
|
|
| |
| Date :
2017-06-17 08:04:13 |
By :
pakyaudio |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
MsgBox(dts2.Rows(0)("picofpro"))
|
| |
|
|
| |
| Date :
2017-06-17 09:51:50 |
By :
lamaka.tor |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
