Microsoft Visual Basic Express
Ver Más instrucciones
1
Inicie Microsoft Visual Basic Express. Haga clic en " Nuevo proyecto ... " en el panel izquierdo de la pantalla. Seleccione " Aplicación de Windows Forms ". Haga clic en " Aceptar".
2
doble clic en " botón" en el panel " Toolbox" para añadir un nuevo control de botón . Haga doble clic en " DataGridView " para añadir un nuevo control de la red . . Haga doble clic en " Button1 " para abrir el módulo " Form1.vb "
3
Escriba el siguiente para declarar la cadena de conexión :
oleString Dim As String
oleString = " Provider = Microsoft.Jet.OLEDB.4.0 ; "
oleString = oleString y "Data Source = C: \\ , Propiedades extendidas =" " texto ";
oleString = oleString y " HDR = No; FMT = delimitado " ""
4
Escriba el siguiente para declarar más variables de conexión y consultar el archivo de datos :
conec dévil como nuevo OleDbConnection ( oleString )
da dévil como nuevo OleDbDataAdapter ( )
Dim ds As New DataSet ()
oldeComm Dim As New OleDbCommand ( "SELECT * FROM C: \\ CSVData . csv " , conn)
editar la siguiente línea de código y escriba la ruta de acceso al archivo :
oldeComm Dim As New OleDbCommand ( " SELECT * FROM C: \\ CSVdata.csv " , conn)
5
Escriba lo siguiente para abrir el archivo y obtener los datos a través de un conjunto de datos :
conn.Open ()
da.SelectCommand = oldeComm
ds.Clear ()
da.Fill (ds , " CSV" )
6
Escriba el siguiente para agregar los datos a la red de datos de control de Vista:
DataGridView1.DataSource = ds.Tables ( " CSV" )
7
Escriba el siguiente para cambiar los colores de la cuadrícula de control de Vista de datos :
DataGridView1 . ColumnHeadersDefaultCellStyle
. BackColor = Color.Navy
. ForeColor = Color.White
. Fuente = nueva fuente ( DataGridView1.Font , FontStyle.Bold )
< p > Final Con
DataGridView1.GridColor = Color.Red
Me.DataGridView1.Rows
. artículo ( 0 ) . células ( 1 ) . Style.BackColor = Color.DarkGreen
. artículo ( 0 ) . células ( 1 ) . Style.ForeColor = Color.White
. artículo ( 1 ) . Las células ( 1 ) . Style.BackColor = color. Red
. artículo ( 1 ) . Las células ( 1 ) . Style.ForeColor = Color.White
extremo con
conn.Close ()
8 Pulse
"F5 " para ejecutar el programa y haga clic en " Button1 ".