either I'm dumb or it's not easy.. If I'm an idiot, ok by me but I find it trouble some to go trhough all of that just to add a password/serial key dialouge. :( is there an easier way. he he he. just trying my luck because I've been goin' round in circles. thank you for the reply and I;ve read through the articles.

I Xux

hello all! do anyone know how to add a serial/password to a setup project. I just want my setup to ask for a serial key before continuuing with the install. :D

U Xux

d

Button1_Click(nothing,nothing)

U Xux

have you tried using the crystal report .SetDatabaseLogin method ?

U Xux

do you save the values as strings:confused:? just a Q.

U Xux

exactly what I needed.! I appended a number series to the fieldnames. pretty dissapointed by the limited size of the fields. SO I had to truncate some of the letters. After that I was able to connect to it Using the VIsualFOxfrom Oledbprovide - it works ! Thank you.: -D

U Xux

hello! I'm creating an application that reads a DBF exported from a ARCview 3. I was able to run a query using a VisualFoxpro provider. The problem was, there are times when the exported DBF files contain duplicate fields, then an error occurs. I can't connect to the same DBf using MS ACCESS, is there a way to access tne tables in a low-level manner, say to be able to rename the fileds. My idea is to identify the fields via index since I can't aidentify them by their names and attach an incremental values to the name of the fields. um.. anybody know how to do this. :confused:

U Xux

hi, have you tried using a dataview? you can create a dataview and link that to the datatable. set the rowfilter property of the dataview. example dim DV as new dataview DV.table = MyTable DV.rowfilter = " field1 = 'something'" you can assigne simple criteria to the rowfilter property. then you can set the reports datasource to the view MyReport.setdatasource(DV) hence the new report source will have a filtered set of record.

U Xux

what exactly is this DBF file. is this the one that comes with a shape file? or a foxpro db?

GUERVEN Truth or Consequence

HI. from the flow of the code I assume you want to fill a datatable and then create a new row from it. you can directly fill a datatable without using a dataset. Here I replaced some of the code. With this method, you have a direct access to the dattable. Dim strConn As String = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VilliageDatabase\Ainslie.mdb" Dim conn As New OleDbConnection(strConn) Dim Sql As String = "select * from tblTransaction" Dim TblTrans as new datatable Dim adapter As OleDbDataAdapter adapter = New OleDbDataAdapter(Sql, conn) conn.open() intc = adapter.Fill(TBLtrans) Dim newrow As DataRow = TBLtrans.NewRow furthermore, you can filter the datatable using its defaultview without using an extra dataview. TblTrans.DefaultView.RowStateFilter=DataViewRowState.Added Datagrid1.datasource = TBLtrans.defaultview

GUERVEN Truth or Consequence

have you tried inserting the fields? "Insert into tblTransaction values(#12/05/06#,1,1,100,'this is it')7" "Insert into tblTransaction (field1,field2 ....) values(#12/05/06#,1,1,100,'this is it')7"

GUERVEN Truth or Consequence

ei, Public Sub GravaConfiguracao_Fideliza(ByVal intESC As Integer, ByVal dblVE As intPE As Integer) can you tell what this parameter declaration mean. if confused about the double AS is that a valid statement?

GUERVEN Xuriuxs

I presume Ds1 is a Dataset, how many tables are there and do each table include a primary key.

GUERVEN Truth or Consequence

use a datetimepicker control GUERVEN Truth or Consequence

you can convert an image to a stream then store it to an access database Dim ms As New MemoryStream PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat) Dim imageX() As Byte = ms.GetBuffer ms.Close() After this step you already have an image in bytes() - imageX Now.. assuming you have an access database with three fields. Message, Name, and PiC (pic is an OLE Object in access) You need to use an OledbCommand's Parameter to pass the values correctyl. here's How to Do it. oledbcommand1.Parameters.Clear() oledbcommand1.Parameters.Add(New OleDbParameter("@MESSAGE", OleDbType.WChar, 50)).Value = TextBox1.Text oledbcommand1.Parameters.Add(New OleDbParameter("@NAME", OleDbType.WChar, 50)).Value = TextBox2.Text oledbcommand1.Parameters.Add(New OleDbParameter("@PIC", OleDbType.Binary)).Value = image If VEN.Insert("INSERT INTO Table1 ( MESSAGE , NAME1 , PIC ) VALUES ( ? , ? , ? )") = 1 Then MessageBox.Show("Record Save!") Me.Close() End If ofcourse you need to setup a connection to an access database. only images added trhough this method can be retireived. to retrieve the image you need to reverse the step Dim i As Integer If IsDBNull(TABLE.Rows(ROW)(iFIELD)) Then MsgBox("You Tried to View an Image from an empty record", MsgBoxStyle.OKOnly, "Unable to Display Image") Exit Sub End If Dim arrPicture() As Byte = CType(TABLE.Rows(ROW)("PIC"),byte()) Dim ms As New MemoryStream(arrPicture) picturebox1.image = System.Drawing.Image.FromStream(ms) GUERVEN Truth or Consequence

IDE could mean alot of stuff what IDE are you reffering to? \\\\\\\\ --------o)>>> ////////

num = strmw.ReadLine() - i assume you have a number on the first line of your textfile For x = 1 To Val(num) - then you read another number and modified x, where x is your loop control counter - the loop itself is pretty much destroyed with the next statement

**x = strmw.ReadLine()code>**

**`wpname(x).Text = strmw.ReadLine() wPP(x).Text = strmw.ReadLine() wcounter(x).Text = strmw.ReadLine() Next` you probably need to change your loop control. use `**while .. do .. loop**` instead or you could post a sample of your data(textfile) so we could help you better and probably suggest a working snippet. Marvin N. Guerrero - Taje Kage_bunshinNunJutsU**

aBsolutely! that is exactly what i have in mind :) simple yet effective move from the machine Marvin N. Guerrero - Taje Kage_bunshinNunJutsU

what can i SAY thist has got to be one of the coolest code I've learned for the last 10 months :laugh: Marvin N. Guerrero - Taje Kage_bunshinNunJutsU

There are many ways to extract information, first you need to identify the index of the record you want to extract. We can use the ME.Databindingcontext( datasource ).position to identify the current row. Normally we assign a table to a datagrid's datasource, but here we will use the Table.Defaultview. SO given TBL1 as your datatable Datagrid.datasource = TBL1.Defaultview then we can use Me.BindingContext(TBL1.DefaultView).Position() to indentify the current row, this should work even it you change the sort field of the datagrid. I think thats it. Dim ID As String 'use the this event handle Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged Dim x As Int16 'Datagrid1.datsource = tbl1.Defaultview ' instead of Datagrid1.datsource = tbl1 ' you must explicitly point to the tables defaultview 'Get the position of the Table's Defaultview x = Me.BindingContext(TBL1.DefaultView).Position() 'use x to identify you row textbox1.text = TBL1.DefaultView(x)("fieldname") End Sub Marvin N. Guerrero - Taje Kage_bunshinNunJutsU Marvin N. Guerrero - Taje Kage_bunshinNunJutsU