The only thing I will say that I had to learn is, your initial steps will be
to use the controls to do all the work for you.

It seems to me that when you do it that way, it becomes hard to customize,
whereas if you actually code it line by line it just seems a lot easier to
work with as in the following vb.net code to make a flatfile

Another confusing thing is in vb.net you call a field name one way and in
asp_net you call it a different way.
I tried many times to get the following code done using the controls, and
then I finally met a .net developer and once he showed me the basics of it,
I was off and running.

Problem is, you don't seem to find this stuff in the samples you find on the
net.

---


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


Public Class MakeFlatFile 
    Dim m_adinum As String 
    Dim m_model As String 
    Dim m_asset As String 
    'Dim m_serial As String  806 
    'Dim m_status As Integer 806 
    Dim m_empID As String 
    Dim m_last_name As String 
    Dim m_first_name As String 
    Dim m_chk_out As Date 
    Dim m_chk_in As Date 
    'Dim m_comments As String 806 

    Private Sub MakeFlatFile_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load 
        GetAccessData("", "", "") 
    End Sub 

    Public Function GetAccessData(ByVal UID As String, ByVal pwd As String,
ByVal artist As String) 
        Dim conn As New OleDbConnection 

        Dim cmd806 As New OleDbCommand 
        Dim cmd807 As New OleDbCommand 

        Dim connString As String 
        connString = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data
Source=h:\inventory_tracker.mdb" 
        conn.ConnectionString = connString 

        conn.Open() 
        cmd807.Connection = conn 
        cmd807.CommandText = " Select * from T807" 
        Dim ds807 As New DataSet 
        Dim da807 As New OleDbDataAdapter(cmd807.CommandText,
conn.ConnectionString) 
        Dim dr807 As OleDbDataReader = cmd807.ExecuteReader() 
        da807.Fill(ds807, "vjb_807") 

        Dim m_idNUMBER As Integer 
        m_idNUMBER = 2 
        Me.Show() 
        Do While dr807.Read() 
            If dr807.Item("C1028000004").ToString = "" Then 
            Else 
                m_adinum = dr807.Item("C1028000004") 
            End If 
            If dr807.Item("C1028000001").ToString = "" Then 
            Else 
                m_model = dr807.Item("C1028000001") 
            End If 
            If dr807.Item("C1028000003").ToString = "" Then 
            Else 
                m_asset = dr807.Item("C1028000003") 
            End If 
            ' vjb - get history from laptop file 
            'm_comments = dr806.item("C1028000009") 
            'm_serial = dr806.Item("C1028000002") 
            'm_status = dr806.Item("C1028000005") 
            If dr807.Item("C240000006").ToString = "" Then 
            Else 
                m_empID = dr807.Item("C240000006") 
            End If 




            If dr807.Item("C240000001").ToString = "" Then 
            Else 
                m_last_name = dr807.Item("C240000001") 
            End If 

            Dim delimStr As String = " " 
            Dim delimiter As Char() = delimStr.ToCharArray() 
            Dim words As String = m_last_name 
            Dim split As String() = Nothing 
            Dim x As Integer 
            For x = 1 To 3 
                split = words.Split(delimiter, x) 
                'Console.WriteLine(ControlChars.Cr + "count = {0,2}
..............", x) 
                Dim s As String 
                Dim pass As Integer 
                pass = 1 
                For Each s In split 
                    'Console.WriteLine("-{0}-", s) 
                    If pass = 1 Then 
                        Label1.Text = s 
                    End If 
                    If pass = 2 Then 
                        Label2.Text = s 
                    End If 
                    If pass = 3 Then 
                        Label3.Text = s 
                    End If 
                    pass = pass + 1 
                Next s 
            Next x 
            Label4.Text = m_last_name 

            ' vjb - need to build the names here 
            ' vjb - automatically assume we have a first and last name, need
to compensate for the middle name 
            If Label3.Text = "" Then 
                ' only have two variables for the name 
                m_last_name = Label2.Text 
                m_first_name = Label1.Text 
            Else 
                ' must have three parts to the name 
                m_last_name = Label3.Text 
                m_first_name = Label1.Text + " " + Label2.Text 

            End If 
            Label5.Text = m_last_name 
            Label6.Text = m_first_name 

            'MsgBox("check it out") 




            If dr807.Item("C240000001").ToString = "" Then 
            Else 
                m_first_name = dr807.Item("C240000001") 
            End If 
            If dr807.Item("checked_out").ToString = "" Then 
            Else 
                m_chk_out = dr807.Item("checked_out") 
            End If 
            If dr807.Item("checked_in").ToString = "" Then 
                'm_chk_in = 
            Else 
                m_chk_in = dr807.Item("checked_in") 
            End If 
            Me.Refresh() 




            subUpdateRecords() 
            Label1.Text = "" 
            Label2.Text = "" 
            Label3.Text = "" 
            Label4.Text = "" 
            Label5.Text = "" 
            Label6.Text = "" 
            m_idNUMBER = m_idNUMBER + 1 
        Loop 

        'cmd807.Connection = conn 
        'cmd807.CommandText = " Select * from T807" 
        'Dim ds807 As New DataSet 
        'Dim da807 As New OleDbDataAdapter(cmd807.CommandText,
conn.ConnectionString) 
        'Dim dr807 As OleDbDataReader = cmd807.ExecuteReader() 
        'da807.Fill(ds807, "vjb_807") 

        MsgBox("Connection established") 
        conn.Close() 

    End Function 

    Public Sub subUpdateRecords() 
        Dim strConn As String 
        Dim strSQL As String 
        strConn = "provider=Microsoft.Jet.OLEDB.4.0; Data
Source=h:\inventory_tracker.mdb" 
        'strSQL = "insert into laptop_inventory (ADINUM, model_type,
asset_tag, emp_ID, emp_last_name, emp_first_name, [date_checked_out],
[date_checked_in], comments") VALUES (m_empID, m_adinum, m_model, m_asset,
m_empID, m_last_name, m_first_name, [m_chk_out], [m_chk_in])" 
        strSQL = "insert into laptop_inventory (ADINUM, model_type,
asset_tag, emp_ID, emp_last_name, emp_first_name, date_checked_out,
date_checked_in) VALUES ('" & m_adinum & "','" & m_model & "','" & m_asset &
"','" & m_empID & "','" & Label5.Text & "','" & Label6.Text & "','" &
m_chk_out & "','" & m_chk_in & "')" 





        Dim cn As New OleDbConnection(strConn) 
        Dim cmd As New OleDbCommand(strSQL, cn) 

        cmd.Connection.Open() 
        cmd.ExecuteNonQuery() 
        cmd.Connection.Close() 

    End Sub 
End Class 



_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED]
** All postings, unless explicitly stated otherwise, are the opinions of the 
author, and do not constitute legal or medical advice. This statement is added 
to the messages for those lawyers who are too stupid to see the obvious.

Reply via email to