kostenloser Webspace werbefrei: lima-city

in: Multiplayer Shooter

geschrieben von kasaku

in: Rollenspiele im Scifi Bereich

geschrieben von kasaku

in: VB Zufall

geschrieben von kasaku

in: textdatei mit meinem programm öffnen! wie?

geschrieben von kasaku

Imports System.IO

Public Class Form2
    Dim file As String = "C:\lol.txt"
    Dim s As FileStream
    Dim r As StreamReader
    Dim w As StreamWriter
    Dim neu As String

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        s = New FileStream(file, FileMode.Open, FileAccess.Read)
        r = New StreamReader(s)
        Dim alt As String = r.ReadToEnd()
        Label1.Text = alt
        r.Dispose()
        r.Close()
        s.Close()

        s = New FileStream(file, FileMode.Open, FileAccess.Write)
        w = New StreamWriter(s)
        neu = TextBox1.Text
        w.Write(neu)
        w.Close()
    End Sub
End Class

in: Werte + Datenbank

geschrieben von kasaku

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