Visual Basic Foro

ok use otra manera para poder ver un poco d eluz y me resulto un poco es la siguiente el mismo codigo para abriri un puerto de una impresorta fiscal busq una libreria la pegue en la carpeta declare casi todo igual en mi modulo y el codigo es es mas que esto

Dim bRet As Boolean
Dim Puerto As String

'Puerto = Combo1.Text

ListOut ("**puerta activada**")


bRet = OpenFpctrl(Puerto)

y abre la puerta en ocasiones ya q el impulso es muy corto no sabran d alguna propiedad para alargar el tiempo de la señal?

a ok es q lei mal

este seria el cod


Dim rs As New ADODB.Recordset
sql= select * from cliente WHERE  vence Between '" & Fecha1 & "' and '" & text1 & "'"
rs.Open sql, dB, 1, 1    (para que el 1,1)?
Set datagrid1.DataSource = rs

ok con lo de la direccion mañana me doy duro q de verdad vi el cod y tengo uns lapsos mañana me siento y veo.

con respecto a el Between

asi tengo el code del adodc  y me dic q esta mal escrito?

 "select * from cliente WHERE  vence Between '" & fecha1 & "' and '" & Text1 & "'"


ya loas adodc me tienen !"·$%& voy a agarrar tu consejo es q empec con los adodc pa resolver xq no llevo mucho tiempo programando


este ejemplo lo modifique un poco pero me resulto de hacer la conexion en el mismo formulario


Dim conec As New ADODB.Connection
Dim StrSql As String
Dim sarchivobase As String ' creo una variable string para guardar el nombre del archivo
Dim rs As New ADODB.Recordset ' aca creo un recorset
Dim insert As Currency
sarchivobase = App.Path & "\bdgym.mdb"  ' nombre del archivo
'sarchivobase = App.Path & "\Base de Datos\" & "bdgym.mdb" ' nombre del archivo

  conec.Provider = "Microsoft.Jet.OLEDB.4.0" ' tipo de proveedor , en este caso access
        conec.CursorLocation = adUseServer ' donde ejecuto la consulta en este caso elijo que se ejecute en el servidor
        conec.ConnectionString = sarchivobase ' nombre dle archivo
        conec.Mode = adModeReadWrite ' modo lectura escritura
        conec.Open ' abro la conexion
       
       rs.ActiveConnection = conec ' lo asocio a la conexion
       
        rs.Source = "Select sum(monto)as suma from temporal3"
         rs.Open 'abro el recorset
Text13 = rs!suma  '
Text13.Visible = True

rs.Close
conec.Close
 y sume todo lo que tenia en el campo monto y me dio un total de la tabla temporal



pero como ari pa conectar y mostrar en un data grid con un solo modulo?

yo siempre pongo un modulo



Public CONEXIONBDD As New ADODB.Connection
Public name As String


Public Sub Main()

CONEXIONBDD.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\bdgym.mdb;"
 
  CONEXIONBDD.Open
Form10.Show

principal.Show


pero como aria para hacer una consulta y de una ves me cargue el data grid? sin un adodc??
 me fui x otro lado es que tengo varias dudas el uso del Between y las otras dos lo de comprtir un programa en red y la del adodc  si me pudieras ayudar un poco mas agradecido no respondo rapido xq trabajo en la carretera y siempre estoy rodando x hay y cuando llego es reventado y mi internet se conecta cuando le da la gana

gracias amigo ya arme el circuito bueno lo armo un pana que es ing electrico ahora esoy buacando como mandar la señal al puerto tenia uno d egaveta de impresora fiscal pero no resulto

OK MUCHAS GRACIAS MAS TARDE PRUEBO otra cosa amigo como o bueno dos priomiero como aria para mandar una señal por un puerto serial?

y segundo como aria para que un data grid trabaja perfectamente sin en al solo atravez de un modulo


yo hago la conexion de esta manera

Public CONEXIONBDD As New ADODB.Connection

CONEXIONBDD.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\bdgym.mdb;"
 
  CONEXIONBDD.Open



pero como quiero compartir una carpeta donde esta todo y tengo los dtagrid con adodc con direcciones fijas no trabajan bien quiero resolver esto si me podrias ayudar

ok yo hago mi conexion con un modulo asi


CONEXIONBDD.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\bdgym.mdb;"
 
  CONEXIONBDD.Open


pero como no sabia bien utilizar los datagrid le unica forma de que me anotara en pantalla era creando un adodc propiedades  generar conexion  ado jet control buscar la tabla y me da conexion despues me voy a  origen de registros y coloco mi sentencia sql.

buenas tardes alguien me podria decir como hacer para utilizar un Between

tengo una fecha x  un label cargada en el formload q pasa a esta fecha le resto 30 dias y me da una lo q denomine tope tengo un dtppicker q lo tengo con una fecha 2009 quiero q al pulsar buscar me busque todas las fechas comprendidas entre  tope y mi dtppicker mi codigo es asi el dtppicker=text1






Adodc1.RecordSource = "select * from cliente WHERE  vence Between  tope.value  and text1"

adodc1.refresch
DataGrid1.Refresh


me da un mensaje de error q el adodec esta mal puesto