ช่วยแอดเมลล์มาหน่อยได้มั๊ยค่ะ หามาทั้งวันแล้ว

ขออภัยด้วยครับ เราไม่มีนโยบายในส่วนนี้ครับ

กำ งั้นตอบมาหน่อยไม่ได้หรอ จะ import อ่ะ

จาก excel สั่ง export เป็น text tab delimited
import เข้า phpMyAdmin โดยเลือกที่ import from file แล้วตั้งค่าจบฟิลด์ด้วยเป็น t

ต้องการcode export ข้อมูลจาก mshgrid เข้า database sqlserver แต่ ติดErrorตรงที่ .Nomacth มีวิธีไหนดีกว่านี้มั๊ย หรือจะช่่วยแก้Codeให้ก็ดีนะคะ จะเป็นพระคุณอย่างยิ่ง

Option Explicit
Dim conn As ADODB.Connection
' ¿Ñ§¤ìªÑè¹·Õèãªé㹡ÒÃà»Ô´ä¿Åì MS Excel
Private Function Connect() As Boolean
On Error GoTo ErrorHandler
    Set conn = New ADODB.Connection
    With conn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & txtName.Text & ";Extended Properties=Excel 8.0;"
        .Open
    End With
 
    Connect = True
ExitProc:
    Exit Function
   
ErrorHandler:
        MsgBox Err.Number & vbCrLf & Err.Description, vbOKOnly + vbCritical, "Error: ¿Ñ§¤ìªÑè¹ Connect"
     Connect = False
     Resume ExitProc
End Function
Private Sub GetExceltables()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
        With conn
            Set rs = .OpenSchema(adSchemaTables)
        End With
        ' Loop ä»àÃ×èÍÂæ ¨¹¡ÇèÒ¨ÐËÁ´¨Ó¹Ç¹¢Í§ WorkSheet
    Do While Not rs.EOF
              CmbShreets.AddItem (rs.Fields("TABLE_NAME").Value) ' ¹Óª×èÍ WorkSheet (ËÃ×Í ª×è͵ÒÃÒ§) ÁÒãÊèäÇéã¹ ComboBox
        rs.MoveNext
    Loop
End Sub
' ÍèÒ¹¢éÍÁÙÅ·ÕèÍÂÙèã¹à«ÅÅìµèÒ§æà¢éÒÊÙè Flexgrid
Private Sub GetExcelData()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
        With rs
             .ActiveConnection = conn
            .CursorLocation = adUseClient
            .CursorType = adOpenStatic
            .LockType = adLockReadOnly
            .Source = "select * from [" & CmbShreets.Text & "]"
            .Open
       Set MSHFlexGrid1.DataSource = rs
       End With
       rs.Close
       Set rs = Nothing
End Sub

Private Sub CmbShreets_Click()
    If CmbShreets.ListIndex < 0 Then Exit Sub
        Call GetExcelData
     End Sub

Private Sub cmdexit_Click()
    End
End Sub

Private Sub cmdImpert_Click()
Dim db1 As Database
Dim rs As Recordset
Dim i As Integer

Set db1 = OpenDatabase("C:/PartMstr.mdb")
Set rs = db1.OpenRecordset("PriceList", dbOpenTable)
rs.Index = "PartNo"

For i = 1 To MSHFlexGrid1.Rows - 1
    rs.Seek "=", MSHFlexGrid1.TextMatrix(i, 1)
    If rs.Nomacth Then
        rs.AddNew
        rs("PartNo") = MSHFlexGrid1.TextMatrix(i, 1)
        rs("Model") = MSHFlexGrid1.TextMatrix(i, 2)
        rs("Price") = MSHFlexGrid1.TextMatrix(i, 3)
        rs.Update
    End If
Next i
rs.Close
db1.Close
End Sub

Private Sub CmdOpen_Click()
    On Error GoTo ErrHandler
        With dlgOpenFile
            .DialogTitle = "àÅ×͡੾ÒÐä¿Åì Excel"
            .InitDir = App.Path
            .Filter = "All Microsoft Excel File (*.xls)|*.xls" ' àÅ×͡੾ÒÐä¿Åì Excel
            .ShowOpen
            .CancelError = True
                If .FileName <> "" Then txtName.Text = .FileName
        End With
        If txtName.Text = "" Then Exit Sub
        If Connect Then
            CmbShreets.Clear
            Call GetExceltables
        End If
ExitProc:
    Exit Sub

ErrHandler:
Select Case Err.Number
Case 32755
Err.Clear
Exit Sub
Case Else
    MsgBox Err.Number & vbCrLf & Err.Description
End Select
Resume ExitProc
End Sub
Private Sub Form_Load()
    txtName.Text = ""
    CmbShreets.Clear
     lblDescription.Caption = "â»Ãá¡ÃÁ´Ö§ä¿Åì MS Excel à¢éÒ ã¹DataBase"
     Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
End Sub
 

น่าจะใช้ component ตัวอื่นๆแทนได้นะครับ พอดีไม่เก่ง vb ครับ