Split text with length

[penagate]

So each line goes into a different variable.

What result do you want?

[vivian2u]

i want to save each line to the different variable in the database.

so that it can be used for the report. I would like to display the address in seperated line and not a whole one line.

[penagate]

You want to access the database from VB? In that case, I can't help you, sorry.
Which bit of the coding do you need help with?

[olamm2k]

Your description of the problem is a little vague, but the following code should get you started.

You need to change "yourdatabase.mdb" to the name of your database. Inside the database, create a table with 6 fields - idnum as an autonumbered primary key and 5 fields named add1, add2, add3, add4 and add5. You need to create a form with a textbox called txtAddress and a commandbutton called cmdSave, then add a reference to the Microsoft ADO 2.x Library.

Option Explicit
 
Dim objConn As ADODB.Connection
 
Private Sub cmdSave_Click()
    Dim strAddressLines() As String
    Dim intPointer As Integer
    Dim objRS As ADODB.Recordset
 
    If txtAddress.Text <> "" Then
        strAddressLines = Split(txtAddress.Text, ",")
        
        Call ConnectToDatabase(App.Path & "\yourdatabase.mdb")
        
        Set objRS = New ADODB.Recordset
        objRS.Open "Addresses", objConn, adOpenStatic, _
          adLockPessimistic, adCmdTable
        objRS.AddNew
        
        For intPointer = 0 To UBound(strAddressLines)
            If intPointer < 5 Then
                objRS.Fields("add" & CStr(intPointer + 1)) = strAddressLines(intPointer)
            Else
                MsgBox "Too many address lines", vbOKOnly + vbExclamation, App.Title
                Exit For
            End If
        Next intPointer
        
        objRS.Update
        If objRS.State <> adStateClosed Then
            objRS.Close
        End If
        Set objRS = Nothing
        
        Call DisconnectFromDatabase
    End If
End Sub
 
Private Sub ConnectToDatabase(ByVal strPath As String)
    Set objConn = New ADODB.Connection
    
    objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & strPath & ";" & _
      "Mode=Share Deny None;"
      
    objConn.Open
End Sub
 
Private Sub DisconnectFromDatabase()
    If objConn.State <> adStateClosed Then
        objConn.Close
    End If
    Set objConn = Nothing
End Sub

I would recommend looking at some tutorials if you have never worked with databases before through VB.
eg. http://www.developerkb.com/modules/w...hp?category=23

[vivian2u]

Thank you for the coding.

I would like to split the text at "," , For example: 265, Kuala Kangsar Road, 65000 Ipoh. The result will be:

265
Kuala Kangsar Road
65000 Ipoh

I would like to split the text at "," but with the fixed length (30). The result
I would like to have is:

265, Kuala Kangsar Road
65000 Ipoh

Please help

[olamm2k]

That's more difficult to do - why not have separate text boxes for each line of the address? You'd find it a lot easier to code.