Results 1 to 2 of 2
  1. #1
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Fired with selection.... (2000)

    What is the problem?
    - Do you get an error message? If so, on which line and what does it say?
    - Does the code produce incorrect results? If so, how?

  2. #2
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Fired with selection.... (2000)

    I want to select all rds from table where CODICE = COD_AREA, correct me please...

    Sub FILL_COMBO(COD_AREA)

    Set con = New Connection
    Set RS = New Recordset
    Set com = New Command
    Dim rss As New ADODB.Recordset

    RS.CursorLocation = adUseServer
    RS.LockType = adLockOptimistic
    RS.CursorType = adOpenDynamic

    With con
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=Documents and SettingsAdministratorDesktopmappeMAPPA_OKMAPPA_OKA REA.mdb;Persist Security Info=False"
    .Open
    RS.Open "select * from REGIONI WHERE CODICE = & Chr(34) & COD_AREA & Chr(34), con"

    Do Until RS.EOF
    Combo1.AddItem RS.Fields("REGIONI")
    RS.MoveNext
    Loop

    RS.MoveFirst

    End With

    End Sub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •