VB+SQL的问题

Question

Dim sql As String
    
    sql = "select client_id,clientname,clientsex,clientcode,clientphone,client_starttime,service,client_carnumber,carport_id,carport_area,carport_price,carport_re from client,sex,serve,carport,area,price,re where client.sex_id=sex.sex_id  and client.serveid=serve.serveid and client.area_id=carport.area_id and client.price_id=carport.price_id and client.re_id=carport.re_id,client.carport_id=carport.carport_id"
    rs.Open sql, conn, 1, 2
运行的时候，说附近语法有错误，我找不到，请哪位大师指点一下。还有，我想在VB中实现：通过一个combo1 控件达到调出SQL数据库里的数据，请问该如何编写代码？谢谢！

Answer 1

Dim sql As String
    
    sql = "select client_id,clientname,clientsex,clientcode,clientphone,client_starttime,service,client_carnumber,carport_id,carport_area,carport_price,carport_re " & _
          " from client,sex,serve,carport,area,price,re " & _
          " where client.sex_id=sex.sex_id  " & _
          " and client.serveid=serve.serveid " & _
          " and client.area_id=carport.area_id  " & _
          " and client.price_id=carport.price_id  " & _
          " and client.re_id=carport.re_id  " & _
          " and client.carport_id=carport.carport_id"
          if trim(combo1.text) <> "" then
              sql =sql & " and client.sex_id ='" & trim(combo1.text) & "' "
          end if
    rs.Open sql, conn, 1, 2

Answer 2

我也是，写的时候不会出那种花花绿绿的code效果