kostenloser Webspace werbefrei: lima-city

Werte + Datenbank

lima-city → Forum → Programmiersprachen → Sonstige Programmiersprachen

1. Autor dieses Themas

   t****k

   19:42, 2.4.2010

   Hey,
   
   
   ich brauche einen Script, dort man Werte auf einer Seite einträgt, diese dann in der DB abgelegt werden, und diese dann auf einer übersichtsseite angezeigt werden, also die Werte.
   
   
   Kann mir jemand dabei helfen, ist nicht für mich sondern für einen Freund und er würde sich sehr freuen.
   
   Gruß Tobi

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. kasaku

   

   kasaku hat kostenlosen Webspace.

   4:07, 3.4.2010

   So ungefähr??????
   
   

   Imports System.Data.OleDb
   
   Module Module1
       Dim myOleDbConnection As New OleDbConnection
       Dim myOleDbSelectCommand As New OleDbCommand
       Dim myOleDbDataAdapter As New OleDbDataAdapter
       Dim rString As String = ""
       Public Const DB_Pfad As String = "D:\Datenbanken\GameDB.mdb"
   End Module
   
   --------------------------------
   
   Imports System.Data.OleDb
   
   Public Class Form1
   
       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
           Try
               myOleDbConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DB_Pfad
               myOleDbSelectCommand.Connection = myOleDbConnection
               myOleDbConnection.Open()
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
       End Sub
   
       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
           Dim LoginDataSet As New DataSet
           Try
               myOleDbSelectCommand.CommandText = "select * from Chat"
               myOleDbDataAdapter.SelectCommand = myOleDbSelectCommand
               myOleDbDataAdapter.Fill(LoginDataSet, "Benutzer")
               DataGridView1.DataSource = LoginDataSet.Tables(0)
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
       End Sub
   End Class
   
   --------------------------------
   
   Public Class Form2
   
       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
           Dim LoginDataSet As New DataSet
           Try
               myOleDbSelectCommand.CommandText = "insert into Chat values('" & txt_ID & "', '" & txt_Name & "')"
               myOleDbDataAdapter.SelectCommand = myOleDbSelectCommand
               myOleDbDataAdapter.Fill(LoginDataSet, "Benutzer")
           Catch ex As Exception
               MessageBox.Show(ex.Message)
           End Try
       End Sub
   End Class

4. Autor dieses Themas

   t****k

   22:53, 8.4.2010

   Danke, ich schau mal =)
   
   Beitrag zuletzt geändert: 8.4.2010 22:54:23 von tobitk

5. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?