BUSCAR EN PREGUNTAS Y RESPUESTAS

Se han encontrado 2654 coincidencias.

<< >>

Visual Basic

Pregunta:	27543 - DESDE VB CONEXION AL MOTOR ORACLE SOBRE LINUX
Autor:	Marcelo Durán
Actualmente estoy en un proyecto de la universidad relacionado a las conexiones, tengo Oracle personal 8i sobre un equipo Window98 y visual basic 6.0 empresarial, ademas contamos con un servidor linux en el cual funciona Oracle 8i, mi pregunta es, que pasos debo seguir para configurar la conexion a Oracle personal y server, además que conexión rápida utilizo en lugar de ODBC asi como lo es OLEDB?, gracias por ayudarme...

Respuesta:

Eider Mauricio Aristizabal Erazo

Te recomiendo utilizar la tecnología ADO que es más rapida que ODBC, RDO, DAO y OLEDB consulta en el siguiente URL

http://www.w3schools.com/ado/prop_conn_connectionstring.asp

'podrías crear una cadena de conexion
set conn=Server.CreateObject("ADODB.Connection")
'Supongamos que el servidor Oracle/Linux es 192.168.110.123
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Remote server=192.168.110.123"

conn.open server.mappath("database.mdb")

'operaciones a realizar

conn.close

Pregunta:	27562 - ¿PORQUE AUMENTA DE MB UNA BD AL COMPACTARLA?
Autor:	Paco
Alguien me puede decir algun método efieciente para compactar y reparar una BD de Access 97 desde Visual Basic 5, ya lo he intentado con las instrucciones DBEngine.RepairDatabase "ruta" y DBEngine.CompactDatabase "ruta, pero ocurre que me la dejó con mas megas de los q tenia en principio, ¿como puede ser esto si al compactarla desde Access se fue a menos megas? Un saludo y gracias.

Respuesta:

Dante Cantone

Paco:
La sentencia "DBEngine.RepairDatabase " siempre te aumenta la db de un 10 a un 25 % de volumen, segùn los tipos de datos que contenga y cuàn indexada estè. Sucede que en vez de trabajar con un temporal en disco (como la mayorìa de las aplicaciones windows) lo hace sobre el mismo archivo, lo cual hace que aumente su volumen. Luego al ejecutar la sentencia "DBEngine.CompactDatabase " se reordena la DB en "OTRO" archivo sin copiar la info redundante...
Es decir... al realizar ABM sobre las tablas estas modificaciones se van guardando siempre "al final" con punteros que indican a que tabla, registro, indice, etc corresponde. informaciòn que desaparece al aplicar las ABM sobre los registros involucrados.

Sospecho que en la rutina de compactaciòn que utilizas hay un error y solo se ejecuta la de reparaciòn(y por eso aumenta de volumen, en vez de disminuir). Prueba (si es que lo tienes en el còdigo) quitando la sentencia
- On Error Resume Next
y ejecutando paso a paso....

Dim DB As Database
Dim RS As Recordset
Dim StrRuta As String '//Ruta de la DB
Dim StrDBCompactada As String '//ruta donde ubicar la DB compactada

'//Generamos un nombre, puede ser en cualquier Path
'//Puede ser tambien un UNC (por ejemplo : \\server\carpeta)
StrDBCompactada = App.Path & "\" & Format(Now, "hhmmss")

On Error Resume Next 'Siempre conviene

'//REPARAMOS
DBEngine.RepairDatabase StrRuta
'//Compactamos
DBEngine.CompactDatabase StrRuta, StrDBCompactada
If Err Then
'// Aviso de error //
Exit Sub
End If
'Y cambiamos la VIEJA DB por la NUEVA
Kill StrRuta
FileCopy StrDBCompactada, StrRuta

Perdona si he sido muy explìcito en mi explicaciòn, quizàs haya temas que ya los sabìas... cualquier duda que tengas mandame un mail...

Pregunta:	27608 - INGLES-ESPAñOL
Autor:	john fredy rincon ramirez
es verdad que codigo de programa de visua basic en ingles me puede poner problema al ejecutarlo una version de visual basic en español gracias espero una pronta respuesta

Respuesta:	Alejandro Samayoa Corona
Falso, el codigo generado en una version en ingles es exactamente igual al generado en una version en espanol, por lo tanto, esto no te traera ningun problema.

Pregunta:	27634 - VARIABLES EN EL ORDER BY
Autor:	Sergio Brillo
Intento hacer una sentencia sql en Visual Basic agrupando con el "order by" por varios campos a la vez, mi problema es q esos varios campos son variables y yo querría hacer algo por el estilo a: select * from talba order by valor1,valor2 donde valor1 y valor2 se han llenado previamente, como puedo hacer para que me lo haga.

Respuesta:	Genaro N. Condori Estaca
Puedes proceder de la siguiente forma: qbe = "select * from talba " 'Consulta a una tabla Valor1 = "Codigo" ' Tiene el nombre del campo Codigo Valor2 = "Origen" ' Tiene el nombre del campo Origen qbe = qbe & " order by " & Valor1 & ", " & Valor2 ..tendras cuidado en asignar valores adecuados a las variables Valor1 y Valor2

Respuesta:	Mauricio Leyzaola
puedes hacerlo con numeros, en lugar de con letras. Algo así: SELECT Nombre, ApPaterno,ApMaterno FROM DatosPersonales WHERE ApPaterno LIKE '%za%' ORDER BY 2,1 En este caso te lo ordenerá por ApPaterno y luego por nombre. Saludos y suerte.

Pregunta:	27681 - CONEXION REMOTA CON ORACLE
Autor:	Moises Pinto
Deseo saber si existen API's para conexion de aplicaciones en Visual Basic con Base de Datos Remotas (ORACLE). y si es necesario el incluir componentes para este efecto. Cuento con un win Proxy 2.1, es necesario el mapear puertos.

Respuesta:

Leonel Zenil Aguilar

Pues mira no se si sea lo que quieres pero yo te doy este codigo para conectar VB con ORACLE......

Para hacerlo necesitas:

* 3 cajas de texto ("text1")

* 4 botones de comando ("Command1")
el 1º para ir al inicio de tus datos (nombre "cmd_primero")
el 2º para avanzar (nombre "cmd_siguiente")
el 3º para retroceder (nombre "cmd_anterior")
el 4º para ir al final. (nombre "cmd_ultimo")

esto es todo lo que vas a utilizar, por que por el lado de la BD esa bd ya va incluida en ORACLE.

ah! y esta pedaso de codigo va en una solo linea, aun que ya esta incluido en la parte de abajo solo es por si ocurre un error

cnn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist Security Info=True;User ID=scott"

Y SOLO COPIA EL CODIGO DE AQUI EN ADELANTE Y PEGALO EN TU FORMULARIO, PERO ANTES DE PEGARLO BORRA TODO EN CODIGO QUE CONTENGA TU FORMULARIO.

Private cnn As Connection
Dim rst As ADODB.Recordset

Private Sub Mostrar_Datos()
Text1.Text = rst.Fields("deptno")
Text2.Text = rst.Fields("dname")
Text3.Text = rst.Fields("loc")
End Sub

Private Sub cmd_anterior_Click()
rst.MovePrevious
cmd_siguiente.Enabled = True
If rst.BOF = False Then
Call Mostrar_Datos
Else
MsgBox "Estas en el primer registro"
rst.MoveFirst
Call Mostrar_Datos
End If
End Sub

Private Sub cmd_primero_Click()
rst.MoveFirst
Call Mostrar_Datos
cmd_anterior.Enabled = False
cmd_siguiente.Enabled = True
cmd_ultimo.Enabled = True
End Sub

Private Sub cmd_siguiente_Click()
rst.MoveNext
cmd_anterior.Enabled = True
If rst.EOF = False Then
Call Mostrar_Datos
Else
MsgBox "Se ha llegado al último registro"
cmd_siguiente.Enabled = False
cmd_ultimo.Enabled = False
rst.MoveLast
Call Mostrar_Datos
End If
End Sub

Private Sub cmd_ultimo_Click()
rst.MoveLast
cmd_siguiente.Enabled = False
cmd_anterior.Enabled = True
Call Mostrar_Datos
End Sub

Private Sub Form_Load()
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

cnn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist Security Info=True;User ID=scott"

cnn.Open
rst.Source = "select * from dept"
rst.CursorType = adOpenStatic
rst.LockType = adLockOptimistic
rst.ActiveConnection = cnn
rst.Open
Call Mostrar_Datos

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Sub

Pregunta:	27787 - SABER SI UNA APLICACION EXISTE EN UNA MAQUINA
Autor:	gerardo montilla
necesito saber desde visual basic ,si access esta instalado en una maquina y si esta que me devuelva la direccion donde esta. le agradesco si me pueden decir cual funcion del Api de windows puedo utilizar para verificar si existe access en la maquina, que me devuelva la direccion donde se encuentra el ejecutable.

Respuesta:

gerardo montilla

este ejemplo sirve para buscar cualquier archivo en la maquina y me dice si existe y el tamaño que ocupa. yo formule la pregunta por que no sabia pero luego busque en internet y encontre estas lineas de codigo que me sirvieron.

Visual Basic Example - Find Files
'Create a form with a command button (command1), a list box (list1)
'and four text boxes (text1, text2, text3 and text4).
'Type in the first textbox a startingpath like c:\
'and in the second textbox you put a pattern like *.* or *.txt

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

Const MAX_PATH = 260
Const MAXDWORD = &HFFFF
Const INVALID_HANDLE_VALUE = -1
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100

Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
Function StripNulls(OriginalStr As String) As String
If (InStr(OriginalStr, Chr(0)) > 0) Then
OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
End If
StripNulls = OriginalStr
End Function

Function FindFilesAPI(path As String, SearchStr As String, FileCount As Integer, DirCount As Integer)
'KPD-Team 1999
'E-Mail: [email protected]
'URL: http://www.allapi.net/

Dim FileName As String ' Walking filename variable...
Dim DirName As String ' SubDirectory Name
Dim dirNames() As String ' Buffer for directory name entries
Dim nDir As Integer ' Number of directories in this path
Dim i As Integer ' For-loop counter...
Dim hSearch As Long ' Search Handle
Dim WFD As WIN32_FIND_DATA
Dim Cont As Integer
If Right(path, 1) <> "\" Then path = path & "\"
' Search for subdirectories.
nDir = 0
ReDim dirNames(nDir)
Cont = True
hSearch = FindFirstFile(path & "*", WFD)
If hSearch <> INVALID_HANDLE_VALUE Then
Do While Cont
DirName = StripNulls(WFD.cFileName)
' Ignore the current and encompassing directories.
If (DirName <> ".") And (DirName <> "..") Then
' Check for directory with bitwise comparison.
If GetFileAttributes(path & DirName) And FILE_ATTRIBUTE_DIRECTORY Then
dirNames(nDir) = DirName
DirCount = DirCount + 1
nDir = nDir + 1
ReDim Preserve dirNames(nDir)
End If
End If
Cont = FindNextFile(hSearch, WFD) 'Get next subdirectory.
Loop
Cont = FindClose(hSearch)
End If
' Walk through this directory and sum file sizes.
hSearch = FindFirstFile(path & SearchStr, WFD)
Cont = True
If hSearch <> INVALID_HANDLE_VALUE Then
While Cont
FileName = StripNulls(WFD.cFileName)
If (FileName <> ".") And (FileName <> "..") Then
FindFilesAPI = FindFilesAPI + (WFD.nFileSizeHigh * MAXDWORD) + WFD.nFileSizeLow
FileCount = FileCount + 1
List1.AddItem path & FileName
End If
Cont = FindNextFile(hSearch, WFD) ' Get next file
Wend
Cont = FindClose(hSearch)
End If
' If there are sub-directories...
If nDir > 0 Then
' Recursively walk into them...
For i = 0 To nDir - 1
FindFilesAPI = FindFilesAPI + FindFilesAPI(path & dirNames(i) & "\", SearchStr, FileCount, DirCount)
Next i
End If
End Function
Sub Command1_Click()
Dim SearchPath As String, FindStr As String
Dim FileSize As Long
Dim NumFiles As Integer, NumDirs As Integer
Screen.MousePointer = vbHourglass
List1.Clear
SearchPath = Text1.Text
FindStr = Text2.Text
FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
Text3.Text = NumFiles & " Files found in " & NumDirs + 1 & " Directories"
Text4.Text = "Size of files found under " & SearchPath & " = " & Format(FileSize, "#,###,###,##0") & " Bytes"
Screen.MousePointer = vbDefault
End Sub

Pregunta:	27889 - ERROR EN EL METODO REFRESH DEL OBJETO IADOCD
Autor:	Maryu Vasquez
Con frecuencia se me presenta el siguiente error en un aplicativo que operara con visual Basic 6.0 y Sql 7.0 Error '2147417848 (80010108)' en tiempo de ejecucion. Error en el metodo refresh del objeto IAdodc. Tengo la siguente instruccion Sql = "SELECT * FROM MOLDES WHERE REFERENCIA=('" & Molde & "') and POSICION = ('" & Posicion & "') AND status = (1) order by POSICION, MARCA;" Me.Adodc1Moldes.RecordSource = Sql Me.Adodc1Moldes.Refresh

Respuesta:	R@uL
Mira talvez sea porque se lo pones en RecordSourse porque no hace la consulta lo que puedes hacer es hacerlo irectamente en el recordset poniendo : Adodc1Moldes.Recordset.open "tuConsulta" y espero que salga o sino pouedes utilizar Filter. adodc1.recorset.filter= "tu consulta"

Pregunta:	27894 - LISTBOX RIGHT TO LEFT
Autor:	Migue Angel Jimenez
Muchas gracias por leer mi pregunta, soy nuevo en Visual Basic, y me surge un problema. ¿ Como puedo colocar un listbox alineandolo a la derecha?. Lo he intentado con la propiedada right to left pero no me acepta el valor true.

Respuesta:	Antonio lara
por ahi tienes una propiedad de el control list que se llama aligment ponlo a dos (o right) espero que esto te ayude

Pregunta:	27947 - CONECTIVIDAD VB 5.0 CON AIX 4.3.3
Autor:	Darwin Baldrich
Estimados amigos, Intento ejecutar un script, un comando y un programa de c, que se encuentran en un servidor AIX desde VisualBasic. No he podido hacerlo hasta ahora. Tengo Visual Basic 5.0 y AIX 4.3.3. Gracias por su colaboración.

Respuesta:	Max Kernel
Hola amigo, depende si el sistema AIX esta bien configurado, no podras Realizar el hack, ahora todo es posible si se lo permites desde el mismo AIX. Trabajo hace 15 años con AIX es sistemas RS6000, es muy agradable trabajar con ellos. Saludos!!!

Pregunta:	28059 - RECIBIR FAX DESDE VBASIC
Autor:	Orestes Loprete
Hola amigos, tengo que resolver un problema con bastante urgencia, y es el siguiente: En una aplicación tengo que llamar vía modem a un número de teléfono donde atiende un menú pregrabado, con varias opciones seleccionables por tonos. La última opción que selecciono hace que la máquina que me atendió me envíe un fax. Probando con un control MScomm, no tengo problema hasta que le doy la última opción seleccionada, el tema es darle señal de fax y grabarlo, con lo que me estoy rompiendo la cabeza hace rato y no encuentro la forma. Si pueden ayudarme, lo agradeceré enormemente. Incluso no me importa si tengo que usar otros lenguajes, el tema es que mi presupuesto es demasiado bajo.

Respuesta:

Sandra Vazquez

Tengo el problema igual tengo 4 dias intentadolo y e llegado hasta aki
Dim cadConexion As String
Dim resultado As Integer
Dim modem As String

On Error GoTo cError
Text1.Text = "Marcando..." & Chr(13)
cadConexion$ = "ATDT" + numero + Chr$(13)

MSComm1.Output = "AT+FCLASS=2.1" & Chr(13)
Duerme 300
MSComm1.InputLen = 0
Temp = MSComm1.Input
Text1.Text = Text1.Text & "OUT: " & "AT+FCLASS=2,1" & Chr(13) & " IN: " & Temp & Chr(13)

MSComm1.Output = "AT+FNR=1,1,1,1" & Chr(13)
Duerme 300
MSComm1.InputLen = 0
Temp = MSComm1.Input
Text1.Text = Text1.Text & "OUT: " & "AT+FNR=1,1,1,1" & Chr(13) & " IN: " & Temp & Chr(13)

MSComm1.Output = TxtTelLocal & Chr(13)
Duerme 300
MSComm1.InputLen = 0
Temp = MSComm1.Input
Text1.Text = Text1.Text & "OUT: " & TxtTelLocal & Chr(13) & " IN: " & Temp & Chr(13)

'Enviamos los comandos AT con el número al módem
MSComm1.Output = cadConexion$
MSComm1.InputLen = 0
Temp = MSComm1.Input
Text1.Text = Text1.Text & "OUT: " & cadConexion$ & Chr(13) & " IN: " & Temp & Chr(13)
'Esperamos a recibir "OK" desde el módem

Do
resultado = DoEvents()
' Si hay datos en el Buffer los leemos
If MSComm1.InBufferCount Then
modem$ = modem$ + MSComm1.Input
'Comprobamos si los datos leídos son "OK"
If InStr(modem$, "OK") Then
'MSComm1.Output = "prueba" & vbCr & vbLf
'Podemos indicar al usuario que descuelgue el teléfono
Exit Do
End If
End If
Loop
Text1.Text = Text1.Text & modem$
' SE PUEDE LEVANTAR LA BOCINA PARA PEDIR TONO

MSComm1.Output = "AT+FDT" & Chr(13)
MSComm1.InputLen = 0
Temp = MSComm1.Input
Text1.Text = Text1.Text & "OUT: " & "AT+FDT" & Chr(13) & " IN: " & Temp & Chr(13)

Do
DoEvents
' Si hay datos en el Buffer los leemos
If MSComm1.InBufferCount > 0 Then
modem$ = MSComm1.Input
'Comprobamos si los datos leídos son "OK"
If InStr(modem$, "CONNECT") Then
'Podemos indicar al usuario que descuelgue el teléfono
Text1.Text = Text1.Text & modem$ & Chr(13)
Exit Do
Else
If InStr(modem$, "ERROR") Then
MsgBox "EL MODEM NO RESPONDIO.", vbCritical, "FAX"
Exit Do
End If
End If
Text1.Text = Text1.Text & modem$ & Chr(13)
End If
Loop
Dim Mensaje() As Byte
Dim Texto As String
Texto = "Es un mensaje de prueba"
For i = 1 To Len(Texto)
Mensaje(i) = Chr(Mid(Texto, i, 1))
Loop
MSComm1.Input = Mensaje

yo puedo levantar el telefono y teclear el numero de la extencion por k no se k numero sera debido a k ser a muchos telefonos diferentes a donde se envie pero no se como mandar el mensaje por eso estoy ciclada

|< << 202 203 204 205 206 207 208 209 210 211 212 >> >|