I have been collecting data from ms.access database into a class object - '_Get and put in data from database Fingerprint(RAS) into CPresensiFingerprint
-
Public Function GetdbFingerprint() As CPresensiFingerprint
-
Dim presensiFinger As New CPresensiFingerprint
-
Dim SQLSelectdbRAS As String
-
Dim rsFinger As Recordset
-
Dim dateNow_ As Date
-
-
dateNow_ = um_TgldanJamSkrg()
-
-
SQLSelectdbRAS = "SELECT a.DN, b.DIN, c.PIN, c.UserName, b.Clock, d.ItemName " & _
-
"FROM ((ras_Device a INNER JOIN ras_AttRecord b ON a.DN=b.DN) " & _
-
"LEFT JOIN ras_Users c ON b.DIN=c.DIN) " & _
-
"LEFT JOIN ras_AttTypeItem d ON b.AttTypeId=d.ItemId " & _
-
"WHERE b.DIN=c.DIN AND Format(b.Clock, 'mm/dd/yyyy')=#" & _
-
Format(dateNow_, "mm/dd/yyyy") & "#"
-
Debug.Print SQLSelectdbRAS
-
Set rsFinger = da_GetRs(SQLSelectdbRAS)
-
-
If Not rsFinger.EOF Then
-
presensiFinger.device = rsFinger.Fields("DN").Value
-
presensiFinger.idFinger = rsFinger.Fields("DIN").Value
-
presensiFinger.Nik = rsFinger.Fields("PIN").Value
-
presensiFinger.Name = rsFinger.Fields("UserName").Value
-
presensiFinger.DateNow = rsFinger.Fields("Clock").Value
-
presensiFinger.timeIn = rsFinger.Fields("Clock").Value
-
presensiFinger.AbsentType = rsFinger.Fields("ItemName").Value
-
End If
-
-
rsFinger.Close
-
Set rsFinger = Nothing
-
-
Set GetdbFingerprint = presensiFinger
-
-
End Function
-
-
With name from class module
-
CPresensiFingerprint
-
-
Public PVID As Long
-
Public device As Integer
-
Public idFinger As Integer
-
Public DateNow As Date
-
Public Nik As String
-
Public Name As String
-
Public timeIn As Date
-
Public timeOut As Date
-
Public AbsentType As String
-
Public OTHoursNotApproved As Integer
-
-
I want input the created data from ms.access into sql server 2005 database with class module object
-
-
'_Input data from CPresensiFingerprint into dbSIKawan (table finger_data_karyawan)
-
Public Function SavePresensiIn(ByVal presensiSlot As CPresensiFingerprint) As Long
-
Dim rsSIKawan As Recordset
-
Dim SQLInsertdbSIKawan As String
-
Dim SQLSelectdbSIKawan As String
-
Dim PVID As Long
-
-
Set presensiSlot = New CPresensiFingerprint
-
-
SQLInsertdbSIKawan = "INSERT INTO finger_data_karyawan(Device, idFinger, NIKKary, Namakary," & _
-
" TglHadir, TimeIn, TipeAbsen)" & _
-
" VALUES('" & presensiSlot.device & "', '" & presensiSlot.idFinger & "', '" & _
-
presensiSlot.Nik & "', '" & presensiSlot.Name & "', '" & _
-
Format(DateValue(presensiSlot.DateNow), "mm/dd/yyyy") & "', '" & _
-
Format(presensiSlot.timeIn, "mm/dd/yyyy hh:nn:ss") & "', '" & _
-
presensiSlot.AbsentType & "')"
-
Call ExeQUERY(SQLInsertdbSIKawan)
-
-
SQLSelectdbSIKawan = "SELECT TOP 1 a.idNo FROM finger_data_karyawan a WHERE a.NIKKary='" & _
-
presensiSlot.Nik & "' AND a.TglHadir='" & _
-
Format(DateValue(presensiSlot.DateNow), "mm/dd/yyyy") & "' ORDER BY a.idNo DESC"
-
Set rsSIKawan = da_GetRecord(SQLSelectdbSIKawan)
-
PVID = rsSIKawan.Fields("idNo").Value
-
-
rsSIKawan.Close
-
Set rsSIKawan = Nothing
-
-
SavePresensiIn = PVID
-
-
End Function
-
-
I want the data that has collected in sql server 2005 from class module with auto number,
-
-
Private Sub Form_Load()
-
Dim presensiSlot As CPresensiFingerprint
-
-
Call SavePresensiIn(presensiSlot)
-
-
End Sub
but when i running the application. i get error message.
'Cannot insert the value NULL into column 'idNo', table 'dbSIKawan.dbo.finger_data_karyawan'; column does not allow nulls. INSERT fails'
I want the all data insert into sql server database with auto number, so if I want to add other data, the old data is not affected by new data.
Can anyone help me?
Regards,
Octo
1 2672
An auto-number can never be NULL. I don't see anything in your code that is setting idNo to anything, so if this is all the relevant code I am wondering if the column is defined correctly in the table.
You don't tell very much where this error is occuring, only "when running the application", so I think maybe the error is happening elsewhere, where some code is saying "idNo=" NULL something that is null, or else the column is not really defined to be an auto-number.
Jim
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Chris Gilbert |
last post by:
I'm quite stuck with this:
I have an import table called ReferenceMatchingImport which contains
data that has been sucked from a data submission. The contents of
this table have to be imported...
|
by: Ken |
last post by:
Need help on the Auto Number or Identity Seed on the Oracle Database
I got an Access database that need to be converted to Oracle 9i.
Somehow the Trigger we created to simulate the "AUTO NUMBER"...
|
by: Shahar |
last post by:
Hi
I need to get a field name 'ID'(that is an auto-number field) right
after I add a new row to table, it's work like that:
myCommand.ExecuteNonQuery();
myCommand.CommandText = "SELECT...
|
by: Fabio Negri Cicotti [MCP] |
last post by:
Hi All.
I'm trying to insert data into 2 tables (parent-child) using the ADO.NET's
SetParentRow method. The parent table has an identity column as primary key.
When I execute the code below I...
|
by: Phil Latio |
last post by:
I have 2 virtually identical tables and wish to move data between them.
Basically one table is called "live_table" and the other is named
"suspended_table" and the only difference is that the...
|
by: diane |
last post by:
Just trying to upsize using VFP 9 with SQL 2005 using VFP remote
views. One in particular keeps coming up and saying Cannot insert the
value NULL into column, when I really don't think I am...
|
by: karenkksh |
last post by:
Hi,
The user_id is set as primary key.
"Cannot insert the value NULL into column 'user_id', table 'C:\DOCUMENTS AND SETTINGS\KAREN\MY DOCUMENTS\VISUAL STUDIO...
|
by: billa856 |
last post by:
Hi,
I am trying to insert Null value in column(ShipDate) in my table.That column(ShipDate)'s type id date/time and format is short date.
I am using "" to insert Null in that column(ShipDate)...
|
by: pbd22 |
last post by:
Hi.
I am trying to insert a zero into the below table and I am being told
that:
Cannot insert the value NULL into column 'UsageToday', table
DB.dbo.Pub_Count'; column does not allow nulls....
|
by: ghjk |
last post by:
I'm a new to postgres. i have a table which is having a colomn with auto increment value. When I insert value to that table, it gives an error.
First column is the auto increment one....
|
by: taylorcarr |
last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
|
by: aa123db |
last post by:
Variable and constants
Use var or let for variables and const fror constants.
Var foo ='bar';
Let foo ='bar';const baz ='bar';
Functions
function $name$ ($parameters$) {
}
...
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: Sonnysonu |
last post by:
This is the data of csv file
1 2 3
1 2 3
1 2 3
1 2 3
2 3
2 3
3
the lengths should be different i have to store the data by column-wise with in the specific length.
suppose the i have to...
|
by: Hystou |
last post by:
There are some requirements for setting up RAID:
1. The motherboard and BIOS support RAID configuration.
2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
| |