หน้าแรก | ลงโฆษณาฟรี l หางาน l คอมพิวเตอร์ l เว็บบอร์ด | ตลาดออนไลน์ | อัตราค่าลงโฆษณา
www.cmprice.com เว็บไซต์ของฅนเชียงใหม่ GRAB FOOD LAMPHUN
พื้นที่โฆษณา 1,500 บ./เดือน โทร.080-500-1180

หน้าแรก » เว็บบอร์ด
ห้องแก๋งโฮ๊ะ
เว็บบอร์ด » ห้องแก๋งโฮ๊ะ
รายละเอียดของห้อง : พูดคุยกันเรื่องทั่วๆ ไป, สัพเพเหระ, อยากถาม อยากตอบ
กระทู้ที่ตอบกลับล่าสุด | สร้างกระทู้ใหม่ | ดูกระทู้ทั้งหมด | ค้นหากระทู้ :
ช่วยดู error syntax near ให้หน่อยนะคะ

แชร์หน้านี้ ไปยัง facebook ตอบกลับกระทู้นี้ VV กดถูกใจกระทู้นี้ VV
ช่วยดู error syntax near ให้หน่อยนะคะ
โพสต์โดย seendy , วันที่ 16 พ.ย. 52 เวลา 14:10:45 IP: Hide ip    


กด like เพื่อติดตามข่าวสารดีๆ
จาก cmprice.com
VVVVVV
ลิงก์ผู้สนับสนุน

ลิงก์ผู้สนับสนุน


 

© เนื้อหาข่าว/กระทู้

 

 

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.ClickDim data As IDataObjectDim bmap As Image' Copy clipboard SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)

 

' clipboard convert bitmap data = Clipboard.GetDataObject()

 

If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then bmap =

picCapture.Image = bmap

ClosePreviewWindow()

btnSave.Enabled =

CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)False btnStop.Enabled =

False btnStart.Enabled =

True  

 

 

Dim Img As System.Drawing.Bitmap = New System.Drawing.Bitmap(picCapture.Width, picCapture.Height)Dim Graphics As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Img)Dim Picname As String Picname =

"test" Graphics.DrawImage(picCapture.Image,

Img.Save(

 

photo = GetPhoto(

New System.Drawing.Rectangle(0, 0, picCapture.Width, picCapture.Height))"c:\\test.jpg")Dim photo As Byte()"c:\\test.jpg") ' Byte array x.Open()

 

Try  

' binary (byte array) ServiceIn  

Dim sqlAdd As String sqlAdd =

"INSERT INTO Login" sqlAdd &=

"VALUES (@Li_id,@std_id,@std_name,@std_address,@std_level,@par_telephone,@par_name,@par_id,@photo,@R_id)"  

 

.CommandText = sqlAdd

.CommandType = CommandType.Text

.Connection = x

.Parameters.Clear()

.Parameters.Add(

.Parameters.Add(

.Parameters.Add(

.Parameters.Add(

.Parameters.Add(

.Parameters.Add(

.Parameters.Add(

.Parameters.Add(

.Parameters.Add(

.Parameters.Add(

.ExecuteNonQuery()

 

Dim myCom As New SqlCommandWith myCom"@Li_id", SqlDbType.NChar).Value = TextBox6.Text.Trim()"@std_id", SqlDbType.NChar).Value = TextBox8.Text.Trim()"@std_name", SqlDbType.NVarChar).Value = TextBox2.Text.Trim()"@std_address", SqlDbType.NVarChar).Value = TextBox3.Text.Trim()"@std_level", SqlDbType.NVarChar).Value = TextBox1.Text.Trim()"@par_telephone", SqlDbType.NChar).Value = TextBox4.Text.Trim()"@par_name", SqlDbType.NVarChar).Value = TextBox5.Text.Trim()"@par_id", SqlDbType.NChar).Value = TextBox9.Text.Trim()"@photo", SqlDbType.Binary).Value = photo"@R_id", SqlDbType.NChar).Value = TextBox7.Text.Trim()End With x.Close()

 

 

objDataAdapter1.Fill(objdataset1,

DataGridView1.DataSource = objdataset1

DataGridView1.DataMember =

Dim objDataAdapter1 As New SqlDataAdapter("select*from Login", x)Dim objdataset1 As DataSet = New DataSet"LogIn")"LogIn" MessageBox.Show(

clearALLData()

 

MessageBox.Show(

 

"", "", MessageBoxButtons.OK, MessageBoxIcon.Information)Catch ex As Exception" :" & ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)End Try  

End If  

End Sub

 

 

 

 


Copy Link : ท่านสามารถ copy ลิงค์ของข่าวนี้เพื่อเผยแพร่ต่อได้
แชร์หน้านี้ ไปยัง facebook ตอบกลับกระทู้นี้ VV กดถูกใจกระทู้นี้ VV


ลิงก์ผู้สนับสนุน

ลิงก์ผู้สนับสนุน

 

 

 

 

 



แจ้งลบกระทู้นี้

อ่าน 2854

แสดงความคิดเห็น โดย seendy IP: Hide ip , วันที่ 16 พ.ย. 52 เวลา 14:10:45
 

 

จำหน่าย ผ้าพันคอ ผ้าคลุมไหล่ ผ้าฝ้ายทอมือ ราคาส่ง ราคาถูก เริ่มต้นที่ 25 บาท/ผืน ผลิตจากผ้าฝ้ายแท้ 100%พื้นที่โฆษณา
www.cmprice.com เว็บไซต์ที่คนเข้าชมมากที่สุดในเชียงใหม่ !!! เห็นชัด เห็นบ่อย ตรงกลุ่มเป้าหมาย เพียง 1500 บาทต่อเดือน
สนใจลงโฆษณาตรงนี้ ติดต่อ 080-500-1180 หรือ ส่งข้อความเพื่อติดต่อที่นี่

 

 
กรุณาอ่าน
ข้อความที่ท่านได้อ่าน เกิดจากการเขียนโดยสาธารณชน และส่งขึ้นมาแบบอัตโนมัติ เจ้าของเว็บบอร์ดไม่รับผิดชอบต่อข้อความใดๆทั้งสิ้น เพราะไม่สามารถ ระบุได้ว่าเป็นความจริงหรือชื่อผู้เขียนที่ได้เห็นคือชื่อจริง ผู้อ่านจึงควรใช้วิจารณญาณในการกลั่นกรอง และถ้าท่านพบเห็นข้อความใด ที่ขัดต่อกฎหมายและ ศีลธรรม หรือเป็นการกลั่นแกล้งเพื่อให้เกิดความเสียหาย ต่อบุคคล หรือหน่วยงานใด กรุณาส่ง email มาที่ info@cmprice.com เพื่อให้ผู้ควบคุม ระบบทราบและทำการลบข้อความนั้น ออกจากระบบต่อไป
 
 
 


ปิดโฆษณานี้X

ผ้าพันคอราคาถูก

ปิดโฆษณานี้X

จำหน่าย ผ้าพันคอ ผ้าคลุมไหล่ ผ้าฝ้ายทอมือ ราคาส่ง ราคาถูก เริ่มต้นที่ 25 บาท/ผืน ผลิตจากผ้าฝ้ายแท้ 100%พื้นที่โฆษณา
www.cmprice.com เว็บไซต์ที่คนเข้าชมมากที่สุดในเชียงใหม่ !!! เห็นชัด เห็นบ่อย ตรงกลุ่มเป้าหมาย เพียง 1500 บาทต่อเดือน
สนใจลงโฆษณาตรงนี้ ติดต่อ 080-500-1180 หรือ ส่งข้อความเพื่อติดต่อที่นี่

 


หน้าแรก l หางานเชียงใหม่ | ตลาดออนไลน์ | เว็บบอร์ด | อัตราค่าลงโฆษณา | ลงโฆษณาฟรี ประกาศฟรี | ติดต่อเรา


เพื่อนบ้านเราทั้งหมด วิธีแลก Link

© cmprice.com since 14 Jan 2005
E-mail: info@cmprice.com
FaceBook : facebook.com/cmprice.fc
TEL. 08-0500-1180
Line id: cmprice









www.cmprice.com ที่นี่มีสิ่งดีๆ รอคุณอยู่
ผู้สนับสนุน แบบพิเศษ

บ้านหนองช้างคืน | เครื่องฟอกอากาศ เชียงใหม่-ลำพูน | ผ้าพันคอราคาถูก | ของชำร่วย | ลงโฆษณาฟรี ประกาศฟรี