base de datos en visual basic

[themindmaster]

este es mi programa


necesito que en el botom nueva venta, ponga los text en blanco para poder introducir nuevos valores para guardar en la base de datos.

espero me exprese bien y gracias de antemano 

[Danyfirex]

puedes hacer algo asi:

Código (vb) [Seleccionar] Expandir

For Each Control In Me.Controls
If TypeOf Control Is TextBox Then Control.Text = ""
Next


saludos

[themindmaster]

Gracias por tu pronta respuesta,
mi codigo era este

Código (vb) [Seleccionar] Expandir

adodc1.Recordset.AddNew
para el boton nuevo, me funcionaba al principio pero nose porque despues me dejo
de funcionar   me podrias explicar cual fue el motivo por el que dejara de funcionar?

El botom nueva venta es para agregar un nuevo formulario.

Saludos Cordiales!

[Danyfirex]

no entiendo :S

[themindmaster]

Eso es un programa con base de datos mira todos los codigos

Código (vb) [Seleccionar] Expandir

Private Sub cmdsalir_Click()
If MsgBox("¿Estas seguro que desea salir de la aplicacion?", vbQuestion + vbYesNo, "Pregunta") = vbYes Then
End
End If

End Sub

Private Sub Command1_Click()
Load frmarticulo
frmarticulo.Show vbModal
txtarticulo = articulo
End Sub

Private Sub Command10_Click()
txttotal = txtprecio * txtcantidad
End Sub

Private Sub Command11_Click()
Adodc1.Recordset.Delete
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Update

End Sub

Private Sub Command3_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MovePrevious
End If

End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If

End Sub

Private Sub Command6_Click()
Load frmenvio
frmenvio.Show vbModal
End Sub

Private Sub Command8_Click()

txttotalapagar = txttotal - txtdescuento
End Sub

Private Sub Command9_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Form_Load()
Fecha.Caption = Date
Skin.LoadSkin "C:\Documents and Settings\Propietario\Mis documentos\Flash\skins\skins/GT3.skn"
Skin.ApplySkin Me.hWnd

End Sub

Private Sub Option1_Click()
txtdescuento = txttotal * 0.02
End Sub

Private Sub Option2_Click()
txtdescuento = txttotal * 0.04
End Sub

Private Sub Option3_Click()
txtdescuento = 0

End Sub


Private Sub txtarticulo_Change()
If txtarticulo = "Monitor HP LCD" Then
txtprecio = 2300
End If

If txtarticulo = "Disco Duro 500GB" Then
txtprecio = 600
End If

If txtarticulo = "Memoria USB kingston 1GB" Then
txtprecio = 100
End If



End Sub



entonces cuando le de click al botom nueva venta quiero que me ponga una fila vacia para poder llenarla con otros datos 

[Danyfirex]

pues al darle a Adodc1.Recordset.AddNew deberia colcartelos en blanco

[raul338]

Fijate que los textbox esten unidos al DataEnvironment (asi se llamaba?) o ADODC

Fijate la propiedad DataSource y DataMenber de cada textbox sea la correcta

[Mad Antrax]

Uala, estas cargando la skin a través de una variable estática?

Dinos la verdad, cuantos días llevas programando?

[Vaagish]

necesito que en el botom nueva venta

El botom nueva venta es para agregar un nuevo formulario.

entonces cuando le de click al botom nueva venta quiero que me ponga una fila

1) El objeto se llama BotoN
2) Fíjate si no estas limpiando las cajas de texto "a mano", o si les escribís algo dentro antes de apretar "AddNew", si lo estas haciendo, te debe salir: "El evento fue cancelado por el objeto" o algo similar.
3) Ponerle nombre a los objetos no muerde..

[seba123neo]

te recomiendo leer un manual de ADO en visual basic, estas dudas se resuleven leyendo un manual.

y el control adodc esta obsoleto, mejor usa ADO desde codigo, simplemente declarando una variable de tipo Recordset y listo, no usas mas ese objeto.

saludos.