51Testing软件测试论坛

标题: 读取数据库记录求助 [打印本页]

作者: zjz1986zhang 时间: 2008-12-3 15:05
标题: 读取数据库记录求助
代码如下：
Public Function Query_Data(Order)
Dim Conn,sqlStr,Res,sql,str
Set Conn = CreateObject("ADODB.Connection")
sqlStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Mercury Interactive\QuickTest
Professional\samples\flight\app\flight32.mdb"
Conn.open sqlStr
sql = "SELECT dbo.Orders.Customer_Name, dbo.Orders.Order_Number, dbo.Flights.Airlines, dbo.Flights.Flight_Number,
   dbo.Orders.Tickets_Ordered, dbo.Orders.Class, dbo.Flights.Ticket_Price, dbo.Orders.Departure_Date,
dbo.Flights.Day_Of_Week,dbo.Flights.Departure_Initials, dbo.Flights.Departure, dbo.Flights.Departure_Time,
dbo.Flights.Arrival_Initials, dbo.Flights.Arrival, dbo.Flights.Arrival_Time
      FROM dbo.Flights inner join dbo.Orders on dbo.Flights.Flight_Number = dbo.Orders.Flight_Number
      where Orders.Order_Number = '"& Order &"' "
Set Res = CreateObject("ADODB.Recordset")
Res.open sql,conn,1,3,1(运行到这一步，提示"Join 错误",估计是SQL语句的问题，但我在数据库中是可以正常运行的，不知道是不是不能进
行多表联合查询)
再下一步，我想把读出的记录集的第一行记录的每个字段的值连接起来组成一个字符串，并把它存入变量"str"
End Function
请各位朋友帮我修改并补充代码。
谢谢！

作者: biscuit 时间: 2008-12-3 17:02
join应该没有问题的，是不是搜索结果有问题。
你可以先根据join命令建立一个view（视图）试试，看看语句有没有问题。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)