|
Mostrar Mensajes
|
Páginas: 1 2 [3]
|
22
|
Programación / Programación Visual Basic / [Source] Lector RSS Feed
|
en: 9 Marzo 2011, 21:09 pm
|
Bueno amigo acá aportando algo para la comunidad. Es un pequeño programa que sirve para saber que se posteo en las paginas donde mas frecuento al haber un nuevo post te salta en la pantalla un mensaje igual que el messenger, y te da la opción si te interesa el post para abrir desde ahi. Usa una BD MySQL para almacenar los post anterior. Revisa cada 1 minuto ustedes van a cambiar cada cuanto quieren. Y tienen que instalar el ActiveX Chilkat XML, que se encuentra en el RAR y asegurarse si se cargo la referencia. Screen del ProgramaAca la Sourcehttp://www.mediafire.com/?77lk8ihls44qq7sSi no funciona el Scrip del MySQL aca dejo para que puedan crear manualmente. CREATE DATABASE /*!32312 IF NOT EXISTS*/`rss_lector` /*!40100 DEFAULT CHARACTER SET utf8 */;
USE `rss_lector`;
CREATE TABLE `tbl_rss` ( `titulo` VARCHAR(200) DEFAULT NULL ) ENGINE=INNODB DEFAULT CHARSET=utf8; ACLARO, no todo el source es mio lo tome algunas cosas de varios foros y lo adapte a mi gusto. Y acá comparto con ustedes.
|
|
|
25
|
Programación / Programación Visual Basic / Recuperar Datos Server COD4 y poner en ListView (Source)
|
en: 8 Enero 2011, 00:00 am
|
Hola amigos HACKERs estoy creando un programita que se conecta con el servidor del juego Call of Duty 4, lo que quiero hacer es para manejar el servidor desde el programa que estoy haciendo. Ya logre conectar con el servidor y recibir el estado y lista de player. Ahora como puedo meter esos datos en un control ListView. Dejo aca una imagen de como me trae los datos del servidor. Asi es como quiero que quede Aca dejo mi code: Private Sub cmdConectar_Click() Winsock1.Close Winsock1.Protocol = sckUDPProtocol Winsock1.RemoteHost = "190.210.70.77" Winsock1.RemotePort = 28964 Winsock1.Connect End Sub
Private Sub cmdStatus_Click() rcon = "lugano" Winsock1.SendData Chr(255) & Chr(255) & Chr(255) & Chr(255) & "rcon " & rcon & " " & "status" End Sub
Private Sub winsock1_DataArrival(ByVal bytestotal As Long)
'Dim strdata As String 'Winsock1.GetData strdata, vbString, bytestotal 'txtOutput = strdata
Dim temp As String Dim posG, posD, i As Integer Dim tabJoueurs() As String
Winsock1.GetData strdata, vbString strdata = Replace(strdata, "^0", "") strdata = Replace(strdata, "^1", "") strdata = Replace(strdata, "^2", "") strdata = Replace(strdata, "^3", "") strdata = Replace(strdata, "^4", "") strdata = Replace(strdata, "^5", "") strdata = Replace(strdata, "^6", "") strdata = Replace(strdata, "^7", "") strdata = Replace(strdata, Chr(255) & Chr(255) & Chr(255) & Chr(255) & "print" & vbLf, "") strdata = Replace(strdata, vbLf, vbCrLf) 'txtOutput = txtOutput & vbCrLf & Time & vbCrLf & strdata txtOutput = txtOutput & strdata txtOutput.SetFocus txtOutput.SelStart = Len(txtOutput) End Sub
|
|
|
26
|
Programación / .NET (C#, VB.NET, ASP) / Conectar de esta forma en vb.NET una Base de Datos
|
en: 5 Julio 2010, 21:43 pm
|
Yo lo tenia así en VB 6.0 '-----> En un Módulo con las referencias que necesita '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ Public CNADO As ADODB.Connection '// Conexion ADO Public RSADO As ADODB.Recordset '// RecordSet ADO Public SQLADO As String '// Parametro para SQL
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
Public Sub ConectarADO() Set CNADO = New ADODB.Connection '// Crear la nueva conexion Set RSADO = New ADODB.Recordset '// Crear nuevo recordset RSADO.CursorLocation = adUseClient '// Tipo de cursor a utilizar CNADO.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=control_servicios; User=root;Password=;Option=3;" CNADO.Open '// Abrir la nueva conexion End Sub
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
Public Sub CerrarADO() CNADO.Close '// Cerrar la conexion Set CNADO = Nothing '// Liberar conexion de la memoria Set RSADO = Nothing '// Liberar recorset de la memoria End Sub
'+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ Ya dentro del formularioGuardar registro en la tabla Factura Private Sub cmdGuardar_Factura_Click() '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ '// Conectar la Base Datos con ADO Call ConectarADO '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ For I = 1 To ListView1.ListItems.Count V01 = Val(txtNFactura.Text) V02 = "#" & txtFecha.Text & "#" V03 = "'" & ListView1.ListItems.Item(I).Text & "'" V04 = Val(Format(ListView1.ListItems.Item(I).SubItems(1), "")) ComandoSQL = "INSERT INTO FACTURA (nfactura,fecha,servicio,cantidad) VALUES (" & V01 & "," & V02 & "," & V03 & "," & V04 & ")" CNADO.Execute ComandoSQL Next I '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ '// Cerrar la base de datos y liberar la memoria Call CerrarADO '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ End Sub Crear un Reporte en el Control ListView solo me interesa crear en este control "ListView"Private Sub cmdReporte_Click() '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ '// Conectar la Base Datos con ADO Call ConectarADO '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
ListView2.ListItems.Clear SQL = "SELECT * FROM FACTURA WHERE nfactura = '1000'" RSADO.Open SQL, CNADO, adOpenStatic, adLockOptimistic, adCmdText Do Until RSADO.EOF Set TLS = ListView2.ListItems.Add() With RSADO TLS.Text = cnServicios TLS.SubItems(1) = .Fields("nfactura") & "" TLS.SubItems(2) = .Fields("fecha") & "" TLS.SubItems(2) = .Fields("servicio") & "" TLS.SubItems(3) = Format(.Fields("cantidad"), "##,###") & "" RSADO.MoveNext End With Loop '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ '// Cerrar la base de datos y liberar la memoria Call CerrarADO '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
End Sub Alguien seria tan amable de crear un tutorial de esta forma en VB.NET yo estoy procurando hacer en Visual Studio 2010
|
|
|
27
|
Programación / .NET (C#, VB.NET, ASP) / Este metodo que estoy usando esta bien?
|
en: 30 Abril 2009, 17:24 pm
|
Para cargar una tabla en un ListView utilizo este codigo... Imports System.Data.OleDb
Private Sub Cargar_ListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim CNN As New OleDb.OleDbConnection Dim DT As New DataTable Dim DA As New OleDb.OleDbDataAdapter Dim CMD As New OleDb.OleDbCommand
CNN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL_SERVICENTRO\COMBUSTIBLES.mdb" CNN.Open()
CMD.Connection = CNN CMD.CommandText = "SELECT * FROM PERSONAL" CMD.CommandType = CommandType.TableDirect DA.SelectCommand = CMD DA.Fill(DT)
For Each DR As DataRow In DT.Rows Dim item As ListViewItem item = New ListViewItem(DR("CODIGO").ToString) item.SubItems.Add(DR("NOMBRE").ToString) item.SubItems.Add(DR("TURNO").ToString) ListView1.Items.Add(item) Next
End Sub
'Este aca me carga todo se necesita cerrar la base de datos ahi??? '-------------------------------------------------------------------------------------------------------------------------------------------- '//Este Utilizo para cargar un registro en TextBox Private Sub cmdCargar_en_TextBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cnn As New OleDb.OleDbConnection Dim dt As New DataTable Dim da As New OleDb.OleDbDataAdapter Dim cmd As New OleDb.OleDbCommand
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL_SERVICENTRO\COMBUSTIBLES.mdb" cnn.Open()
cmd.Connection = cnn cmd.CommandText = "SELECT * FROM PERSONAL WHERE CODIGO='10'" cmd.CommandType = CommandType.TableDirect da.SelectCommand = cmd da.Fill(dt)
TextBox1.Text = CStr(dt.Rows(intFile)("CODIGO")) TextBox2.Text = CStr(dt.Rows(intFile)("NOMBRE")) TextBox3.Text = CStr(dt.Rows(intFile)("TURNO"))
End Sub 'Este aca me carga todo se necesita cerrar la base de datos ahi??? '-------------------------------------------------------------------------------------------------------------------------------------------- 'Esta parte es lo que mas me interesa Guardar varios registro al mismo tiempo, En un control ListView tengo unos registro tiene que guardar todo el contenido Private Sub Guardar_todo_el_contenido_de_un_ListView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim I As Integer = 0
For I = 0 To ListView2.Items.Count - 1
Dim cnx As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL_SERVICENTRO\COMBUSTIBLES.mdb") Dim SQLGuardar As String
SQLGuardar = "INSERT INTO PERSONAL VALUES(@CODIGO,@NOMBRE,@TURNO)"
Dim cmd As New OleDbCommand(SQLGuardar, cnx) cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("@CODIGO", ListView2.Items(I).Text) cmd.Parameters.AddWithValue("@NOMBRE", ListView2.Items(I).SubItems(1).Text) cmd.Parameters.AddWithValue("@TURNO", ListView2.Items(I).SubItems(2).Text)
cmd.CommandType = CommandType.Text cnx.Open() cmd.ExecuteNonQuery() cnx.Close()
Next I
End Sub Pueden ayudarme a optimizar o mejorar o como estoy usando esta bien, gracias
|
|
|
29
|
Programación / .NET (C#, VB.NET, ASP) / Una Solucion para todos (Base de Datos en VB.NET)
|
en: 28 Abril 2009, 18:15 pm
|
Hola soy 1 mas que programo en VB6 y al qurerer pasar en .NET es otro mundo. Alguien puede ayudarme con este tema yo asi tenia mis proyectos en VB6 en Proyectos cargaba las referencias asi: En un Modulo declaro las conexiones y otras variablesPublic ADOConexion As ADODB.Connection Public ComandoSQL As String
Public DB As Database Public RS As Recordset
Public StrSQL As String
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------- '//Este es para Conectar con la base de datos.
Public Sub ConectarADO() Set ADOConexion = New ADODB.Connection ADOConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CONTROL\BDATOS.MDB;Persist Security Info=False" ADOConexion.Open End Sub
'// Este es para cerrar la base de datos.
Public Sub CerrarADO() ADOConexion.Close Set ADOConexion = Nothing End Sub '----------------------------------------------------------------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------- '//El DAO utilizo para hacer mis reportes segun por lo que ley en algunos foros es mas rapido solo por eso uso.
'//Este es para conectar con la base de datos Public Sub ConectarDAO() Set DB = OpenDatabase("C:\CONTROL\BDATOS.MDB", True, False) Set RS = DB.OpenRecordset(StrSQL) End Sub
'//Este es para Cerrar la BaseDatos
Public Sub CerrarDAO() DB.Close Set DB = Nothing Set RS = Nothing End Sub
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------- Ahora para guardar los datos tengo asi mi formularioEste en el boton guardarPrivate Sub cmdGuardar_Click() Dim Prg Prg = MsgBox("Esta seguro que quiere guardar el registro", vbOKCancel + vbInformation, "Guardar registro") If Prg = vbOK Then V01 = "'" & txtCodigo.Text & "'" V02 = "'" & txtNombre.Text & "'" V03 = "'" & txtTurno.Text & "'" '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ '// Conectar la Base Datos con ADO Call ConectarADO '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
ComandoSQL = "INSERT INTO PERSONAL (CODIGO, NOMBRE, TURNO) VALUES (" & V01 & "," & V02 & "," & V03 & ")" ADOConexion.Execute ComandoSQL '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ '// Cerrar la base de datos y liberar la memoria Call CerrarADO '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
End If End Sub Private Sub cmdEliminar_Click()
Dim Prg Prg = MsgBox("Esta seguro que quiere eliminar el registro", vbOKCancel + vbInformation, "Eliminar registro") If Prg = vbOK Then '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ '// Conectar la Base Datos con ADO Call ConectarADO '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
ComandoSQL = "DELETE FROM PERSONAL WHERE CODIGO = '" & ListView1.SelectedItem.Text & "'" ADOConexion.Execute ComandoSQL '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ '// Cerrar la base de datos y liberar la memoria Call CerrarADO '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
End If
End Sub '//Este utilizo para cargar la tabla en el control ListViewSub Cargar_Personal()
ListView1.ListItems.Clear StrSQL = "SELECT * FROM PERSONAL ORDER BY NOMBRE" '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ '// Conectar a la Base de Datos ConectarDAO '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ Do Until RS.EOF Set TLS = ListView1.ListItems.Add() TLS.Text = RS.Fields("CODIGO") & "" TLS.SubItems(1) = RS.Fields("NOMBRE") & "" TLS.SubItems(2) = RS.Fields("TURNO") & "" RS.MoveNext Loop '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+ '// Cerrar la base de datos y liberar la memoria CerrarDAO '+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
End Sub Se puede hacer esto en Visual Basic 2008 pero conectar toda las base de datos por medio de codigo
|
|
|
|
|
|
|