Also the newrow statement falls over with "null reference" when I code the dataadapter but not when I add in a dataadapter from the wizard. So what should the sql be here ? or the command so that I can creat a new row ? 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 adapter As OleDbDataAdapter adapter = New OleDbDataAdapter(Sql, conn) Dim ds As New DataSet Dim intc As Integer Dim str As String intc = adapter.Fill(ds) ' str = ds.Tables(0).Rows(0).Item(4) Me.Text = str Dim newrow As DataRow = ds.Tables("tblTransaction").NewRow Please if you can help ? ml -- modified at 5:24 Thursday 27th July, 2006

what is the 7 about ?

This gives me an error and I've tried changing the values and formats within the brackets. Dim strconn As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VilliageDatabase\Ainslie.mdb" Dim Sql As String = "Insert into tblTransaction values(#12/05/06#,1,1,100,'this is it')" Dim Sql2 As String = "Insert into tblTransaction values()" Dim conn As New OleDbConnection(strconn) Dim cmd As New OleDbCommand(Sql, conn) conn.Open() cmd.ExecuteNonQuery() Is this pretty far off how you do an insert statement ?

I am sorry to ask ;( I am running windows XP Home edition. I thought it was going to be hard to install localHost type protocol. , however after installing VISUAL STUDIO 2005 EXPRESS and ORACLE 10G(about 1 gig) it works like a server. I don't know I think mabe during the Oracle setup this did the job, by this I mean my pc is acting like a server. I have a lot to learn. Like I cannot find the directories , how can I view them, the web browser address show this : http://localhost:8080/ or this http://localhost:8080/apex/f?p=4550:11:1759661959884636::NO::: So ive searched the drives, but I cannot see anything familiar. Please help me find the directories?

-- modified at 6:24 Saturday 22nd July, 2006

A pretty basic question. Well I am running XP home and I think its set up with a Localhost. How do I find the physical directories it goes to ? Like I just installed oracle express and before that ms sql. the web browser address look like this http://127.0.0.1:8080/apex/f?p=4500:1000:4433621472321981::::: well thats what its doing when I am going through admin duties with Oracle. thx for your patience !

Hi, Is there a way for people to share a file like a ms-Word doc and assign one party permission to view it while another party could edit it while other is viewing ?:-O

Sorry, I think i made it worse. I will look at it, im just learning so it is interesting. Especially the scope part of it. Maybe try separating the classes a bit more, instead of having one inside another. But I am sure we will sort this out. But it works if you keep your class outside the other class. I don't think nested classes are going to work! Public Class Form1 Inherits System.Windows.Forms.Form +windows Generated Code----------- ---------------------------------- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim f As New aClass Label1.Text = f.myfunction Label1.Text = f.showName End Sub End Class Public Class aClass Private strName As String Private gpa As Double Public Function myfunction() strName = InputBox("Enter the name of students") End Function Public Function showName() Return strName End Function End Class

Sorry about this question but how do you make the dll ?

Well It would be good to get a better answer than this. Its a kind of scope problem and it seems naming a class myClass is not liked and similar conflict naming a variable name, they are keywords. So I changed it a little bit Public Class Form1 Inherits System.Windows.Forms.Form Dim t1 As TextBox Dim t2 As TextBox Private name1 As String Private gpa As Double Public Function assignvalue() name1 = InputBox("Enter the name of students") gpa = InputBox("Enter the GPA") showvalue() End Function Public Function showvalue() TextBox1.Text() = name1 t1.Text() = gpa End Function Public Class displayme Public Shared Function show() Dim s1 As New Form1 s1.assignvalue() s1.showvalue() s1.Show() Dim t1 = New TextBox Dim t2 = New TextBox s1.Controls.AddRange(New Control() {t1, t2}) t1.Location = New Point(20, 50) t2.Location = New Point(20, 100) End Function End Class Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click displayme.show() End Sub End Class

How do you go about making your class accessible to other projects ? Like say you have a custom messagebox ? -- modified at 21:30 Friday 7th July, 2006

I tried after recieving your advice which was similar to advice from others elsewhere, but now i get an error that Me.handle cannot be converted to long ??? me.handle nealy worked i guess. the other suggestion was a syntax error.thx X|

Actually that was me who posted it a few days ago and I dont think its going to get a reply ! Thanks for your suggestion. I will try it and see how things go! thx.... ;)

Ive got a button on a form and am trying to get the flashwindow api to work with the form , however it seems i don't understand it! As i have never done an api call im not too surprised.!! Declare Function FlashWindow Lib "user32" Alias "FlashWindow" (ByVal hwnd As Long, ByVal bInvert As Long) As Long Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click FlashWindow(1, True)'what are the arguments this call should use? End Sub no error when i click button, just nothing happens? Any help will be appreciated.

Any advice ??

Ive got a button on a form and am trying to get the flashwindow api to work with the form , however it seems i don't understand it! As i have never done an api call im not too surprised.!! Declare Function FlashWindow Lib "user32" Alias "FlashWindow" (ByVal hwnd As Long, ByVal bInvert As Long) As Long Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click FlashWindow(1, True)'what are the arguments this call should use? End Sub no error when i click button, just nothing happens? Any help will be appreciated.:confused:

Ok thx I tried this, though the font for the text editor and printer were both set to courier 10pt, changing any thing there did not help. Still the same rubbish. The printer is fine for all other apps.

oh like this..... 1 ```uioiopp opji iopup 2 ```;lk;k;lj oj;p opujpoufittio';ou\ 3 (qgdsd;sdloiopuo 4 ``jcasd;cj; dscasd\ thx,

Hello, Im sorry but I am simple having trouble in trying to print my code using the Visual Studio. The directory Heading at the top is fine and all the line numbers print fine down the side of page. The rest (beside the line numbers is rubbish. Cant fine what setting to change) Anyhelp appreciated. MickL. X|

Dear Steve, Thanks for the reply. I was coming to that conclusion. I was getting confused with scope after an exercise where the objects were created in a frmLoad_ Event(local scope). To populate a ListBox using Item.Add(NewObject(x,y,z) . Then in a new procedure --> ListBox_Click Event <-- the object was addressed via its method ListBox.SelectedItem.GetPrice This is still a bit murky for me....but I think I see that the ListBox contains the actual object so can be directly referenced. Thanks Mick..:zzz: Am I still asleep

I have made an instance of the BookSale Object after the mnuCalculate but when I try to access any properties of mBookSale in a a new event sub procedure I get the message mBookSale is not declared. Private Sub mnuCalcSale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCalcSale.Click Dim mBookSale As New BookSale mBookSale = New BookSale With mBookSale .Title = txtTitle.Text .Quantity = CInt(txtQuantity.Text) .Price = CDec(txtPrice.Text) End With lblExtendedPrice.Text = FormatNumber(mBookSale.ExtendedPrice) End Sub the above is all ok, below does not work! BookSale is a Class Module. Private Sub mnuSummary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuSummary.Click strMessage = "sales Total " & FormatNumber(mBookSale.SalesTotal) MessageBox.Show(strMessage, "Summary Totals", MessageBoxButtons.OK, MessageBoxIcon.Hand) End Sub When I try to access mBookSale.SalesTotal I get mBookSale is not declared. the Class module is listed below. Public Class BookSale Private mstrTitle As String Private mintQuantity As Integer Private mdecPrice As Decimal Private Shared mdecSalesTotal As Decimal Private Shared mintSalesCount As Integer #Region "Properties" ' below code to set and return or'GET' Title property 'are properties 'PUBLIC' by default???????? Public Property Title() As String Get Title = mstrTitle End Get Set(ByVal Value As String) mstrTitle = Value End Set End Property Public Property Quantity() As Integer Get Quantity = mintQuantity End Get Set(ByVal Value As Integer) If Value >= 0 Then mintQuantity = Value End If End Set End Property Public Property Price() As Decimal Get Price = mdecPrice End Get Set(ByVal Value As Decimal) If Value >= 0 Then mdecPrice = Value End If End Set End Property Public Function ExtendedPrice() As Decimal Dim decExtendedPrice As Decimal decExtendedPrice = mdecPrice * mintQuantity Return decExtendedPrice mdecSalesTotal += decExtendedPrice