RE:Cadena Conexión ADO VB
Publicado por
george (1 intervención) el 20/07/2008 19:08:52
B1.Text = "Guardar"
ElseIf B1.Text = "Guardar" Then
Dim cod_x$, tmp$
If dst.Tables("per").Rows.Count = 0 Then
cod_x = "pr0000"
Else
Dim iue% = dst.Tables("per").Rows.Count - 1
cod_x = dst.Tables("per").Rows(iue).Item(0)
End If
tmp = Str(Val(Mid(cod_x, 3)) + 1)
‘ojo….. valor que puede ser un registro o mas pero si pasa mas de 10 registros seran dos numeros
cod_x = Mid(cod_x, 1, 6 - Len(Trim(Trim(tmp)))) & Trim(tmp)
TxtCod.Text = cod_x
cnx.Open()
cmd = New SqlCommand("insert into personal values('" & TxtCod.Text & "','" & TxtNombre.Text & "','" & TxtApellidos.Text & "', '" & TxtDni.Text & "','"
& TxtDireccion.Text & "','" & DTFechaIng.Text & "','" & CboSexo.Text & "' ,'" & CboCategoria.Text & "','" & CboDepartamento.Text & "')", cnx)
cmd.ExecuteScalar()
cmd.Dispose()
cnx.Close()
If rutafoto <> "" Then
FileCopy(rutafoto, ruta_archiv & cod_x & ".jpg")
End If
MsgBox("datos del personal ingresados en la base de datos")
dst.Tables("per").Clear()
dap.SelectCommand.CommandText = "select * from personal"
dap.Fill(dst, "per")
c = dst.Tables("per").Rows.Count - 1
hab(True, True, False)
B1.Text = "Nuevo"
End If
"no se que significa este codigo pero por linea estaba buscando por internet mucho asi que me anime a escribir si puede mandarme informacion para buscar te lo agraderia es ado.net y bases de datos "