Jump to content

pajuma

Members
  • Content Count

    444
  • Joined

  • Last visited

  • Days Won

    5

pajuma last won the day on October 25 2014

pajuma had the most liked content!

About pajuma

  • Rank
    Advanced Member
  • Birthday 09/13/1985

Profile information

  • Gender
    Hombre
  • Localización:
    PERU - LIMA
  • Interests
    Analista de base de datos.

Recent Profile Visitors

644 profile views
  1. Muchas Gracias Silvia ,, por el apoyo y tiempo con ello quedo mas que explicado ,, se soluciono mi problema. Saludos Cordiales,
  2. Estoy tratando como poder colocar el estado en la hoja 1 de acuerdo al rango de la hoja 2 es decir si la celda A2 (hoja 1), esta en el rango de las columans B: C (hoja2) Colocar el estado 01 (hoja2),,,si la celda A2 (hoja 1) esta en el rango de las columnas E:F(hoja2) colocar el estado 02 de la hoja 02. espero me pueden ayudar con esto se lo agradeceria mucho. Saludos, COLOCAR ESTADO.xlsx
  3. Buenas Tardes me gustaria saber como haria para poder separar el departamento el distrito y la provincia con formulas . agradezco su ayuda de antemano. lo he intentado con texto en columnas pero no sale como deberia ser. Saludos, SEPARAR DIRECCION 01.xlsx
  4. hola enigma efectivamente se llego a resolver las disculpas del caso doy por cerrado este tema ..lo hice con sql .
  5. gracias logroastur ,riddle me fue de ay Sub Ingresar() Set con = New ADODB.Connection Set rst = New ADODB.Recordset Dim cmd As New ADODB.Command Call Conectar_Sql ' parametros de conexion a la base de datos con sql Dim TxtUser, txtpass As String TxtUser = UCase(Trim(Frm_Login.Cmbusuarios.Value)) txtpass = Trim(Frm_Login.TxtClave.Value) rst.ActiveConnection = con rst.Source = "Select * From dbo.Tbl_Usuarios where Nombres='" & TxtUser & "' AND Dni='" & txtpass & "'" & " AND Estado='1'" rst.Open If rst.RecordCount <> 0 Then Do While Not rst.EOF If Frm_Login.Cmbusuarios.Value = rst!Nombres And Frm_Login.TxtClave.Value = rst!Dni Then Call Acceso exit sub '--solo falto esto para que corra. Else Frm_Login.TxtClave.Value = "" End If rst.MoveNext Loop Frm_Login.TxtClave.Value = "" End If rst.Close Set rst = Nothing con.Close '-------------------------------------------------- End Sub uda el codigo se soluciono mi problema comparto
  6. Buenas tardes estoy tratando de loguearme desde un formulario frm_login teniendo una tabla de usuarios en mi base de datos pero me arroja el siguiente error cuando coloco el usuario y la clave de manera correcta: se ha producido el error '91' en tiempo de ejecucion: variable de objeto o bloque with no establecido. Favor agradezco su apoyo.para resolver el problema Sub Ingresar() Set con = New ADODB.Connection Set rst = New ADODB.Recordset Dim cmd As New ADODB.Command Call Conectar_Sql ' parametros de conexion a la base de datos con sql Dim TxtUser, txtpass As String TxtUser = UCase(Trim(Frm_Login.Cmbusuarios.Value)) txtpass = Trim(Frm_Login.TxtClave.Value) rst.ActiveConnection = con rst.Source = "Select * From dbo.Tbl_Usuarios where Nombres='" & TxtUser & "' AND Dni='" & txtpass & "'" & " AND Estado='1'" rst.Open If rst.RecordCount <> 0 Then Do While Not rst.EOF If Frm_Login.Cmbusuarios.Value = rst!Nombres And Frm_Login.TxtClave.Value = rst!Dni Then Call Acceso Else Frm_Login.TxtClave.Value = "" End If rst.MoveNext Loop Frm_Login.TxtClave.Value = "" End If rst.Close Set rst = Nothing con.Close '-------------------------------------------------- End Sub Sub Acceso() Unload Frm_Login Frm_Contenedor.Show End Sub
  7. Muchas Gracias @logroastur se ha solucionado mi problema gracias por tu tiempo. Dios te bendiga . @Enigma gracias tambien por el tiempo ofrecido en mi consulta. Saludos Cordiales,
  8. @logroastur asi lo estoy poniendo pero deberia incrementar el codigo en fact-0001 cuando inicio el formulario eso se hace pero cuando le doy guardar necesito que se incremente en fact-0002 y asi sucesivamente que me tome el ultimo registro de la base de datos y le incremente 1 al momento de guardar . muy agradecido por tu tiempo y por tu incondicional apoyo Sub Autogenerador() Dim con As ADODB.Connection Dim rst As ADODB.Recordset Set con = New ADODB.Connection con.ConnectionString = "mi cadena de conexion" con.Open If con.State = adStateOpen Then Frm_Contenedor.Lblconectando.Caption = "Servidor Conectado..." Else MsgBox "La Base de Datos no esta disponible o el Servidor esta Desconectado...", vbCritical Frm_Contenedor.Lblconectando.Caption = "Servidor Desconectado..." End If Set rst = New ADODB.Recordset rst.ActiveConnection = con rst.Source = "SELECT Max(Codigo_nota) AS Maximo FROM Notas_Abono" rst.Open Set rst = New ADODB.Recordset rst.ActiveConnection = con rst.Source = "SELECT Max(Codigo_nota) AS Maximo FROM Notas_Abono" rst.Open If rs.RecordCount > 0 Then If IsNumeric(Replace(rst.Fields(0), "Fact-", "", 1, -1, 1)) Then Frm_Contenedor.TextBox21.Text = rst(0) Else Frm_Contenedor.TextBox21.Text = "Fact-0000" End If Else Frm_Contenedor.TextBox21.Text = "Fact-0001" End If con.Close If Not rst Is Nothing Then Set rst = Nothing If Not con Is Nothing Then Set con = Nothing End Sub
  9. Hola @logroastur por la explicacion y gran ayuda he puesto el codigo pero no se autoincrementa en 1 lo he comenzado con fact-0001 pero cuando doy en guardar no me aparece el fact-0002 gracias, saludos,
  10. Gracias a @logroastur y @enigma por su ayuda pero me quede en esto o talvez estoy poniendo mal los parametros, me arroja un error no coinciden los tipos uso como base de datos sql server 2008 muy agradecido por la ayuda brindada Set rst = New ADODB.Recordset rst.ActiveConnection = con rst.Source = "SELECT Max(Codigo_nota) AS Maximo FROM Notas_Abono" rst.Open If rst.Fields(0) > 0 Then For i = 1 To "Fact-" & Format(rst.Fields("Maximo"), "0000") + 1 Frm_Contenedor.TextBox21.Text = "Fact-" & Format(rst.Fields("Maximo"), "0000") Next Else Frm_Contenedor.TextBox21.Text = "Fact-" & Format(i, "0001") End If con.Close If Not rst Is Nothing Then Set rst = Nothing If Not con Is Nothing Then Set con = Nothing
  11. Buenas tardes tengo una base de datos y deseo que se visualize el ultimo codigo al momento de guardar la info, sabiendo que el tipo de dato en la base de datos es nvarchar como hago para que sea asi: Fact-0001,Fact -0002,Fact -0003,etc etc Set rst = New ADODB.Recordset rst.ActiveConnection = con rst.Source = "Select Max(Codigo_nota) As Maximo From Tabla" rst.Open If rst.Fields(0) > 0 Then For i = 1 To rst.Fields("Maximo") + 1 Next endif con.Close If Not rst Is Nothing Then Set rst = Nothing If Not con Is Nothing Then Set con = Nothing
  12. efectivamente enigma coloco 4 campos como referencia de ejemplo, pero en si son 120 campos que deben de mostrase la cual teniendo gran cantidad de base y un algoritmo de busqueda secuencial hace q mi consulta sea muy lenta .. Gracias
  13. Gracias enigma pero en este caso si tengo que consultar todos los registros de la tabla, por ello le pongo * gracias saludos cordiales,
  14. Hola a todos estoy trabajando con una database en access y excel vba pero en mi database son 200 mil registros abra una manera de hacer mas eficiente una consulta de busqueda yo uso este tipo de consulta la base de datos esta en red y cuando se conectan varios usuarios a consultar es muy lenta diria demasiado lenta en hacer una busqueda en el evento click del listbox tengo los dni y cuando doy click en un dni muestra los datos Sub Consulta_Cliente() Set rs = New ADODB.Recordset dato = Frm_Cliente.ListBox2.List(Frm_Cliente.ListBox2.ListIndex, 0) Frm_Cliente.Txtdnicli.Value = "": Frm_Cliente.Txtcliente.Value = "": Frm_Cliente.Txtcodvend.Value = "" Frm_Cliente.Txtvend.Value = "" rs.Open "Select * from Tbl_activador where NUM_DOCUMENTO='" & dato & "'", cnn, adOpenKeyset, adLockOptimistic, adCmdText If rs.RecordCount > 0 Then Frm_Cliente.Txtcliente.Value = rs!nombre_cliente Frm_Cliente.Txtcodvend.Value = rs!COD_PROMOTOR Frm_Cliente.Txtvend.Value = rs!PROMOTOR Frm_Cliente.Txtdnicli.Value = rs!NUM_DOCUMENTO endif
  15. sube el archivo de muestra ya sea con datos ficticios son las reglas del foro. Slds,
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png