Keskustelu: Ohjelmointikysymykset: VB.NET: Tietokanta.... miten?

' Projektiin COM-Referenssi:
' Microsoft ADO Ext. 2.8 for DDL and Security

' Lomakkeelle: 
' TextBox (ReadOnly/Multiline=True)
' DataGridView (Enabled/Visible=False)
' Button

Imports ADOX 
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Windows.Forms
Imports Microsoft.VisualBasic
'huom. väännetty SharpDevelop 3.0:lla
Public Partial Class MainForm: Inherits Form

  Public Sub New()
    Me.InitializeComponent()
  End Sub

  Sub Button1Click(sender As Object, e As EventArgs)

    Dim tietokanta As String = "C:\"
    tietokanta += InputBox( _
    "Tietokannan nimi", "Tietokanta manageri","")

    If tietokanta <> "C:\" Then
      tietokanta += ".mdb"
    ElseIf tietokanta = "C:\"
      MessageBox.Show("Tietokantaa ei ole nimetty!")
      tietokanta = Nothing: Exit Sub
    End If

    If Dir(tietokanta) = "" Then
      LuoAccessTietokanta(tietokanta)
    Else
      Dim palaute As DialogResult = _
      MessageBox.Show( _
      "Tietokanta: " + tietokanta + " on jo olemassa!" + _
      Environment.NewLine + Environment.NewLine + _
      "Ylikirjoitetaanko tietokanatatiedosto", _
      "Tietokanta manageri",MessageBoxButtons.YesNo, _
      MessageBoxIcon.Question)
      Select Case palaute
        Case 6
          FileSystem.Kill(tietokanta)
          LuoAccessTietokanta(tietokanta)
        Case Else
          Exit Sub
      End Select
    End If

  End Sub

  Public Sub LuoAccessTietokanta(ByVal tietokanta As String)

    Dim katalogi As ADOX.Catalog = New ADOX.Catalog()
    katalogi.Create("Provider=Microsoft.Jet.OLEDB.4.0; " + _
    "Data Source=" + tietokanta + ";Jet OLEDB:Engine Type=5")
    katalogi = Nothing
    MsgBox("Tietokanta " + tietokanta + " luotu onnistuneesti...")

    Dim yhteysmerkkijono As String = _
    "PROVIDER=Microsoft.Jet.OLEDB.4.0;" + _
    "Data Source =" + tietokanta

    Dim taulu As String = InputBox( _
    "Taulun nimi", "Tietokanta manageri","")

    If taulu = "" Then
      MsgBox("Taulua ei nimetty")
      yhteysmerkkijono = Nothing: Exit Sub
    End If

    Dim onnistunut As Boolean = True
    Dim yhteys As OleDb.OleDbConnection = _
    New OleDb.OleDbConnection(yhteysmerkkijono)
    Dim malliTaulu As New DataTable

    Try
      yhteys.Open()
      malliTaulu = yhteys.GetOleDbSchemaTable( _
      OleDb.OleDbSchemaGuid.Tables, New Object() _
      {Nothing, Nothing, Taulu, "TABLE"})
      yhteys.Close(): yhteysmerkkijono = Nothing

      If malliTaulu.Rows.Count = 0 Then
        Dim komento As OleDb.OleDbCommand = _
        New OleDb.OleDbCommand( _
        "CREATE TABLE [" + Taulu + "]" + _ 
        "([ID] INT IDENTITY(1, 1), " + _
        "[Etunimi] TEXT(20) NOT NULL, " + _
        "[Sukunimi] TEXT(20) NOT NULL, " + _
        "[Osoite] MEMO NOT NULL, " + _
        "[Postinumero] TEXT(10) NOT NULL, " + _
        "[Postitoimipaikka] TEXT(50) NOT NULL, " + _
        "[Puhelin] TEXT(15), " + _
        "[Sähköposti] MEMO, " + _
        "[Merkinnät] MEMO, " + _
        "CONSTRAINT [pk_ID] PRIMARY KEY (ID))", yhteys)
        yhteys.Open()
        komento.ExecuteNonQuery()
        yhteys.Close(): komento = Nothing
        malliTaulu = Nothing
      End If

    Catch ex As Exception
      onnistunut = False
    End Try

    If Not onnistunut Then

      If connectionstate.Open Then
        yhteys.Close: yhteys = Nothing 
      End If

      If Not (yhteysmerkkijono) Is Nothing Then
        yhteysmerkkijono = Nothing
      End If

      If Not (malliTaulu) Is Nothing Then
        malliTaulu = Nothing
      End If

      MsgBox("Tietokantataulun: " + taulu + _
      " luomisessa tapahtui virhe!")
      onnistunut = Nothing: Exit Sub

    End If

    onnistunut = True
    MsgBox("Tietokantataulu: " + taulu + _
    " luotu onnistuneesti...")

    If Dir() <> "C:\dbdata.txt" Then
      FileSystem.FileOpen( _
      1, "C:\dbdata.txt", OpenMode.Input, OpenAccess.Read)
      TextBox1.Text =  FileSystem.InputString(1, LOF(1)) 
      TextBox1.Tag = TextBox1.Text 
    End If

    If TextBox1.Text <> "" Then

      Dim aErottelu() As String = _
      TextBox1.Text.Split("*")
      yhteys.Open 

      Dim i As Integer = 0
      For i = 0 To aErottelu.GetUpperBound(0)

        onnistunut = True

        Dim bErottelu() As String = _
        aErottelu(i).Replace(Environment.NewLine,"").Split(";")

        If bErottelu.Length <> 8 Then
          i = Nothing:yhteys.Close 
          yhteys = Nothing
          MessageBox.Show( _
          "Tietorakenne on väärää muotoa..." + _
          Environment.NewLine + Environment.NewLine + _
          "Tarkista tietolähteen tietorakenne")
          Exit Sub
        End If

        Dim j As Integer = 0
        Dim arvot As String = String.Empty 
        For j = 0 To bErottelu.GetUpperBound(0)
          arvot += Chr(34) + bErottelu(j).ToString.Replace( _
          Environment.NewLine, "") + Chr(34)
          If j < bErottelu.GetUpperBound(0) Then
            arvot += ","
          End If
        Next j: j = Nothing
        Dim kysely As String = String.Empty 
        Dim bKomento As New OleDb.OleDbCommand

        Try
          kysely = "INSERT INTO [Taulu1] " + _
         "([Etunimi], [Sukunimi], [Osoite], [Postinumero], " + _
         "[Postitoimipaikka], [Puhelin], [Sähköposti], " + _ "
         "[Merkinnät]) VALUES(" + arvot +")"
          bKomento  = _
          New OleDb.OleDbCommand(kysely, yhteys)
          bKomento.ExecuteNonQuery()
        Catch ex As Exception
          onnistunut = False
        End Try

        bErottelu = Nothing: arvot = Nothing
        kysely = Nothing: bKomento = Nothing

        If Not onnistunut Then
          yhteys.Close(): yhteys = Nothing 
          aErottelu = Nothing: onnistunut = Nothing
          Dim msgstr As String = String.Empty 
          If i = 0 Then
            msgstr = _
            "Tietueiden viennissä tapahtui odottamaton virhe!"
          Else
            msgstr = Cstr(i) + _
            ". tietueen viennissä tapahtui odottamaton virhe!"
          End If
          MsgBox(msgstr): msgstr = Nothing
          i = Nothing: Exit Sub
        End If

      Next i: i = Nothing

      yhteys.Close(): yhteys = Nothing 
      aErottelu = Nothing: onnistunut = Nothing
      MsgBox("Tietueet viety onnistuneesti tauluun: " _
      + taulu +"...", MsgBoxStyle.OkOnly, "Tietokantamanageri")
      TextBox1.Enabled = False
      TextBox1.Visible = False
      Button1.Enabled = False
      DataGridView1.Enabled = True
      DataGridView1.Visible = True
      TäytäDataTauluKontrolli(tietokanta, taulu)
    Else
      MsgBox("Mitään vietävää tietokantaan ei löytynyt!", _
      MsgBoxStyle.OkOnly,"Tietokantamanageri")
      Exit Sub
    End If

  End Sub

  Sub TäytäDataTauluKontrolli( _
  ByVal tietokanta As String, ByVal taulu As String)

    If Dir(tietokanta) <> "" Then

      Dim yhteysmerkkijono As String = _
      "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" + tietokanta

      Dim yhteys As OleDbConnection = _
      New OleDbConnection(yhteysmerkkijono)

      Try
        yhteys.Open
      Catch ex As Exception
      End Try

      If connectionstate.Open Then
        Try
          Dim datasetti As DataSet = New DataSet
          Dim kysely As String = _
          "Select * From [" + taulu + "]"
          Dim adapteri As OleDbDataAdapter = _
          New OleDbDataAdapter(kysely, yhteys)
          adapteri.Fill(datasetti, taulu)
          MsgBox("Tuodaan tietokannan: " _
          + tietokanta + " tiedot...")
          DataGridView1.DataSource = _
          datasetti.Tables(taulu)
          DataGridView1.Refresh
          kysely = Nothing: adapteri = Nothing
          yhteys.Close: yhteys = Nothing
        Catch ex As Exception
          MsgBox("Tiedonsiirto tietokannasta: "+ _
          tietokanta + " epäonnistui!"
        End Try
      Else
        MsgBox("Yhteyttä tietokantaan: " + tietokanta + _
        " ei saatu luotua!",MsgBoxStyle.OkOnly, "Tietokantamanageri")
      End If
      yhteysmerkkijono = Nothing
    Else
      MsgBox("Tietokantaa " + tietokanta + _
      " ei löydy!", MsgBoxStyle.OkOnly,"Tietokantamanageri")
    End If
    tietokanta = Nothing

  End Sub

  Sub TextBox1Enter(sender As Object, e As EventArgs)
    Button1.Focus 
  End Sub

  Sub MainFormFormClosing(sender As Object, _
  e As FormClosingEventArgs)
    Me.Dispose 
  End Sub

  Sub MainFormFormClosed(sender As Object, _
  e As FormClosedEventArgs)
    End
  End Sub

End Class

 Dim k As Integer
'nudlkm = numeric updown = 8 koska alkuperäisessäkin
'oli 8 kenttää + ID (muutan kunhan opin)
        Dim kenttänimi(nudLkm.Value - 1) As String
        For k = 0 To nudLkm.Value - 1
            kenttänimi(k) = InputBox( _
            "Anna " & k + 1 & ". kentän nimi", "Tietokanta manageri", "")
        Next k



        Try
            yhteys.Open()
            malliTaulu = yhteys.GetOleDbSchemaTable( _
            OleDb.OleDbSchemaGuid.Tables, New Object() _
            {Nothing, Nothing, taulu, "TABLE"})
            yhteys.Close() : yhteysmerkkijono = Nothing

            If malliTaulu.Rows.Count = 0 Then
                Dim komento As OleDb.OleDbCommand = _
                New OleDb.OleDbCommand( _
                "CREATE TABLE [" + taulu + "]" + _
                "([ID] INT IDENTITY(1, 1), " + _
                "CONSTRAINT [pk_ID] PRIMARY KEY _ (ID))", yhteys)
                yhteys.Open()
                komento.ExecuteNonQuery()
                yhteys.Close() : komento = Nothing

                For k = 0 To nudLkm.Value - 1
                    komento = New OleDb.OleDbCommand( _
                    "ALTER TABLE [" + taulu + "] ADD _
                    ([" + kenttänimi(k) + "] MEMO NOT NULL) ", yhteys)

                    yhteys.Open()
                    komento.ExecuteNonQuery()
                    yhteys.Close() : komento = Nothing
                Next k

                malliTaulu = Nothing
            End If

Imports System.Data
Imports MicroSoft.VisualBasic
Imports System.Windows.Forms

Public Partial Class MainForm: Inherits Form

  Public Sub New()
    Me.InitializeComponent()
  End Sub

  Sub OpenToolStripMenuItemClick(sender As Object, e As EventArgs)

    OpenFileDialog1.Title = "Avaa tietokanta"
    OpenFileDialog1.InitialDirectory = "c:\"
    OpenFileDialog1.Filter = "Tietokanta tiedostot|*.txtbase"
    OpenFileDialog1.FileName = String.Empty
    OpenFileDialog1.ShowDialog()

    If Dir(OpenFileDialog1.FileName) <> "" And _
      OpenFileDialog1.FileName.IndexOf(".") > -1 Then

      FileOpen(1,OpenFileDialog1.FileName, OpenMode.Input)
      Dim FileStrArray() As String = _
      InputString(1,LOF(1)).Split("|")
      FileClose(1)

      Dim TypeArray() As String = _
      FileStrArray(0).Split("*")

      Dim DataArray() As String  = _
      FileStrArray(1).Split("*")

      FileStrArray = Nothing

      Dim ds As DataSet = New DataSet
      Dim tbl As DataTable = New DataTable("Taulu1")

      Dim ColHeaderArray() As String = _
      TypeArray(0).Split(";")

      For i As Integer = 0 To ColHeadeRArray.GetUpperBound(0)
        Dim dcols As DataColumn = New DataColumn
        With dcols
          .DataType = System.Type.GetType("System.String")
          .ColumnName = ColHeaderArray(i)
        End With
        tbl.Columns.Add(dcols): dcols = Nothing
      Next: ds.Tables.Add(tbl)

      For i As Integer = 0 To DataArray.GetUpperBound(0)
        Dim ArraySplit() As String = _
        DataArray(i).Replace( _
        Environment.NewLine,"").Split(";")
        Dim drow As DataRow = tbl.NewRow()
        For j As Integer = 0 To ArraySplit.GetUpperBound(0)
          drow.Item(j) = ArraySplit(j)
        Next j
        tbl.Rows.Add(drow)
        ArraySplit = Nothing
      Next i

      DataGridView1.DataSource = ds.Tables("Taulu1")

      Dim linkcol As DataGridViewLinkColumn = _
      New DataGridViewLinkColumn
      Dim cell As DataGridViewCell = _
      New DataGridViewLinkCell ()
      linkcol.HeaderText = "Sähköposti"
      linkcol.CellTemplate = cell
      DataGridView1.Columns.RemoveAt(6)
      DataGridView1.Columns.Insert(6,linkcol)

      DataGridView1.ClearSelection
      Dim LinkExists As Boolean = False
      Dim ColTypes() As String = _
      TypeArray(1).Split(";"): TypeArray = Nothing

      For i As Integer = 0 To ColTypes.GetUpperBound(0)
        If ColTypes(i) = "HYPERLINK" Then
          LinkExists = True: Exit For
        End If
      Next: ColTypes = Nothing

      If LinkExists Then
        For i As Integer = 0 To DataArray.GetUpperBound(0)
          DataGridView1.Rows(i).Selected = True
          Dim GetlinkArray() As String = _
          DataArray(i).Replace( _
          Environment.NewLine,"").Split(";")
          DataGridView1.SelectedCells.Item( _
          6).Value = GetlinkArray(6)
          DataGridView1.Rows(i).Selected = False
        Next i: DataArray = Nothing
      End If

      DataGridView1.AutoResizeColumns( _
      DataGridViewAutoSizeColumnsMode.AllCells)

    End If

  End Sub

  Sub DataGridView1CellDoubleClick( _
  sender As Object, e As DataGridViewCellEventArgs)
    CheckLinkField
  End Sub

  Public Sub CheckLinkField()

    If dblClick Then
      Dim col As DataGridViewColumn
      For Each col In DataGridview1.Columns
        If col.HeaderText = "Sähköposti" Then
          Dim address As String = _
          DataGridView1.CurrentCell.Value.ToString
          If address.IndexOf("mailto:") > -1 Then
            If Dir("C:\Program Files\" " + _
            "Outlook Express\msimn.exe") <> "" Then
               Shell("C:\Program Files\" + _
               "Outlook Express\msimn.exe /mailurl:" + address)
               Exit Sub
            End If
          End If
        End If
      Next
    End If

  End Sub

End Class