|
I end up creating my own encryption routine to encrypt the data prior to getting written to the config. The key is skewed and the code is obfuscated for better protection; our apps are used by our internal employees only.
Any suggestions, ideas, or 'constructive criticism' are always welcome.
"There's no such thing as a stupid question, only stupid people." - Mr. Garrison
|
|
|
|
|
I just want to test first if my code is running so i rewrite everything and created a simple insert command, but it wasn't working right. When i update my adapter i had an error"syntax error in insert into" i don't know what code to edit or did i miss something?
please help. thanks.
Try
Dim myConnection As New OleDb.OleDbConnection
Dim myAdapter As New OleDb.OleDbDataAdapter
myConnection.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; Data
Source=C:\Desktop\vbnet\biblio.mdb"
myAdapter = New OleDb.OleDbDataAdapter("Select * from Titles", myConnection)
Dim ds As DataSet = New DataSet
Dim dr As DataRow
Dim drCommandBuilder As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(myAdapter)
myAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
myAdapter.Fill(ds, "Titles")
MessageBox.Show("Loaded data from Titles Table into dataset.")
myConnection.Close()
dr = ds.Tables("Titles").NewRow()
dr("ISBN") = "026"
dr("Title") = "Together Again"
dr("Year Published") = "2001"
ds.Tables("Titles").Rows.Add(dr)
MessageBox.Show("Inserted new row into Titles")
myConnection.Open()
myAdapter.Update(ds, "Titles")
MessageBox.Show("Sent update to db")
Catch Ex As Exception
Console.WriteLine("Error: " & Ex.Message)
MsgBox("Error: " & Ex.Message)
End Try
|
|
|
|
|
The problem is in your select statement. You told it to return all fields with the "*". The command builder can't construct an SQL statement using the "*". You have to specify the field names you're using in the SELECT statement so the command builder can figure out which values go in which fields when it builds the INSERT statement.
|
|
|
|
|
im new in using ole db and i could'nt solve my problem here. not sure if im missing some codes.
after clicking the save button and closing the program, when you open it again, the record will not show (not actually saved!). I need to add, edit and delete a record.
please help. thanks.
If strMode = "addmode" Then
dr = dt.NewRow()
dr("ISBN") = txtISBN.Text
dr("Title") = txtTitle.Text
dr("Year Published") = txtYear.Text
'dt = ds.Tables(0)
dt.Rows.Add(dr)
myAdapter.AcceptChangesDuringFill = True
dr.AcceptChanges()
dr.BeginEdit()
Me.myAdapter.Update(ds)
MessageBox.Show("Added new record!")
ElseIf strMode = "editmode" Then
'cm = currencymanager
dt.Rows(cm.Position).Item("ISBN") = txtISBN.Text
dt.Rows(cm.Position).Item("Title") = txtTitle.Text
dt.Rows(cm.Position).Item("Year Published") = txtYear.Text
Me.myAdapter.Update(ds)
MessageBox.Show("Record Updated!")
End If
Reply·Email·View Thread
|
|
|
|
|
Please don't repost the same question again.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
You might also want to get rid of that "AcceptChanges" line. You'll want to read up on it before you use it so you know exactly what it does and why it appears to be throwing out your changes.
|
|
|
|
|
I am using parallel port in my design project.May you please give me a detailed description how to do so.My I design is based on controlling the following outputs 12V stepper motor,buzzer and traffic lights(3 Leds).
I am using 2 motion detector (both main and the backup) to sense the train and pressure sensor to detect the car(this are my inputs).
Please help I am submitting this project on 3 of November2008.Please help I was trying since july.
modified on Monday, October 27, 2008 6:45 PM
|
|
|
|
|
One week to do this?? Good Luck with that! You'll find it very difficult to do this with the parallel port. Too limited in functionality and interfacing between the hardware and your code. You can do this much easier using USB devices. Check out Trossen Robotics[^], starting with a Phidgets board and the sensors and motor controllers they have.
|
|
|
|
|
im new in using ole db and i could'nt solve my problem here. not sure if im missing some codes.
after clicking the save button and closing the program, when you open it again, the record will not show (not actually saved!). I need to add, edit and delete a record.
please help. thanks.
If strMode = "addmode" Then
dr = dt.NewRow()
dr("ISBN") = txtISBN.Text
dr("Title") = txtTitle.Text
dr("Year Published") = txtYear.Text
'dt = ds.Tables(0)
dt.Rows.Add(dr)
myAdapter.AcceptChangesDuringFill = True
dr.AcceptChanges()
dr.BeginEdit()
Me.myAdapter.Update(ds)
MessageBox.Show("Added new record!")
ElseIf strMode = "editmode" Then
'cm = currencymanager
dt.Rows(cm.Position).Item("ISBN") = txtISBN.Text
dt.Rows(cm.Position).Item("Title") = txtTitle.Text
dt.Rows(cm.Position).Item("Year Published") = txtYear.Text
Me.myAdapter.Update(ds)
MessageBox.Show("Record Updated!")
End If
|
|
|
|
|
Are you using an Access database?? Does this happen running your code deployed to a test workstation??
If not, then it's probably because your orignal copy of the database is getting copied to the bin\Debug or bin\Release folders every time you compile your app. You run your app in the debugger and make some changes. Those changes are written to the copy of the database in the bin folder. Once you stop your app and rerun it, those changes are probably getting overwritten because Visuaal Studio is copying the .MDB file to the bin folder again, over the top of your changed .MDB file.
|
|
|
|
|
Yes im using access.
so what will i do? should i change my codes? it doesn't give an error message and i can't trace anything wrong.
Thanks.
|
|
|
|
|
That's because there's nothing wrong.
Open the project in the Solution Explorer and look for your .MDB file. Click once on it, then in the Properties box, there'll be an option called "Copy to output directory". Change it's value from "Copy always" to "Copy if newer". That way, if you delete the copy of the database file in the bin folder, Visual Studio will replace it the next time you compile the project.
|
|
|
|
|
I'm trying to use .Net 3.5's NamedPipeServerStream and NamedPipeClientStream and I'm having some problems. I'm able to send one commmunication between the client and server programs but when the client attempts to connect a second time it hangs. Any idea what I'm doing wrong?
SERVER CODE
-----------
Imports System
Imports System.IO
Imports System.IO.Pipes
Imports System.Threading
Imports System.Windows.Forms
Public Class SimServer
Private Delegate Sub InvokeDelegate(ByVal text As String)
Private newThread As New Thread(New ThreadStart(AddressOf PipeServer))
Private Sub PipeServer()
' Read the request from the client. Once the client has
' written to the pipe, its security token will be available.
Dim pipeServer As New NamedPipeServerStream("CognexPipe", PipeDirection.InOut, 10)
Dim sr As New StreamReader(pipeServer)
Dim sw As New StreamWriter(pipeServer)
Dim line As String
Dim retline As String
While (1)
pipeServer.WaitForConnection()
sw.AutoFlush = True
While (pipeServer.IsConnected)
If (sr.Peek > 0) Then
line = sr.ReadLine()
Me.BeginInvoke(New InvokeDelegate(AddressOf TextHandler), line)
retline = "Received: " + line
sw.WriteLine(retline)
End If
End While
End While
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
newThread.Start()
End Sub
Private Sub Form3_Close(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.FormClosing
newThread.Abort()
End Sub
Public Sub TextHandler(ByVal text As String)
ReceivedBox.Text = text
ReceivedBox.Update()
End Sub
End Class
CLIENT CODE
-----------
Imports System
Imports System.IO
Imports System.IO.Pipes
Imports System.Threading
Public Class SimClient
Private Sub SendButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendButton.Click
Dim pipeClient As New NamedPipeClientStream(".", "CognexPipe", PipeDirection.InOut)
Dim sr As New StreamReader(pipeClient)
Dim sw As New StreamWriter(pipeClient)
Dim line As String
Dim retline As String
If Not pipeClient.IsConnected Then
pipeClient.Connect()
End If
If pipeClient.IsConnected Then
sw.AutoFlush = True
line = CommandBox.Text
sw.WriteLine(line)
While sr.Peek = 0
End While
retline = sr.ReadLine()
ResponseBox.Text = retline
ResponseBox.Update()
sw.Close()
sr.Close()
End If
End Sub
End Class
Thanks for any help you all can give me.
George
|
|
|
|
|
Based on what I can see from the code without actually compiling it, I would guess that either the server code is blocking on the line If (sr.Peek > 0) or the thread is throwing an Exception when the pipe closes and ending that thread.
|
|
|
|
|
Q. Did you ever figure this out?
I'm trying to build a chat using NamedPipeServerStream & NamedPipeClientStream..
|
|
|
|
|
Hi,
I am trying to find out a way to call a class with the value of a variable, i havent had any solution yet. I appreciate any help.
basically what i want to do is like this :
public sub CalllaClassByName(byval strClassName as string)
dim mynewclass as new strClassName
end sub
i know i can do this like this
public sub CalllaClassByName(byval strClassName as string)
select case strClassName
case is ="clsProducts"
dim myNewClass as new clsProducts
case is ="clsCustomers"
dim mynewClass as new clsCustomers
case is ="clsProducers"
dim mynewclass as new clsProducers
end select
bindingsource1.datasource=mynewclass
end sub
i think PHP has something like this (i am not sure)
$Myclass="clsProducts"
$$myclass.Price=10
Thanks.
modified on Monday, October 27, 2008 11:48 AM
|
|
|
|
|
I believe that you are trying to solve this like you would do in a script language like PHP. Eventhough it's possible to do using reflection, or more efficient using a select as you suggested, there is probably a more object oriented way to solve it.
What is it that you want to accomplish, really?
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
thanks Guffa,
Of course there is a way. i can create a new class and call the related class but it's not the quicker way(or i dont think so).
let me explain what i want to do.
i am using mysql as a database server. I created only a form which has a datagridview inside to add new products, customers, warehouse etc. and i have a class for every single definition tables(clsproducts,clswarehouses, clscustomers) which inherits dataset class. i wanna bind datagridview to a class for the thing i wanna add some new records.
basically i can use select case function as i wrote down. but if there is a way to do this just like or similar with php scripting language, i would like to know this.
coud you tell me how to do this with reflection, cos i made some reserach for the reflection but i couldnt find anything to helo me.
Thanks again.
|
|
|
|
|
Reflection is slow, so if you're creating objects for thousands of customers, you'll run into some serious performance bottlenecks. I think what you're looking for is a "Factory class". Google it for some research to see if it'll fit your needs.
|
|
|
|
|
Thanks Dave,
I think i am going to use select case to make a new instance of related class.
What i want to know is, isnt it possible to use variable as a variable type just like i wrote before like PHP script.
$var1="products"
$$var1.Text="Test"
which means product.text="test"
i have some strongly typed dataset classes and i wanna bind only one datagridview to one of the classes which is selected. i am doing this to add new records to different tables. for example when i bind the datagridview to the products class instance, i am gonna add some new products and when i bind the datagridview to customer class instance, i am gonna add some new customers. otherwise i have to create new form for every tables in my database.
thanks again.
|
|
|
|
|
Member 896436 wrote: What i want to know is, isnt it possible to use variable as a variable type just like i wrote before like PHP script.
No, you can't. This ain't PHP.
Member 896436 wrote: otherwise i have to create new form for every tables in my database.
No you don't. You just have to supply the code to bind the DGV to it's columns and bind it to the correct collection.
|
|
|
|
|
|
Hi...I'm new to vb.net..I would like to incorporate the vista glass effect in my vb.net app,
but I can't find any examples to do this...I know how to make the form into glass form, but
can't get the controls on it to act normal...the text on them disapeares when the form is
glass...help would be greattly appreciated..
also there is a way to incorporate the office ribbon, or at least the button, in vb.net apps?
|
|
|
|
|
Is your application written using WPF?? If not, there's pretty much nothing you can do.
|
|
|
|
|
Have you done a search on this site? Their are quite a few examples of glass effect in WinForms/WPF apps.
Regards,
Thomas Stockwell
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Visit my Blog
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
