V.Basic 2008 Write to Microsoft Access DataBase On V.studio

Γενικά θέματα για τις γλώσσες προγραμματισμού που δεν καλύπτονται από τις άλλες περιοχές της κατηγορίας.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
oggi31
Δημοσιεύσεις: 6
Εγγραφή: 01 Αύγ 2010 19:39

V.Basic 2008 Write to Microsoft Access DataBase On V.studio

Δημοσίευση από oggi31 » 02 Αύγ 2010 17:30

Καλησπέρα,

Θέλω να γραψω μέσα απο μια φόρμα (απο ένα Textbox), σε πεδίο συγκεκριμμένου πίνακα σε μία Database της Microsoft Access,χωρίς να κανω drop το πεδίο απο το Data Sources στην φόρμα.Γνωρίζει κάποιος να με βοηθήσει; :question:

Άβαταρ μέλους
oggi31
Δημοσιεύσεις: 6
Εγγραφή: 01 Αύγ 2010 19:39

V.Basic 2008 Write to Microsoft Access DataBase On V.studio

Δημοσίευση από oggi31 » 03 Αύγ 2010 10:39

Για να τραβάω δεδομένα στο TextBox1 απο την database έχω το παρακάτω που δουλεύει:
(η βάση είναι η nikos.mdb και έχει ένα πίνακα που ονομάζεται cust ο οποιος περιέχει 2 columns : customers, sales)

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Dim customerss As New nikosDataSetTableAdapters.custTableAdapter

Dim ds As New nikosDataSet

customerss.Fill(ds.cust)


TextBox1.Text = ds.cust.Rows(0).Item("customers")

End Sub
End Class


'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

ο κώδικας που έχω φτιάξει για update απο το textbox στην βάση είναι ο παρακάτω, ο οποίος δεν δουλεύει:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Dim customerss As New nikosDataSetTableAdapters.custTableAdapter

Dim ds As New nikosDataSet

customerss.Fill(ds.cust)

Dim dr As System.Data.DataRow = ds.Tables("cust").NewRow()

dr("customers") = TextBox1.Text


customerss.Update(ds)

End Sub
End Class

Άβαταρ μέλους
oggi31
Δημοσιεύσεις: 6
Εγγραφή: 01 Αύγ 2010 19:39

V.Basic 2008 Write to Microsoft Access DataBase On V.studio

Δημοσίευση από oggi31 » 03 Αύγ 2010 23:29

Τελικά εφτιαξα αυτό και δουλεύει, σας το παραθέτω για όσους ασχοληθήκατε:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click




Dim ds As New nikosDataSet
Dim con As New OleDb.OleDbConnection
Dim da As OleDb.OleDbDataAdapter
Dim sql As String
con.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =C:\nikos.mdb"
con.Open()

sql = "SELECT * FROM cust"

da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "cust")

'customerss.Fill(ds.cust)


ds.cust.Rows(1).Item("customers") = TextBox1.Text


Dim cb As New OleDb.OleDbCommandBuilder(da)

ds.cust.Rows(1).Item(1) = TextBox1.Text


da.Update(ds, "cust")

MsgBox("Data updated")
con.Close()


End Sub

Απάντηση

Επιστροφή στο “γλώσσες προγραμματισμού - γενικά”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες