Xin giúp đỡ lỗi hàm tạo bảng nhập từ inputbox

[mrtq_86]

Chào các bạn,
Mình chạy code sau nhưng có lỗi câu lệnh SQL, các bạn giúp mình với

Sub TAOBANG()
On Error GoTo loi
Dim table As String
'table = Right(Sheet1.Cells(2, 1), 4)
table = InputBox("Nhap nam de tao csdl", "CSDL", "e.g 2016, 2017...")
Dim lsSQL As String: Dim rst As New ADODB.Recordset
If cnn.State <> 1 Then Moketnoi


[B]    lsSQL = "CREATE TABLE " & talbe & _[/B]
        "(ctrIndex COUNTER, DateAndTime DATETIME, CurrentStage TEXT(255), " & _
        "CurrentAction TEXT(255), WorkBook TEXT(255), ObjectType TEXT(255), " & _
        "Description TEXT(255), Value1 LONG)"
            
    rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly


    'Cells.ClearContents
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
Exit Sub
loi:
MsgBox Err.Description
End Sub

 

[VetMini]

Chào các bạn,
Mình chạy code sau nhưng có lỗi câu lệnh SQL, các bạn giúp mình với

Sub TAOBANG()
On Error GoTo loi
Dim table As String
'table = Right(Sheet1.Cells(2, 1), 4)
table = InputBox("Nhap nam de tao csdl", "CSDL", "e.g 2016, 2017...")
Dim lsSQL As String: Dim rst As New ADODB.Recordset
If cnn.State <> 1 Then Moketnoi


[B]    lsSQL = "CREATE TABLE " & talbe & _[/B]
        "(ctrIndex COUNTER, DateAndTime DATETIME, CurrentStage TEXT(255), " & _
        "CurrentAction TEXT(255), WorkBook TEXT(255), ObjectType TEXT(255), " & _
        "Description TEXT(255), Value1 LONG)"
            
    rst.Open lsSQL, cnn, adOpenStatic, adLockReadOnly


    'Cells.ClearContents
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
Exit Sub
loi:
MsgBox Err.Description
End Sub

Bảng của bạn cần tạo không có tên.

Muốn biết câu lệnh lỗi chỗ nào thì copy nó chạy trưc tiếp trong Access. Ít nhất bạn cũng phải tập làm những công việc debug đơn giản như vậy trước khi hỏi.

 

[mrtq_86]

Bảng của bạn cần tạo không có tên.

Muốn biết câu lệnh lỗi chỗ nào thì copy nó chạy trưc tiếp trong Access. Ít nhất bạn cũng phải tập làm những công việc debug đơn giản như vậy trước khi hỏi.

Cảm ơn VietMini,

Mình xử lý được vấn đề này rồi. Mình lấy tên bảng từ Inputbox tuy nhiên phải khai báo table as Variant