พฤศจิกายน 22, 2019, 10:22:20 AM *
ยินดีต้อนรับคุณ, บุคคลไม่รู้ว่าใคร กรุณา เข้าสู่ระบบ หรือ ลงทะเบียน

เข้าสู่ระบบด้วยชื่อผู้ใช้ รหัสผ่าน และระยะเวลาในเซสชั่น
หน้า: [1]   ลงล่าง
  พิมพ์  
เพื่อนปาล์มฝากมาถามน่ะครับ  (อ่าน 1825 ครั้ง)
ขั้น 2 : วัยรุ่นไฟแรง ****** ออฟไลน์ ออฟไลน์ เพศ: ชาย พลังสะสม: 52 > เอาไงก้อได้....
กุมภาพันธ์ 08, 2012, 10:34:04 PM
ผลงาน: 66
uthaiban123
๛ DJ.ArT2Be Radio ๛
ขั้น 2 : วัยรุ่นไฟแรง
******

ผลงาน: 66
ออฟไลน์ ออฟไลน์

เพศ: ชาย
พลังสะสม: 52


> เอาไงก้อได้....

เว็บไซต์
« เมื่อ: กุมภาพันธ์ 08, 2012, 10:34:04 PM »
มัน เออเร่อตรงไหนหลอครับ เพื่อนปามถาม เขาบอกว่า รันได้ แต่เวลากดไป มันไม่ลิ้งค์ ถึง Access

Project  VB2008

Download :: http://www.mediafire.com/?hheca165dbmsqg4


อ้างถึง
Imports System.Data.OleDb
Public Class Form3
    Dim strcon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\db\db2.accdb"

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("กรุณากรอก Username", "ผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            TextBox1.Focus()
        ElseIf TextBox2.Text = "" Then
            MessageBox.Show("กรุณากรอก Password", "ผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            TextBox2.Focus()
        ElseIf TextBox2.TextLength <> 6 Then
            MessageBox.Show("กรุณากรอก Password จำนวน 6 หลัก", "ผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            TextBox2.Clear()
            TextBox2.Focus()
        ElseIf TextBox1.TextLength <> 6 Then
            MessageBox.Show("กรุณากรอก Username จำนวน 6 หลัก", "ผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            TextBox1.Clear()
            TextBox1.Focus()
        Else
            Try
                Dim con As New OleDbConnection(strcon)
                If con.State = ConnectionState.Closed Then
                    con.Open()
                End If
                Dim str As String = "Insert into UserAccount Values (" & TextBox1.Text & "','" & TextBox2.Text & ")"
                Dim com As New OleDbCommand
                com.CommandType = CommandType.Text
                com.CommandText = str
                com.Connection = con
                com.ExecuteNonQuery()
                con.Close()
                MessageBox.Show("Register Success", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Catch ex As Exception
                MessageBox.Show(Err.Description, "Query", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class
ขั้น 3 : ซุปเปอร์สตาร์ *** ออฟไลน์ ออฟไลน์ เพศ: ชาย พลังสะสม: 130
พฤษภาคม 20, 2012, 07:26:56 PM
ผลงาน: 44
x_boy
แฟนคลับ
ขั้น 3 : ซุปเปอร์สตาร์
***

ผลงาน: 44
ออฟไลน์ ออฟไลน์

เพศ: ชาย
พลังสะสม: 130


เว็บไซต์
« ตอบ #1 เมื่อ: พฤษภาคม 20, 2012, 07:26:56 PM »
สร้าง Path ไฟล์ถูกแล้วใช่ป่ะครับ

C:\db\db2.accdb" ตรงนี้น่ะ???
หน้า: [1]   ขึ้นบน
  พิมพ์  
 
กระโดดไป:  

Powered by MySQL Powered by PHP Valid XHTML 1.0! Valid CSS!