wie verwenden von VB-code einfügen in eine Microsoft Access-Datenbank

Ich bin sehr neu in Microsoft Access. Ich muss schreiben VB-code zu tun, einer Datenbank legen Sie auf eine Schaltfläche das Ereignis click. Der Gewindeeinsatz sollte nehmen info aus dem Formular, das die Schaltfläche auf.
Ich weiß, dass Sie können get-Formular info:

Form![tablename]![columnname]

aber wie würde ich diese info, um einen insert in eine andere Tabelle? Ich sah diese post Wie zum einfügen von Daten in eine Microsoft Access-Datenbank? aber ich denke, seine nur mit .NET, weil ich nicht finden können, die OleDbConnection-Objekts aufgelistet, auf die der Zugriff Referenz Seite http://msdn.microsoft.com/en-us/library/office/aa296940(v=office.11).aspx

InformationsquelleAutor user1015214 | 2013-06-11

  1. 4

    Du sagst VB, aber ich denke, Sie sprechen über VBA (VB-Access verwendet).

    Wenn die Tabelle, die Sie versuchen, zu legen ist, ist in der gleichen Datenbank wie die, die Sie sind, geben den Befehl aus, dann brauchen Sie nicht eine Verbindung. Es ist gebaut. Der Befehl zum ausführen einer Abfrage ist CurrentDB.Execute {SQL statement}

    So, Sie würde etwas haben, das wie folgt aussieht:

    Dim strSQL as String
strSQL = "INSERT INTO TableName( FieldName)
strSQL = strSQL & "SELECT 'MyData'"
CurrentDB.Execute strSQL
    Super!!! Ich wusste nie, diese Methode. Aber zwei Fragen: a) warum haben Sie sich Anhängen wählen Sie um das Ende des insert-Abfrage und b)sehe ich online, dass die CurrentDB-Methode ist Teil des Application-Objekts. Warum willst du nicht tun müssen, Anwendung.CurrentDB.Execute strSQL?
    Es ist der Weg, der Zugang, schrieb er. Es funktioniert, aber die korrekte syntax ist w3schools.com/sql/sql_insert.asp. Anwendung wird davon ausgegangen, zumindest in diesem Fall.
    Was meinst du mit 'Ihr den Weg, den Zugang, schrieb es'? Was macht die WÄHLEN Sie? Du machst einen insert!
    Wenn Sie Access verwenden, um schreiben Sie Ihre Abfrage mit der SELECT-Anweisung zu wählen, was zu legen. In diesem Fall ist es ein konstanter Wert ist, aber es könnte auch sein, die Felder aus einer anderen Tabelle.

    InformationsquelleAutor Tom Collins

  2. 4

    Private Sub btnAdd_Click(ByVal Absender Als System.Gegenstand, ByVal e Als System.EventArgs) Griffe btnAdd.Klicken Sie auf
    Dim sql As String

        Dim con As New OleDb.OleDbConnection

    Dim cmd As New OleDb.OleDbCommand


    con.ConnectionString = "PROVIDER = Microsoft.Jet.OLEDB.4.0; Data Source = E:\test.mdb"

    con.Open()

    sql = "INSERT INTO student(name, Address)  VALUES('" & Me.txtName.Text & "','" & Me.txtAddress.Text & "')"
    cmd = New OleDb.OleDbCommand(sql, con)
    cmd.ExecuteNonQuery()
    MsgBox("saved")

    txtName.Text = ""
    txtAddress.Text = ""
    con.Close()
    Dies ist die richtige Antwort, als dass es nutzt VB, nicht VBA

    InformationsquelleAutor sabin

  3. 0
    Dim con As New OleDb.OleDbConnection

Dim cmd As New OleDb.OleDbCommand


con.ConnectionString = "PROVIDER = Microsoft.Jet.OLEDB.4.0; Data Source = E:\test.mdb"

con.Open()

sql = "INSERT INTO student(name, Address)  VALUES('" & Me.txtName.Text & "','" & Me.txtAddress.Text & "')"
cmd = New OleDb.OleDbCommand(sql, con)
cmd.ExecuteNonQuery()
MsgBox("saved")

txtName.Text = ""
txtAddress.Text = ""
con.Close()
    Vielleicht fügen Sie eine kurze Erklärung, wie und warum das funktioniert?

    InformationsquelleAutor desmond

Schreibe einen Kommentar