Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient


Public Class demoform
    Dim pass As String
    Dim user As String

    Dim ds As New DataSet
    Dim dr As DataRow
    Dim dt As DataTable


    Private Sub demoform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        LoginDialog.ShowDialog()

        '   dt = New DataTable("testtable")
        '   dt.Columns.Add("col1", GetType(String))
        '   dt.Columns.Add("blah", GetType(String))
        '   dt.Columns.Add("cool", GetType(String))
        '
        '        ds.Tables.Add(dt)
        '
        '        dgvplay.DataSource = dt
        '
        '        dr = dt.NewRow()

        ' Dim connectstring = "Provider=SQLNCLI10;Server=PRESONIC-PC\FUNSQL;Database=pre_accounting;Uid=" & user & "; Pwd=" & pass & ";"
        'Dim conn As New OleDbConnection(connectstring)
        'conn.Open()

        '  ========================================= MORE SHIT ====================================
        'Dim SQLStr As String
        ''Dim ConStr As String
        'SQLStr = "SELECT * FROM dbo.people"
        'ConStr = "data source=sql.domain.no; initial catalog=xxxxx; User ID=xxxxx;pwd=xxxxx; Integrated Security=SSPI"
        'ConStr = "data source=localhost; initial catalog=pre_accounting; User ID=" & user & ";pwd=" & pass & "; Integrated Security=SSPI"

        '       Try
        ' Dim sqlConn As New System.Data.SqlClient.SqlConnection(ConStr)
        ' Dim SQLAdapter As New System.Data.SqlClient.SqlDataAdapter(SQLStr, sqlConn)
        ''SQLAdapter.Fill(ds)
        'Catch ex As Exception
        ' MsgBox(ex.Message, 1, "ERROR1")
        ' End Try

        ' SQLAdapter.Fill(ds)

        ' Dim sConnection As String = "server=(local);uid=" & user & ";pwd=" & pass & ";database=pre_accounting"

        Dim sConnection = "Server=PRESONIC-PC\FUNSQL;Database=pre_accounting;Uid=" & user & "; Pwd=" & pass & ";"


        Dim objDataAdapter As New SqlDataAdapter("Select * From people", sConnection)


        Dim dsResult As New DataSet("Result")

        If Not IsNothing(objDataAdapter) Then
            ' Fill data into dataset
            objDataAdapter.Fill(dsResult)

            objDataAdapter.Dispose()
        End If


    End Sub

    Public Sub userpass_pass(ByVal the_user As String, ByVal the_pass As String)
        user = the_user
        pass = the_pass
    End Sub
End Class