Visual Basic - Como interactuo con una tabla

Life is soft - evento anual de software empresarial
 
Vista:

Como interactuo con una tabla

Publicado por Ngenao (29 intervenciones) el 01/06/2006 17:52:38
Necesito un manual que me indique como interatuar con una tabla y la aplicacion.

Tengo una aplicacion que debe de buscar en una tabla, modificar, borrar un registro, Insertar un registro. Todo en SQL Server.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como interactuo con una tabla

Publicado por MDONGO (25 intervenciones) el 01/06/2006 20:28:35
vale, pues si tienes una aplicacion, que no hace nada de que es la aplicacion??
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como interactuo con una tabla

Publicado por BerlyDev (1 intervención) el 02/06/2006 06:13:01
----chochera disculpa el desorden pero a ca todo lo que quieres ::

-------------
Private Sub Combo1_Click()
Dim str_SQL As String
Dim n As Integer
Dim rst_combobox As ADODB.Recordset
Combo2.Clear
'CALCULO DEL NÚMERO DE REGISTROS
str_SQL = "select COUNT(*)as contador from " & Combo1.Text
Set rst_combobox = New ADODB.Recordset
Set rst_combobox = LlenarRecordSet(str_SQL)
lblNroReg.Caption = "Nro Registros :" & rst_combobox(0)
NroDatos = rst_combobox(0)
rst_combobox.Close
Set rst_combobox = Nothing
'PARA EL LLENADO DEL COMBO 2
str_SQL = "select COLUMN_NAME from information_schema.columns where table_Name='" & Combo1.Text & "'"
Set rst_combobox = New ADODB.Recordset
Set rst_combobox = LlenarRecordSet(str_SQL)
While Not rst_combobox.EOF
Combo2.AddItem rst_combobox(0)
'Combo1.ItemData(Combo1.NewIndex) = rst_combobox(0)
rst_combobox.MoveNext
Wend
rst_combobox.Close
Set rst_combobox = Nothing
Combo2.ListIndex = 0
'Ponemos aceptar como no permitido
Command1.Enabled = False
Label5.Caption = "Debes Seleccionar la clave primaria"
End Sub
-----------------------
SI QUIERES ACTUALIZAR O EJECUTAR COMANDO

----------
UpdateText = "UPDATE " & Combo1.Text & " SET " & Combo2.Text & "= '" & Cadena & "' WHERE " & PriKey & "=" & nroRegistro
Set cmd_Agencias = New ADODB.Command
With cmd_Agencias
.ActiveConnection = cn
.CommandType = adCmdText
.CommandText = UpdateText
.Execute
End With

----------

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar