none
拍謝,vb6我是用adodb,請教 一下 INSERT ,DEL 用法 RRS feed

  • 問題

  • 我找到的都是變成ADDNEW

                            R.Close
    我這樣寫也是錯的R.Open "INSERT INTO [cyttb] ('卡號','公號','時間') VALUE('123','456','10:00')"


    2009年5月26日 上午 09:27

解答

所有回覆

  • 我的兩個文字,一個時間
    2009年5月26日 上午 09:37
  • 好像還是有問題,他說陳述是語法錯誤
    Dim C As New ADODB.Connection
    Dim R As New ADODB.Recordset
        
    Dim StrCnn, StrSQL As String


    Private Sub Command1_Click()

    R.Close
    C.Close
    Set Redordset = Nothing
    Set Connection = Nothing
    'Set DataGrid1.DataSource = ""

    End
    End Sub

    Private Sub Command2_Click()
       
         Set C = CreateObject("ADODB.Connection")
         Set R = CreateObject("ADODB.Recordset")
         R.CursorLocation = 3
         StrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Steve Lin\桌面\vb6access2000\cyt.mdb;Persist Security Info=False"
         C.Open StrCnn
         StrSQL = " SELECT * FROM cyttb "
         R.Open StrSQL, C, 1
         Set DataGrid1.DataSource = R
         DataGrid1.Refresh
        
         Set Text1.DataSource = R
         Text1.DataField = "卡號"
         Set Text2.DataSource = R
         Text2.DataField = "公號"
         Call showdata
         Command1.Enabled = True
         Command3.Enabled = True
         Command4.Enabled = True
         Command5.Enabled = True
         Command6.Enabled = True
        
         

          
    End Sub

    Private Sub Command3_Click()
    If R.AbsolutePosition < 0 Then
    Exit Sub
    End If

    R.MoveFirst


    Call showdata
    End Sub

    Private Sub Command4_Click()
    If R.AbsolutePosition < 0 Then
    Exit Sub
    End If

    R.MoveLast
    Call showdata
    End Sub
    Sub showdata()
    Label1 = R.AbsolutePosition & "/" & R.RecordCount
    End Sub

    Private Sub Command5_Click()
    If R.AbsolutePosition < 0 Then
    Exit Sub
    End If
    R.MovePrevious
    If R.AbsolutePosition < 0 Then
    R.MoveNext
    End If

    Call showdata
    End Sub

    Private Sub Command6_Click()
    If R.AbsolutePosition < 0 Then
    Exit Sub
    End If
    R.MoveNext
    If R.AbsolutePosition < 0 Then
    R.MovePrevious
    End If

    Call showdata
    End Sub

    Private Sub Command7_Click()
    R.Close
    If Option1 Then
    R.Open "Select * From cyttb where[卡號]='" & Text3.Text & "'", C
    Else
    R.Open "Select * From cyttb where[公號]='" & Text3.Text & "'", C
    End If

     

    Set DataGrid1.DataSource = R
    Set Text1.DataSource = R
    Text1.DataField = "卡號"
    Set Text2.DataSource = R
    Text2.DataField = "公號"
    Call showdata
    DataGrid1.Refresh
    End Sub

    Private Sub Command8_Click()
    R.Close
    StrSQL = "INSERT INTO [cyttb] ([卡號],[公號],[時間]) VALUE('123','456',#10:00#)"
     R.Open StrSQL, C, 3, 3
    Call showdata
    DataGrid1.Refresh
    End Sub

    Private Sub DataGrid1_Click()
    Call showdata
    End Sub

     

     

    2009年5月26日 上午 09:46
  • INSERT INTO [cyttb] ([卡號],[公號],[時間]) VALUES ('123','456',#10:00#)
    小人物一枚。
    2009年5月26日 上午 09:56
    版主
  • 超級猛,我被秒殺喏....

    2009年5月26日 上午 10:11
  • 把 VB6 線上手冊裝起來,這個檔看一遍:
    C:\WINDOWS\Help\ADO210.CHM


    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    2009年5月26日 上午 10:22
  • 謝謝大哥給我資訊

    2009年5月26日 上午 10:23
  • 大哥去那個網站裝嗎?我找不到你說的檔案
    C:\Program Files\Common Files\Microsoft Shared\OFFICE11\1028我在這邊有找到,這個可以ㄇ?他說是Ado2.5

    2009年5月26日 上午 10:31
  • 安裝 VB6 時,一共有四片光碟,另外兩片是線上手冊。

    你貼的位置那個檔是英文說明,有安裝 VB6 線上手冊的那個檔是中文說明。

    既然你有安裝 Office 2003 ,順便把旁邊的 JETSQL40.CHM 看一看,這個是中文的 SQL 語法說明。
    論壇是網友平等互助 保證解答請至 微軟技術支援服務
    2009年5月26日 下午 01:09