Visual Basic - visual basic con sql 2000

Life is soft - evento anual de software empresarial
   
Vista:

visual basic con sql 2000

Publicado por Beatriz (8 intervenciones) el 10/09/2008 19:16:03
Hola Programadores, necesito me ayuden a lo siguiente:
Soy nueva en programar con visual basic, bueno..estoy tratando de hacer lo siguiente
Tengo mi base de datos en sql 2000, y estoy armando un mantenimiento a una tabla en especifico, la cuestion es que ya tengo mi formulario enlazado con ado a esa tabla, ya veo la data que he agregado manualmente, el tema es que ya tengo un procedimiento almacenado que me inserta los datos para esa tabla...????Como hago para hacer referencia desde visual basic a ese procedimiento de sql y mandarle los parametros que serian los valores que se capturan desde el form de la aplicación¿¿¿¿¿¿
POR FAVOR AYUDENME¡¡¡¡
ATTE bEATRIZ
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:visual basic con sql 2000

Publicado por jose (1 intervención) el 10/09/2008 20:52:07
hola aunke ya no programo espero y esto t pueda ayudar..
Dim objConn As ADODB.Connection
Dim objCmd As ADODB.Command
'--------------------------------------------------------------------
'--- Abres la conexion a la base de datos
'--------------------------------------------------------------------
Set objConn = New ADODB.Connection
objConn.Provider = "SQLOLEDB"
objConn.ConnectionString = "Provider=SQLOLEDB.1;Initial Catalog=pubs;Data Source=papanotebook;User ID=sa;Password="
objConn.Open
'--------------------------------------------------------------------
'--- ejecutas command object con tu store procedure
'--------------------------------------------------------------------
Set objCmd = New ADODB.Command
objCmd.CommandType = adCmdStoredProc
objCmd.CommandText = "nombre del store"
Set objCmd.ActiveConnection = objConn
'--------------------------------------------------------------------
'--- creas y agregas los parametros
'--------------------------------------------------------------------
objCmd.Parameters.Append objCmd.CreateParameter("@chvFirstName", adVarChar,
adParamInput, 20, "John")
objCmd.Parameters.Append objCmd.CreateParameter("@chvLastName", adVarChar,
adParamInput, 40, "White")
objCmd.Parameters.Append objCmd.CreateParameter("@chrPhone", adChar, adParamInput,
12, "408 496-7223")
objCmd.Parameters.Append objCmd.CreateParameter("@chvAddress", adVarChar,
adParamInput, 40, "10932 Bigge Rd.")
objCmd.Parameters.Append objCmd.CreateParameter("@chvCity", adVarChar,
adParamInput, 20, "Menlo Park")
objCmd.Parameters.Append objCmd.CreateParameter("@chrState", adChar, adParamInput,
2, "CA")
objCmd.Parameters.Append objCmd.CreateParameter("@chrZip", adChar, adParamInput,
5, "94025")
objCmd.Parameters.Append objCmd.CreateParameter("@bitContract", adBoolean,
adParamInput, , 1)
objCmd.Parameters.Append objCmd.CreateParameter("@chrID", adChar, adParamInput,
1, "172-32-1176")
'--------------------------------------------------------------------
'--- ejecuta el store
'--------------------------------------------------------------------
objCmd.Execute
objConn.Close
Set objCmd = Nothing
Set objConn = Nothing
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:visual basic con sql 2000

Publicado por Beatriz (8 intervenciones) el 10/09/2008 22:10:09
Hola José muchas gracias por leerme y contestar....claro que si me sirve¡¡¡¡¡lo voy a probar..te agradezco muchas gracias
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