Ayuda porfavor!!! Tengo un problema con DBGrid...
Publicado por Juan Reyes (20 intervenciones) el 04/03/2003 04:02:01
Hola a todos y de antemano les agradezco por ayudarme...
Tengo un porblema con el dbgrid... lo que pasa es que quiero crear una tabla en una BD y llenarla con una consulta SQL, y que los resultados que contiene la tabla nueva (Temporal) se desplieguen en el Dbgrid... lo estoy haciendo con el siguiente codigo, que lo hace, pero solo lo hace cuando estoy ejecutando el programa con F8, pero si lo ejecuto normal no lo hace... por favor ayudenme...
Private Sub cmdOk_Click()
Dim SQL As String
Codigo = txtCode.text
On Error Resume Next
Dbs.Execute "DROP TABLE Temporal"
SQL = "SELECT Movil.Conductor, Valores.Valor_Carrera FROM Valores, Movil WHERE Valores.codigo=" & Codigo & " AND Movil.Conductor=(SELECT Conductor From Movil Where Codigo=" & Codigo & ")"
Dbs.Execute "CREATE TABLE Temporal (Conductor TEXT, Valor LONG);"
Dbs.Execute "INSERT INTO Temporal (Conductor, Valor) " & SQL
Set RS = Dbs.OpenRecordset("Temporal")
If RS.RecordCount > 0 Then
datLink.RecordSource = "Temporal"
dbgData.Columns(0).Caption = "Conductor"
dbgData.Columns(0).DataField = "Conductor"
dbgData.Columns(1).Caption = "Valor"
dbgData.Columns(1).DataField = "Valor"
datLink.Refresh
Else
MsgBox "El Movil ingresado no contiene carreras ingresadas.", vbInformation + vbOKOnly, App.ProductName
txtCode.text = ""
txtCode.SetFocus
End If
datLink.Refresh
End Sub
cualquier sugerencia sera bien recibida... Gracias!!!
Tengo un porblema con el dbgrid... lo que pasa es que quiero crear una tabla en una BD y llenarla con una consulta SQL, y que los resultados que contiene la tabla nueva (Temporal) se desplieguen en el Dbgrid... lo estoy haciendo con el siguiente codigo, que lo hace, pero solo lo hace cuando estoy ejecutando el programa con F8, pero si lo ejecuto normal no lo hace... por favor ayudenme...
Private Sub cmdOk_Click()
Dim SQL As String
Codigo = txtCode.text
On Error Resume Next
Dbs.Execute "DROP TABLE Temporal"
SQL = "SELECT Movil.Conductor, Valores.Valor_Carrera FROM Valores, Movil WHERE Valores.codigo=" & Codigo & " AND Movil.Conductor=(SELECT Conductor From Movil Where Codigo=" & Codigo & ")"
Dbs.Execute "CREATE TABLE Temporal (Conductor TEXT, Valor LONG);"
Dbs.Execute "INSERT INTO Temporal (Conductor, Valor) " & SQL
Set RS = Dbs.OpenRecordset("Temporal")
If RS.RecordCount > 0 Then
datLink.RecordSource = "Temporal"
dbgData.Columns(0).Caption = "Conductor"
dbgData.Columns(0).DataField = "Conductor"
dbgData.Columns(1).Caption = "Valor"
dbgData.Columns(1).DataField = "Valor"
datLink.Refresh
Else
MsgBox "El Movil ingresado no contiene carreras ingresadas.", vbInformation + vbOKOnly, App.ProductName
txtCode.text = ""
txtCode.SetFocus
End If
datLink.Refresh
End Sub
cualquier sugerencia sera bien recibida... Gracias!!!
Valora esta pregunta


0