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

Registered : 109,037

HOME > Client Script Forum > ขอ code ปุ่มเพิ่มข้อมูล vb6.0 เชื่อมต่อ Access หน่อยครับ



 

ขอ code ปุ่มเพิ่มข้อมูล vb6.0 เชื่อมต่อ Access หน่อยครับ

 



Topic : 057009

Guest




ขอ code ปุ่มเพิ่มข้อมูล vb6.0 แบบ เชื่อมต่อกับ Access 5 text นะครับจะเขียนระบบภาพยนตร์ครับ
มีcodeตัวอ่างประมาณนี้แต่มัน เพิ่มข้อมูลไม่ได้ ผิดตรงไหน่ชวยแก้ทีครับ

Code (VB6)
Private Sub Command1_Click()
On Error GoTo EL
If Trim(Text1.Text) = "" Then Exit Sub
Adodc1.RecordSource = "select * from movie"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0) = Val(Text1.Text)
Adodc1.Recordset.Fields(1) = Text2.Text
Adodc1.Recordset.Fields(2) = Text3.Text
Adodc1.Recordset.Fields(3) = Text4.Text
Adodc1.Recordset.Fields(4) = Text5.Text
Adodc1.Recordset.Update
MsgBox "บันทึกข้อมูลเรียบร้อยแล้วครับ"
EL:
End Sub




Tag : Ms Access, VBScript, VB.NET






Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-03-08 16:15:04 By : เต้ย View : 12085 Reply : 8
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

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

'*** Connection String ***'
Dim strConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"


'*** Query ***'
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Set objRec = New ADODB.Recordset

strSQL = "SELECT * FROM.... "
Conn.ConnectionString = strConnectionString
Conn.Open


objRec.Open strSQL, Conn, 1, 3



'*** Execute ***'
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection

Conn.ConnectionString = strConnectionString
Conn.Open

strSQL = "INSERT INTO...."
Conn.Execute (strSQL)

If Err.Number <> 0 Then
Exit Function
End If

Conn.Close






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-08 21:02:33 By : webmaster
 


 

No. 2



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

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

Go to : ขอความรู้เกี่ยวกับ vb6.0 ติดต่อ SQL หน่อยครับๆๆๆๆๆๆ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-08 21:03:12 By : webmaster
 

 

No. 3

Guest


งง อะครับ มีcode ที่ ใช้งานได้ไหมครับ ต้องส่งพรุ่งนี้แล้ว = =
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-08 23:59:18 By : เต้ย
 


 

No. 4

Guest


ทำไมมีแต่ SQL อะคับ คือที่ผมเรียนเขาไม่ได้ใช้ code SQL อ่า มันเปง code ประมาณตัวอย่าง
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-09 00:12:40 By : เต้ย
 


 

No. 5

Guest


ต้องการโค้ดเชื่อฐานข้อมูลAccess 2007กับโปรแกรมvb6.0 ช่วหน่อยนะค่ะต้องทำโครงการส่ง
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2012-11-13 09:17:38 By : นู๋ใหม่
 


 

No. 6



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



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


Code (VB.NET)
 Dim cn As New OleDb.OleDbConnection
        Dim cmd As New OleDb.OleDbCommand

        cn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NewData.mdb")

        cn.Open()
        cmd = New OleDb.OleDbCommand("Insert Into Employee (EmpID,EmpName,EmpAddress,EmpPosition) Values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "')", cn)

        cmd.ExecuteNonQuery()

        MsgBox("  บันทึกข้อมูลเรียบร้อยแล้ว  ")
        cn = Nothing
        Me.Close()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
    End Sub

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-04-01 20:41:15 By : bigkikeo
 


 

No. 7



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

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


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-04-02 06:10:33 By : mr.win
 


 

No. 8

Guest


vb6 ขอตัวอย่างหน่อยค่ะ
ต้องการให้ข้้อมูลที่เราเพิ่มใหม่ในaccessจากฟอร์มย่อย มาโชว์ใน coombobox ในฟอร์มหลัก
ตอนนี้ที่ทำได้คือ ข้อมูลที่เพิ่มใหม่ลงฐานข้อมูล แต่ไม่โชว์ในcomboboxต้องเพิ่มใหม่ ข้อมูลที่เพิ่มก่อนหน้าจึงจะโชว์

Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
Set RS = New ADODB.Recordset
RS.Open "select * from Table2 where SN = '" & Combo2.Text & "'", cn, adOpenKeyset, adLockOptimistic
If Not RS.EOF Then
Me.Combo1.Text = RS!Device
End If
RS.Close
Set RS = Nothing
End Sub
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2014-05-16 14:11:13 By : koy
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : ขอ code ปุ่มเพิ่มข้อมูล vb6.0 เชื่อมต่อ Access หน่อยครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

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