Visual Basic

Re: Problem to insert data from DateTimePicker to Access database

25-Jan-09 9:18

Instead of concatenating values to sql strings, use parameters. That way you will avoid conversion problems (among many other things such as sql injections etc). Have a look at: OleDbParameter Class[^]

The need to optimize rises from a bad design.My articles[^]

ivo7525-Jan-09 9:36

Re: Problem to insert data from DateTimePicker to Access database

25-Jan-09 9:36

but this work when access field format is text

Wendelius25-Jan-09 9:52

Re: Problem to insert data from DateTimePicker to Access database

25-Jan-09 9:52

Yes it does and also it can be done for dates and numbers.

Access accepts dates in format #mm/dd/yyyy#. So for example today would be #01/25/2009# (without quotes).

However, I hope that you don't take this shortcut since it's not the proper way to go. I already mentioned sql injections which is prevented by using parameters. To give a few more examples that would be problematic:

numbers, what if decimal separator is comma (as it is for example in my case). When updating a column you would have for example UPDATE ... SET ColumnName = 49,6 ... This would lead to an error
text, what if your text contains a quote, for example: UPDATE ... SET ColumnName = 'Guns 'n' Roses'. Error again
dates, input date is in different format. For example I use 25.1.2009 (Finnish format) etc.

So what I'm trying to say is that it's few more lines of code, but the quality and robustness of your application will greatly improve when you use parameters.

The need to optimize rises from a bad design.My articles[^]

ivo7525-Jan-09 9:55

Re: Problem to insert data from DateTimePicker to Access database

25-Jan-09 9:55

OK I try to use parameters thanks very much, but are you sure that work

Wendelius25-Jan-09 10:05

Re: Problem to insert data from DateTimePicker to Access database

25-Jan-09 10:05

ivo75 wrote:
are you sure that work

See for yourself, that's what they are for Smile | :)

You could try something like this:

...
strQuery = "insert into data_pr values(?)"
aCmd = New OleDbCommand(strQuery, aCon)
aCmd.Parameters.AddWithValue("ColumName", DateTimePicker1.Value)
aCmd.ExecuteNonQuery()
...

The need to optimize rises from a bad design.My articles[^]

ivo7525-Jan-09 21:19

Re: Problem to insert data from DateTimePicker to Access database

25-Jan-09 21:19

not work give me this error again "Data type mismatch in criteria expression"

ChandraRam25-Jan-09 22:23

ChandraRam

25-Jan-09 22:23

ivo75 wrote:
"Data type mismatch in criteria expression"

This just means that the data type of the field in your database is not the same as the value that you are trying to write into it.

Did you try parametric method as suggested by Mika?

Re: Problem to insert data from DateTimePicker to Access database

Wendelius26-Jan-09 5:17

Re: Problem to insert data from DateTimePicker to Access database

26-Jan-09 5:17

Could you post the code you're currently having.

The need to optimize rises from a bad design.My articles[^]

Mr Oizo26-Jan-09 1:13

Mr Oizo

26-Jan-09 1:13

Try this in your vb code:

CONVERT(DATETIME, '" &amp;amp; Format(datetimepicker1.value, "MM/dd/yyyy") &amp;amp; " 00:00:00', 102)

If this doesn't work change the code 102 to 101 or 103. It might be one of those codes that you need to use.

should do the trick

Re: Problem to insert data from DateTimePicker to Access database

ivo7526-Jan-09 6:23

Insert New Line in File Stream

26-Jan-09 6:23

Tahnk You very much everybody this is the code who work
strCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strAcessFilePath & ";User ID=Admin;Password="
aCon = New OleDbConnection(strCon)
aCon.Open()
strQuery = "insert into rabotnici values(?,?,?)"
param1 = New OleDbParameter("@rabotnik_name", OleDbType.VarWChar, 100)
param1.Value = ComboBox1.Text
param2 = New OleDbParameter("@obekt_name", OleDbType.VarWChar, 100)
param2.Value = ComboBox2.Text
param3 = New OleDbParameter("@data_rabota", OleDbType.Date)
param3.Value = DateTimePicker1.Value.ToShortDateString()
aCmd = New OleDbCommand(strQuery, aCon)
aCmd.Parameters.Add(param1)
aCmd.Parameters.Add(param2)
aCmd.Parameters.Add(param3)
aCmd.ExecuteNonQuery()
aCon.Close()

this is work with parameters, again thanks

IvanIT25-Jan-09 5:56

25-Jan-09 5:56

I have a stream of text on display in a multiline textbox. I would line to insert the following new line of text ("TODAY 007") in the line just below every occurences of "PRV*PE*ZZ*1041C0700X~". So the result should be:

PRV*PE*ZZ*1041C0700X~
TODAY 007

This should repeat to the end of the file.

How do I start to code this? Please if anyone has a code sample. Thanks

N a v a n e e t h25-Jan-09 6:04

N a v a n e e t h

25-Jan-09 6:04

Read the file line by line and if the current line matches your pattern, put a line break character and insert the required text.

Navaneeth

How to use google | Ask smart questions

IvanIT25-Jan-09 6:42

25-Jan-09 6:42

Here is the code I have so far, but when I invoke, nothing happens.

Dim sReader As New IO.StreamReader("C:\\File.txt")<br />
        Dim CurrentLine As String = "TODAY 007"<br />
        Dim DataLines As New System.Collections.Specialized.StringCollection<br />
<br />
        Do While sReader.EndOfStream = False<br />
            CurrentLine = sReader.ReadLine<br />
            If CurrentLine.Contains("PRV*PE") = False Then<br />
                DataLines.Add(CurrentLine)<br />
            End If<br />
        Loop<br />
        sReader.Close()<br />
        sReader = Nothing<br />
<br />
        Dim sWriter As New IO.StreamWriter("C:\\File.txt")<br />
<br />
        For Each CurrentLine In DataLines<br />
            sWriter.WriteLine(CurrentLine)<br />
        Next<br />
        sWriter.Close()<br />
        sWriter = Nothing

Any suggestions?

Dave Kreskowiak25-Jan-09 10:05

Dave Kreskowiak

25-Jan-09 10:05

IvanIT wrote:
If CurrentLine.Contains("PRV*PE") = False Then
DataLines.Add(CurrentLine)
End If

So, what are you going to do if the contains method returns True? Right now, you're just dropping the line and not doing anything with it. You've completely dropped your string of "TODAY 007" and the logic doesn't come close to following your specified requirements. Shouldn't your code read something more like:

Do While Not sReader.EndOfStream
    DataLines.Add(CurrentLine)
    If CurrentLine.Contains("PRV*PE") Then
        DataLines.Add("TODAY 007")
    End If
Loop

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

IvanIT26-Jan-09 7:46

26-Jan-09 7:46

Dave, this is an excerpt of the code I used; the result is that the line is insert 1 time at the end of the text file rather than immediately after each occurence of my search string:

Private Sub btnTranslate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTranslate.Click<br />
        MessageBox.Show("you are about to translate file")<br />
<br />
        'read the file to find data<br />
        Dim sReader As New IO.StreamReader("C:\moviez_21.txt")<br />
        Dim CurrentLine As String<br />
<br />
        Dim DataLines As New System.Collections.Specialized.StringCollection<br />
<br />
        CurrentLine = sReader.ReadLine<br />
        If CurrentLine.StartsWith("PRV*PE*ZZ*") = True Then<br />
            sReader.ReadToEnd()<br />
        End If<br />
        sReader.Close()<br />
<br />
        'modifying the  file<br />
        Dim oError As System.IO.StreamWriter<br />
        oError = New System.IO.StreamWriter("c:\moviez_21.txt", True)<br />
<br />
        'text to be inserted in after PRV*PE*ZZ*<br />
        oError.Write("REF*LU*") ' + file number<br />
        oError.Close()<br />
    End Sub

Where did I go wrong?

Dave Kreskowiak26-Jan-09 11:35

Dave Kreskowiak

26-Jan-09 11:35

This is nowhere near what you wrote before. And frankly, you didn't follow the logic you wrote, line by line, nor did you even look at the example I already gave you.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007, 2008

IvanIT26-Jan-09 12:36

Remote Connection MSSQL Express2005

26-Jan-09 12:36

Dave, you are correct that my logic and coding have changed. Trust me, I appreciate all the feedback that I have gotten from this forum. I keep tweaking the suggestions until I get something that works. At this point, the code above works, with the 2 exceptions. I now need to figure out a way to reference the text file dynamically. Secondly, I discovered that myString will have different ending characters from time to time. As I plow thru, I learn new stuff. Thanks

r_mohd25-Jan-09 3:52

r_mohd

25-Jan-09 3:52

Hi All,

I have developed an application in vb.net 2005/ Mssql express 2005.
It works very fine on my machine, but give me problem when i am trying to run it on my remote machine. I am using LAN (Cross over Cable). It gives me an error "Login failed for user 'MyServerName\Guest' when i am trying to run it on my remote machine.

My Connection String is like following.
Conn = New SqlConnection("Server=myserver\SQLEXPRESS,1028;Trusted_Connection=yes;database=mydatabase")

I have done following steps.

Sql Server 2005 Surface Area Configuration.
I have set Remote Connections
Local and Remote Connections.
Using Both TCP/IP and Named Pipes.
Apply Done.
Stop Service and again restart.

Sql Server Configuration Manager
Sql Server 2005 Network Configuration
Protocols for SqlExpress
Shared memory = Enabled
Named Pipes = Enabled
TCP/IP = Enabled
Via = Enabled

Sql Server 2005 Services
Sql Server (SqlExpress) Running.
Sql Server Browser Running.
Stop and again restart.

Ms Sql Server Management Studio SqlExpress.
Set Security to Sql Server and windows Authentication mode.

But still i am facing the same problem.

Kindly help me.

Thanks in advance.

rmshah
Developer

Re: Remote Connection MSSQL Express2005

Wendelius25-Jan-09 4:18