Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > กำหนด Format Autonumber ใน Access 2003 แล้วแสดงข้อมูลใน VB.net

[.NET] กำหนด Format Autonumber ใน Access 2003 แล้วแสดงข้อมูลใน VB.net

เริ่มหัวข้อใหม่

akura

โพสกระทู้ ( 94 )
บทความ ( 0 )

คือแบบว่า กำหนด Format autonumber ใน access เป็น 0000 (เพราะมันเป็น autonumber เลยใส่ตัวอักษรไม่ได้...รึเปล่าคะ?) ใน access ก็ขึ้นนะ เช่น 0001, 0002, 0003 แต่พอไปเรียกมาแสดงใน VB.net ขึ้นแค่ 1, 2, 3

พอจะมีวิธีให้นำศูนย์ข้างหน้ามาแสดงมั้ยคะ?

แล้วถ้าจะให้มีตัวอักษรด้วยแบบ E0001, E0002, E0003 จะมีวิธีไหนหรอคะ??

Tag : - - - -

Date : 2010-06-21 13:44:46

By : akura

View : 8263

Reply : 11

No. 1

Stupid.gurl.th

โพสกระทู้ ( 1,603 )
บทความ ( 1 )

ถ้าเป็น ACCESS ให้เอามาเขียนที่ .NET ค่ะ
เพราะ Access เน้นใช้ Macro ไม่ค่อยมี build-in function ให้ใช้

Date : 2010-06-21 13:50:25

By : blurEyes

No. 2

akura

โพสกระทู้ ( 94 )
บทความ ( 0 )

คือเขียน code autonumber ใน .net หรอคะ??

Date : 2010-06-21 13:59:36

By : akura

No. 3

Guest

มีตัว e แล้วมันจะเป็น number ได้ไง

------------------------------------------------

ให้เพิ่มอีก field ไว้เก็บรหัสดีกว่า โดยอ้างอิงจาก autonumber

ส่วนจะเก็บอย่างไร ต้องอาศัยโค้ดของ .net

Date : 2010-06-21 14:20:19

By : tungman

No. 4

akura

โพสกระทู้ ( 94 )
บทความ ( 0 )

นี่แหละคะประเด็น =w=

ไม่รู้ทำไง พอดีเป็นมือใหม่ VB เพิ่งจะจับไม่ถึงเดือน แฮะๆ

ขอความกรุณาด้วยค่ะ > <

Date : 2010-06-21 15:30:43

By : akura

No. 5

tee

โพสกระทู้ ( 249 )
บทความ ( 0 )

ถ้าต้องการเลขรันแบบ E0001, E0002, E0003
ก็ต้องไป set data type ใน access เป็น text
แล้วเขียนโค้ดรัน number เองครับ ตัวอย่าง
ในบอร์ดน่าจะมีครับ

Date : 2010-06-21 16:31:36

By : tee

No. 6

akura

โพสกระทู้ ( 94 )
บทความ ( 0 )

ขอบคุณค่ะ เขียนแล้วเหมือนกัน แต่ไม่รู้ว่าถูก syntax ป่าว เพราะเขียนเองคะ เหอๆ

Dim conDB As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DataHead.mdb"
Dim con As New OleDbConnection(conDB)
con.Open()

Dim query As String
query = "SELECT CodeAbsent "
query &= "FROM tblAbsent ORDER BY CodeAbsent deas"

Val(query)
Dim sum As Integer
sum = query + 1
Str(query)

Date : 2010-06-21 16:39:39

By : akura

No. 7

Stupid.gurl.th

โพสกระทู้ ( 1,603 )
บทความ ( 1 )

ส่วนนี้เป็น
DATA ACCESS LAYER ของ MS ACCESS ค่ะ
สร้าง CLASS มาใหม่แล้ว copy แปะ
Code (VB.NET)

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports System.Text
Imports System.Collections
Imports System.Collections.Generic
 
Imports System.Runtime.CompilerServices
 
'' Simple MsAccess Data Access Layer
'' Develop by Proud PNK.R. U.
'' Date 21-06-2010
'' Purpose : Provide neccessary method for manipulate Ms Access database through OleDB.
'' Some suggestion feature : Can be connect ACCESS 2007 (*.ACCDB) and common ACCESS (*.MDB) with auto detection.
''                           But i not yet to test with .MDB ,'coz my machine no have it. ~> <~
 
Namespace OleDbWithMSAccess
 
    Public Enum MSAccessVersionInfo
        AccessCommon = 1
        Access2007 = 2
 
    End Enum
 
    Public Class MSAccessConnectionArgs
 
        Private Const constAccess2007ConnectionStringFrame = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};" _
            & "Persist Security Info=False;"
        Private Const constAccess2007ConnectionStringFrameWithUserNameAndPassword = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};" _
            & "Jet OLEDB:Database Password={1};"
 
        Private Const constAccessCommonConnectionStringFrame = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};" _
            & "Persist Security Info=False;"
        Private Const constAccessCommonConnectionStringFrameWithUserNameAndPassword = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};" _
            & "User Id=admin;Password={1};"
 
        Private Const constMsAccessCommandParameterPrefix As String = "@"
 
        Private _VersionInfo As MSAccessVersionInfo = MSAccessVersionInfo.AccessCommon
        Private _DataBaseFile As String = String.Empty
        Private _HasUserName As Boolean = False
        'Private _UserName As String = String.Empty
        Private _Password As String = String.Empty
 
        Public Property VersionInfo() As MSAccessVersionInfo
            Get
                Return _VersionInfo
            End Get
            Set(ByVal value As MSAccessVersionInfo)
                _VersionInfo = value
            End Set
        End Property
        Public Property DataBaseFileName() As String
            Get
                Return _DataBaseFile
            End Get
            Set(ByVal value As String)
                _DataBaseFile = value
                If ((_UserName.Length = 0) And (_Password.Length = 0)) Then
                    _HasUserName = False
                Else
                    _HasUserName = True
                End If
 
                'Auto detect version from file extension
                Dim fileExtension As String = _DataBaseFile.Substring(_DataBaseFile.LastIndexOf("."c) + 1).ToUpper()
                If (fileExtension.Equals("ACCDB")) Then
                    _VersionInfo = MSAccessVersionInfo.Access2007
                Else
                    _VersionInfo = MSAccessVersionInfo.AccessCommon
                End If
 
            End Set
        End Property
        'Public Property UserName() As String
        '    Get
        '        Return _UserName
        '    End Get
        '    Set(ByVal value As String)
        '        _UserName = value
        '        If ((_UserName.Length = 0) And (_Password.Length = 0)) Then
        '            _HasUserName = False
        '        Else
        '            _HasUserName = True
        '        End If
 
        '    End Set
        'End Property
        Public Property Password() As String
            Get
                Return _Password
            End Get
            Set(ByVal value As String)
                _Password = value
                If (_Password.Length = 0) Then
                    _HasUserName = False
                Else
                    _HasUserName = True
                End If
            End Set
        End Property
        Public Property HasUserNameAndPassword() As Boolean
            Get
                Return _HasUserName
            End Get
            Set(ByVal value As Boolean)
                _HasUserName = value
            End Set
        End Property
 
        Public Sub New()
        End Sub
 
        Public Sub New(ByVal argVersionInfo As MSAccessVersionInfo)
            Me.VersionInfo = argVersionInfo
        End Sub
        Public Sub New(ByVal argVersionInfo As MSAccessVersionInfo, ByVal argDatabaseFileName As String)
            Me.VersionInfo = argVersionInfo
            Me.DataBaseFileName = argDatabaseFileName
        End Sub
 
        Public Function IsReadyToConnect() As Boolean
            Return (Me.DataBaseFileName.Length = 0)
        End Function
 
        Public Function GetConnectionString() As String
            Dim retStr As String = String.Empty
            Dim ConnStr As String = String.Empty
 
            If (Me.VersionInfo = MSAccessVersionInfo.AccessCommon) Then
 
                If (Me.HasUserNameAndPassword) Then
                    retStr = String.Format(constAccessCommonConnectionStringFrameWithUserNameAndPassword _
                                           , Me.DataBaseFileName, Me.Password)
                Else
                    retStr = String.Format(constAccessCommonConnectionStringFrame _
                                           , Me.DataBaseFileName)
                End If
            Else
 
                If (Me.HasUserNameAndPassword) Then
                    retStr = String.Format(constAccess2007ConnectionStringFrameWithUserNameAndPassword _
                                           , Me.DataBaseFileName, Me.Password)
                Else
                    retStr = String.Format(constAccess2007ConnectionStringFrame _
                                           , Me.DataBaseFileName)
                End If
 
            End If
 
            Return retStr
        End Function
 
    End Class
 
    Public Class MsAccessSQLCommandArgs
 
        Public ConnectionArgs As MSAccessConnectionArgs = New MSAccessConnectionArgs()
        ''' <summary>
        ''' Command String with SQL Statement [If you would like to use 'LIKE' 
        ''' operator only wildcard charactor '%' works for any charactor]
        ''' </summary>
        ''' <remarks></remarks>
        ''' 
        Public CommandStr As String = String.Empty
        Public CommandParameters As Hashtable = New Hashtable()
 
        Public Sub New()
 
        End Sub
 
        Public Sub ClearAll()
            CommandStr = String.Empty
            CommandParameters = New Hashtable()
        End Sub
 
        Public Sub ClearParameters()
            CommandParameters = New Hashtable()
        End Sub
 
        Public Sub AddParameter(ByVal argKey As String, ByVal argValue As Object)
            CommandParameters.Add(argKey, argValue)
        End Sub
 
    End Class
 
    Module MsAccessExtension
 
        Private Const constMsAccessCommandParameterPrefix As String = "@"
 
        <Extension()> _
        Public Sub ExecuteCommand(ByVal e As MsAccessSQLCommandArgs)
            Using myConnection As OleDbConnection _
                = New OleDbConnection(e.ConnectionArgs.GetConnectionString())
 
                Dim myCommand As OleDbCommand _
                    = New OleDbCommand(e.CommandStr, myConnection)
 
                myCommand.CommandType = CommandType.Text
 
                If (e.CommandParameters.Count > 0) Then
 
                    For Each keyStr As String In e.CommandParameters.Keys
                        Dim tempKey As String = keyStr
                        If (Not keyStr.Substring(0, 1).Equals(constMsAccessCommandParameterPrefix)) Then
                            tempKey = constMsAccessCommandParameterPrefix & tempKey
                        End If
                        myCommand.Parameters.AddWithValue(tempKey, e.CommandParameters(keyStr))
                    Next
 
                End If
 
                Try
                    myConnection.Open()
                    myCommand.ExecuteNonQuery()
                Catch ex As Exception
                    Throw New Exception(ex.Message)
                Finally
                    If Not (myConnection Is Nothing) Then
                        myConnection.Close()
                    End If
                End Try
 
            End Using
        End Sub
 
        <Extension()> _
        Public Function ExecuteCommandScalar(ByVal e As MsAccessSQLCommandArgs) As Object
 
            Dim oRet As Object = Nothing
 
            Using myConnection As OleDbConnection _
                = New OleDbConnection(e.ConnectionArgs.GetConnectionString())
 
                Dim myCommand As OleDbCommand _
                    = New OleDbCommand(e.CommandStr, myConnection)
 
                myCommand.CommandType = CommandType.Text
 
                If (e.CommandParameters.Count > 0) Then
 
                    For Each keyStr As String In e.CommandParameters.Keys
                        Dim tempKey As String = keyStr
                        If (Not keyStr.Substring(0, 1).Equals(constMsAccessCommandParameterPrefix)) Then
                            tempKey = constMsAccessCommandParameterPrefix & tempKey
                        End If
                        myCommand.Parameters.AddWithValue(tempKey, e.CommandParameters(keyStr))
                    Next
 
                End If
 
                Try
                    myConnection.Open()
                    oRet = myCommand.ExecuteScalar()
                Catch ex As Exception
                    Throw New Exception(ex.Message)
                Finally
                    If Not (myConnection Is Nothing) Then
                        myConnection.Close()
                    End If
                End Try
 
                Return oRet
 
            End Using
        End Function
 
        ''' <summary>
        ''' Return DataTable from MsAccessSQLCommandArgs
        ''' </summary>
        ''' <param name="e"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        <Extension()> _
        Public Function GetDataTable(ByVal e As MsAccessSQLCommandArgs) As DataTable
 
            Dim dtRet As DataTable = New DataTable()
 
            Using myConnection As OleDbConnection _
                = New OleDbConnection(e.ConnectionArgs.GetConnectionString())
 
                Dim myCommand As OleDbCommand _
                    = New OleDbCommand(e.CommandStr, myConnection)
 
                myCommand.CommandType = CommandType.Text
 
                If (e.CommandParameters.Count > 0) Then
 
                    For Each keyStr As String In e.CommandParameters.Keys
                        Dim tempKey As String = keyStr
                        If (Not keyStr.Substring(0, 1).Equals(constMsAccessCommandParameterPrefix)) Then
                            tempKey = constMsAccessCommandParameterPrefix & tempKey
                        End If
                        myCommand.Parameters.AddWithValue(tempKey, e.CommandParameters(keyStr))
                    Next
 
                End If
                Dim myDataAdaptor As OleDbDataAdapter = New OleDbDataAdapter(myCommand)
 
                Try
                    myConnection.Open()
                    myDataAdaptor.Fill(dtRet)
 
                Catch ex As Exception
                    Throw New Exception(ex.Message)
                Finally
                    If Not (myConnection Is Nothing) Then
                        myConnection.Close()
                    End If
                End Try
 
                Return dtRet
 
            End Using
        End Function
 
    End Module
 
End Namespace

Date : 2010-06-22 13:01:00

By : blurEyes

No. 8

Stupid.gurl.th

โพสกระทู้ ( 1,603 )
บทความ ( 1 )

ตอนใช้งาน ก็ประมาณนี้ค่ะ
Code (VB.NET)

Imports VB.OleDbWithMSAccess
 
Public Class Form1
 
    Private AppConnectionArg As MSAccessConnectionArgs = New MSAccessConnectionArgs()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        AppConnectionArg.VersionInfo = MSAccessVersionInfo.Access2007
        AppConnectionArg.DataBaseFileName = "D:\BIN\Northwind 2007.accdb"
 
 
        Dim cmd As MsAccessSQLCommandArgs = New MsAccessSQLCommandArgs()
        cmd.ConnectionArgs = AppConnectionArg
        cmd.CommandStr = "SELECT MAX(ID) FROM [Employees] "
        
        Dim Counter As Integer =  CInt(cmd.ExecuteCommandScalar())
        Counter += 1
         
        Dim IDStr As String = "E" & Counter.ToString("00000")
 
    End Sub
 
End Class

Date : 2010-06-22 13:05:45

By : blurEyes

No. 9

akura

โพสกระทู้ ( 94 )
บทความ ( 0 )

อยากเข้าใจโค้ดด้วย อันนี้จะรบกวนมากไปรึเปล่าคะ > <

ขอโทษด้วยนะคะ

แล้วก็ขอบคุณสำหรับโค้ดมากค่ะ จะลองดู

Date : 2010-06-22 13:22:44

By : akura

No. 10

Stupid.gurl.th

โพสกระทู้ ( 1,603 )
บทความ ( 1 )

code พราวเขียนทดลองค่ะ ว่า method extension จะไปกันได้กับ vb หรือเปล่า
สงสัยตรงไหนก้อถามมาดีกว่าค่ะ เรียนแบบอุดมศึกษา ก้อจะประมาณนี้แหละค่ะ

มาดู code ตัวเองอีกที เอ๋อรับทานค่ะ
ต้องงี้

Code (VB.NET)

Imports VB.OleDbWithMSAccess
 
Public Class Form1
 
    Private AppConnectionArg As MSAccessConnectionArgs = New MSAccessConnectionArgs()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        AppConnectionArg.VersionInfo = MSAccessVersionInfo.Access2007
        AppConnectionArg.DataBaseFileName = "D:\BIN\Northwind 2007.accdb"      
         
        Dim IDStr As String = "E" & Counter.ToString("00000")
 
    End Sub
 
    Function NewAutoNumber (ByVal c As MSAccessConnectionArgs ) As String
         
        Dim Counter As Integer = 0 
        Dim cmd As MsAccessSQLCommandArgs = New  MsAccessSQLCommandArgs()
        cmd.ConnectionArgs = c
        'Field ID มี Type เป็น TEXT นะคะ
        cmd.CommandStr = "SELECT MAX(ID) FROM [TableName] "
        Dim tempStr As String = cmd.ExecuteCommandScalar().ToString()
         
        Counter = CInt(tempStr.SubString(1)) 'ตัดตัวอักษรออก แล้วเปลี่ยนเป็น integer
        Counter += 1
 
        tempStr = "E" + Counter.ToString("000000")
       
        Return tempStr         
 
    End Function
     
 
 
End Class

Date : 2010-06-22 15:01:12

By : blurEyes

No. 11

Guest

ค่าใหม่ : เพิ่มค่า
รูปแบบ : \E0000
ใส่ดัชนี : ไม่ซ้ำกัน

Date : 2015-12-05 12:07:32

By : Arisa

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : กำหนด Format Autonumber ใน Access 2003 แล้วแสดงข้อมูลใน VB.net

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] กำหนด Format Autonumber ใน Access 2003 แล้วแสดงข้อมูลใน VB.net

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

No. 8

No. 9

No. 10

No. 11

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

[.NET] กำหนด Format Autonumber ใน Access 2003 แล้วแสดงข้อมูลใน VB.net