I've got a warning with my "AccessKaryawanInsert" Function

Question

0.00/5 (No votes)

See more:

Public Class AccessKaryawan
Public Function AccessKaryawanInsert(ByVal Nik As String, _
ByVal FirstName As String, _
ByVal Jabatan As String, ByVal Alamat As String, _
ByVal Telepon As String)

Dim myCmd As New OleDbCommand
Dim myconnection As New AccessData.DataBaseConnection

myCmd.CommandText = "Insert Into [Karyawan]" _
& " (NIK,FirstName,Jabatan,Alamat,Telepon) Values (" _
& "'" & Nik & "', '" & FirstName & "','" & Jabatan & "'" _
& ", '" & Alamat & "', '" & Telepon & "') ;"

myCmd.Connection = myconnection.open
myCmd.ExecuteNonQuery()
myconnection.close()
End Function
End Class

Posted 16-Sep-11 18:37pm

strada1987

Add a Solution

Comments

AditSheth 17-Sep-11 0:43am

can you provide warning message?

Idle_Force 17-Sep-11 1:19am

That should have been a Sub, Functions return values or types. Your also missing a value parameter.

Idle_Force 17-Sep-11 1:21am

Oh yeah, you should parameterize your queries.

strada1987 17-Sep-11 5:23am

Thank's
It Work
Just add Return "err code"

NikulDarji 17-Sep-11 6:47am

Hey....remove semicolon from your INSERT query....try it

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

NikulDarji · Answer 1 · 2011-09-16T20:31:00

Hey I don't know what type of warnnig msg you got....but replace your code with this code....

Imports System.Data
Imports System.Data.OleDb

Public Class AccessKaryawan
Public Function AccessKaryawanInsert(ByVal Nik As String, _
ByVal FirstName As String, _
ByVal Jabatan As String, ByVal Alamat As String, _
ByVal Telepon As String)
Dim myCmd As New OleDbCommand
Dim myconnection As New OleDbConnection ''''I CHANGED THIS LINE

myCmd.CommandText = "Insert Into [Karyawan]" & " (NIK,FirstName,Jabatan,Alamat,Telepon) Values (" & "'" & Nik & "', '" & FirstName & "','" & Jabatan & "'" & ", '" & Alamat & "', '" & Telepon & "') ;"
myconnection.Open() ''''I CHANGED THIS LINE
myCmd.ExecuteNonQuery()
myconnection.close()
End Function
End Class