Alberti83

El txt es horrible: B0035R 00167605753686811OFERTA LINEA DE30250000OFERTA LINEA DE CREDITO LUCAS 02013-03-05UG0005500000000CLP2048000000000000000000000000000000000000000000000000000001 5151000900000000000000000000000000000000000000000000000350035PILOTO PILOTO 2004-02-18.00.00.000000000 B0035R 00165531752686811OFERTA LINEA DE30357000OFERTA LINEA DE CREDITO LUCAS 02013-03-05UG0007500000000CLP2048000000000000000000000000000000000000000000000000000001 5151000900000000000000000000000000000000000000000000000350035PILOTO PILOTO 2004-02-18.00.00.000000000 B0035R 00163888025686886NOMINA AGIL 99050048NOMINA AGIL 02013-03-05UG0050000000000CLP2048000000000000000000000000000000000000000000000000000001 5101000900000000000000000000000000000000000000000000000350035PILOTO PILOTO 2004-02-18.00.00.000000000 esas son 3 lineas de 800 mas jaja, logre mostrar todo con: Dim EST As String Dim ENTRADA As Single Dim PRODUCTO As String Dim COD_PRODUCTO As String Dim COD_SUBPRODUCTO As String Dim CAMPAA As String Dim VIGENCIA As String Dim RUT As Integer Dim DV As String Dim IMPORTE As Long If (TextBox1.Text <> "") Then DataGridView1.Columns.Clear() RESUMEN.Columns.Clear() DataGridView1.Columns.Add("EST", "ESTADO") DataGridView1.Columns.Add("ENTRADA", "ENTRADA") DataGridView1.Columns.Add("RUT", "RUT") DataGridView1.Columns.Add("DV", "DV") DataGridView1.Columns.Add("PRODUCTO", "PRODUCTO") DataGridView1.Columns.Add("COD_PRODUCTO", "COD_PRODUCTO") DataGridView1.Columns.Add("COD_SUBPRODUCTO", "COD_SUBPRODUCTO") DataGridView1.Columns.Add("CAMP", "CAMPAA") DataGridView1.Columns.Add("VIGENCIA", "VIGENCIA") DataGridView1.Columns.Add("IMPORTE", "IMPORTE") RESUMEN.Columns.Add("EST", "ESTADO") RESUMEN.Columns.Add("CAMP", "CAMPAA") Using leer As New StreamReader(TextBox1.Text) While Not leer.EndOfStream() Dim texto As String = leer.ReadLine EST = texto.Substring(0, 1) ENTRADA = texto.Substring(1, 4) PRODUCTO = texto.Substring(24, 15) COD_PRODUCTO = texto.Substring(18, 2) COD_SUBPRODUCTO = texto.Substring(20, 4) CAMPAA = texto.Substring(47, 40) VIGENCIA = texto.Substring(88, 10) RUT = texto.Substring(8, 9) DV = texto.Substring(17, 1) IMPORTE = texto.Substring(101, 8) DataGridView1.Rows.Add(EST, ENTRADA, RUT, DV, PRODUCTO, COD_PRODUCTO, COD_SUBPRODUCTO, CAMPAA, VIGENCIA, Format(IMPORTE, "$ ###,###,###.00")) End While End Using ElseIf MsgBox("Debe Seleccionar Archivo", 0, "ERROR!!!") Then End If Pero lo que me falta y no e podido pillar es hacer un resumen tb en Datagridview para copiarlo o exportarlo a un Excel despues, la idea es que agrupe todos los campos iguales de CAMPAÑA y sume su IMPORTE respectivo, trate con incorporandole un IF entre el recorrido If var(cont) <> CAMPAÑAThen RESUMEN.Rows.Add(EST, CAMPAÑA) var(cont) = CAMPAÑA cont = cont + 1 End If Pero el problema es que tira los campos aleatorio y no alfabeticamente por lo cual una campaña repetida puede estar al princio, al final o entremedio por lo cual se repetira. Es algo asi como GROUP BY de SQL server pero para Visual basic

Saludos! Estoy haciendo un programa que al leer un archivo txt de ancho fijo (sin "," ni ";" o " " ") necesito que lo cargue en una grilla DataGridView pero solo e conseguido que cargue solo la primera linea con sus respectivas columnas, no se em ocurre hacer que cargue todo el txt utilizando Substring (x,y) para delimitar ya que solo en web indica con split pero no me sirve para lo que quiero mostrar. esto es lo que tengo, si algun senior de visual me salva. If TextBox1.Text = "" Then MsgBox("Debe Seleccionar Archivo", 0, "ERROR!!!") Else DataGridView1.Columns.Clear() DataGridView1.Columns.Add("ESTADO", "ESTADO") DataGridView1.Columns.Add("ENTRADA", "ENTRADA") DataGridView1.Columns.Add("RUT", "RUT") DataGridView1.Columns.Add("DV", "DV") DataGridView1.Columns.Add("PRODUCTO", "PRODUCTO") DataGridView1.Columns.Add("COD_PRODUCTO", "COD_PRODUCTO") DataGridView1.Columns.Add("COD_SUBPRODUCTO", "COD_SUBPRODUCTO") DataGridView1.Columns.Add("CAMPAA", "CAMPAA") DataGridView1.Columns.Add("VIGENCIA", "VIGENCIA") DataGridView1.Columns.Add("IMPORTE", "IMPORTE") Dim leer As New StreamReader(TextBox1.Text) Dim texto As String Dim lista As New List(Of String) Dim linea As String = Nothing Dim EST As String Dim ENTRADA As String Dim PRODUCTO As String Dim COD_PRODUCTO As String Dim COD_SUBPRODUCTO As String Dim CAMPAA As String Dim VIGENCIA As String Dim RUT As String Dim DV As String Dim IMPORTE As String texto = leer.ReadToEnd EST = texto.Substring(0, 1) ENTRADA = texto.Substring(1, 4) PRODUCTO = texto.Substring(24, 15) COD_PRODUCTO = texto.Substring(18, 2) COD_SUBPRODUCTO = texto.Substring(20, 4) CAMPAA = texto.Substring(47, 40) VIGENCIA = texto.Substring(88, 10) RUT = texto.Substring(8, 9) DV = texto.Substring(17, 1) IMPORTE = texto.Substring(101, 8) DataGridView1.Rows.Add(EST, ENTRADA, RUT, DV, PRODUCTO, COD_PRODUCTO, COD_SUBPRODUCTO, CAMPAA, VIGENCIA, IMPORTE) End If

Si lo esta, parece que no encuentra el archivo y eso que probe con el asistente y exploro encuentro el arcivo y al seguir manda un error, al parecer algo paso que se desconfiguro o se modifico la estructura original del sql server, tendre que solicitar que lo reinstalen.

Lo hice declare @path as nvarchar (4000) declare @file as nvarchar (4000) declare @sql as nvarchar (4000) set @path = 'C:\' set @file = 'carga_20130211.txt' set @sql = 'BULK INSERT bi.AM_CARGATXT FROM ''' + @path + @file + ''' WITH (FIELDTERMINATOR = '','')' exec (@sql) pero por lo menos ahora solo da el error Msg 4860, Level 16, State 1, Line 1 Could not bulk insert. File 'C:\carga_20130211.txt' does not exist. Si no fueran 1.023.000 registros los copiaria uno por uno XD

Buenas!!! Ayuda Help O.S.O. Estoy hace dias tratando de Exportar una base de un archivo de texto plano a SQL con el BULK INSERT, primero me salia error lo cual era que no tenia habilitado mi usuario para bulkadmin pero ahora que lo habilite me sale otro error Operating system error code 3(The system cannot find the path specified.). la Query dice : BULK INSERT bi.Ejemplo FROM 'C:\Archivos de programa\Microsoft SQL Server\MSSQL\Ejemplo.txt' WITH (FIELDTERMINATOR = '","')