Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 108,423

HOME > .NET Framework > Forum > รบกวนช่วยเช็ค loop for ให้ผมหน่อยครับ ผมต้องการเพิ่มรูปเข้า DB ครับ(มือใหม่)



 

รบกวนช่วยเช็ค loop for ให้ผมหน่อยครับ ผมต้องการเพิ่มรูปเข้า DB ครับ(มือใหม่)

 



Topic : 128016



โพสกระทู้ ( 8 )
บทความ ( 0 )



สถานะออฟไลน์




ผมมีข้อมูลของรูปที่เชี่อมกับ 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
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2017-06-17 03:07:35 By : ytnart View : 402 Reply : 2
 

 

No. 1



โพสกระทู้ ( 115 )
บทความ ( 3 )



สถานะออฟไลน์
Facebook

ไม่ 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
 


 

No. 2



โพสกระทู้ ( 4,070 )
บทความ ( 23 )



สถานะออฟไลน์
Facebook

Code (VB.NET)
MsgBox(dts2.Rows(0)("picofpro"))

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2017-06-17 09:51:50 By : lamaka.tor
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : รบกวนช่วยเช็ค loop for ให้ผมหน่อยครับ ผมต้องการเพิ่มรูปเข้า DB ครับ(มือใหม่)
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , รับทำบัญชี , โรงงานผลิตครีม , สำนักงานบัญชี , รับจดทะเบียนบริษัท , Pangpond , รถมือสอง

Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2020 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่