pbsql语句pb根据sql语句生成数据窗口

疯狂代码 http://CrazyCoder.cn/ ĵ:http:/CrazyCoder.cn/DataBase/Article21994.html

ls_sql,ls_syntax,ls_error ls_sql = mle_1.text

ls_syntax = sqlca.SynTaxFromSql(ls_sql,'style(type=grid)',ls_error) IF len(ls_error) > 0 Then MessageBox('Error',ls_error) Return Else

ls_error = ''

dw_1.create(ls_syntax,ls_error) len(ls_error) > 0 Then

MessageBox('Error2',ls_error) Return End IF

dw_1.transobject(sqlca) dw_1.Retrieve End If

mle_2.text = ls_syntax 2009-2-12 3:44:01 疯狂代码 http://CrazyCoder.cn/