Please help, about primary key and dataset

[Warex]

I am using the example from the microscuzz site on making a key but It keeps
giving me an error:

With DataSets.Tables ("Numbers")
.PrimaryKey = New DataColumn() {.Columns("Numb er")}
End With

Error:
Object reference not set to an instance of an object.

New is there, what is it talking about? Below is my code.

My wall has a hole now........

Thanks
Public Function GetAdapterandDa taset(ByRef con As OleDb.OleDbConn ection,
ByRef Msql As String, ByRef InsertDeleteUpd ate As String)

Dim DAdapter As OleDb.OleDbData Adapter = New OleDb.OleDbData Adapter(Msql,
con)

Dim CBuild As New OleDb.OleDbComm andBuilder

Dim DataSets As New DataSet

DAdapter.Fill(D ataSets, "Tables")

'create pkey

With DataSets.Tables ("Numbers")

..PrimaryKey = New DataColumn() {.Columns("Numb er")}

End With

'set command

Select Case InsertDeleteUpd ate

Case "Insert"

DAdapter.Insert Command = CBuild.GetInser tCommand()

Case "Update"

DAdapter.Insert Command = CBuild.GetUpdat eCommand()

Case "Delete"

DAdapter.Insert Command = CBuild.GetDelet eCommand()

End Select

'use the Dataadapter.upd ate (Dataset,"Table ")

'use the ds.acceptchange s to

Dim returnit As New Returnit

returnit.DA = DAdapter

returnit.DS = DataSets

Return returnit

End Function

[Ken Tucker [MVP]]

Hi,

Are you sure there is a column named Number?

Ken
------------------------
"Warex" <Ig************ @juno.comwrote in message
news:u7******** ******@TK2MSFTN GP03.phx.gbl...

>I am using the example from the microscuzz site on making a key but It
keeps giving me an error:

With DataSets.Tables ("Numbers")
.PrimaryKey = New DataColumn() {.Columns("Numb er")}
End With

Error:
Object reference not set to an instance of an object.

New is there, what is it talking about? Below is my code.

My wall has a hole now........

Thanks
Public Function GetAdapterandDa taset(ByRef con As OleDb.OleDbConn ection,
ByRef Msql As String, ByRef InsertDeleteUpd ate As String)

Dim DAdapter As OleDb.OleDbData Adapter = New OleDb.OleDbData Adapter(Msql,
con)

Dim CBuild As New OleDb.OleDbComm andBuilder

Dim DataSets As New DataSet

DAdapter.Fill(D ataSets, "Tables")

'create pkey

With DataSets.Tables ("Numbers")

.PrimaryKey = New DataColumn() {.Columns("Numb er")}

End With

'set command

Select Case InsertDeleteUpd ate

Case "Insert"

DAdapter.Insert Command = CBuild.GetInser tCommand()

Case "Update"

DAdapter.Insert Command = CBuild.GetUpdat eCommand()

Case "Delete"

DAdapter.Insert Command = CBuild.GetDelet eCommand()

End Select

'use the Dataadapter.upd ate (Dataset,"Table ")

'use the ds.acceptchange s to

Dim returnit As New Returnit

returnit.DA = DAdapter

returnit.DS = DataSets

Return returnit

End Function

[Warex]

Yes, my table name is "Numbers" and the field name of the first column is
"Number"

but I will look at it again......

out of curiosity why did microscam change data? recordsets worked fine for
me.....
"Ken Tucker [MVP]" <vb***@bellsout h.netwrote in message
news:uI******** *******@TK2MSFT NGP04.phx.gbl.. .

Hi,

Are you sure there is a column named Number?

Ken
------------------------
"Warex" <Ig************ @juno.comwrote in message
news:u7******** ******@TK2MSFTN GP03.phx.gbl...

>>I am using the example from the microscuzz site on making a key but It
keeps giving me an error:

With DataSets.Tables ("Numbers")
.PrimaryKey = New DataColumn() {.Columns("Numb er")}
End With

Error:
Object reference not set to an instance of an object.

New is there, what is it talking about? Below is my code.

My wall has a hole now........

Thanks
Public Function GetAdapterandDa taset(ByRef con As OleDb.OleDbConn ection,
ByRef Msql As String, ByRef InsertDeleteUpd ate As String)

Dim DAdapter As OleDb.OleDbData Adapter = New OleDb.OleDbData Adapter(Msql,
con)

Dim CBuild As New OleDb.OleDbComm andBuilder

Dim DataSets As New DataSet

DAdapter.Fill( DataSets, "Tables")

'create pkey

With DataSets.Tables ("Numbers")

.PrimaryKey = New DataColumn() {.Columns("Numb er")}

End With

'set command

Select Case InsertDeleteUpd ate

Case "Insert"

DAdapter.Inser tCommand = CBuild.GetInser tCommand()

Case "Update"

DAdapter.Inser tCommand = CBuild.GetUpdat eCommand()

Case "Delete"

DAdapter.Inser tCommand = CBuild.GetDelet eCommand()

End Select

'use the Dataadapter.upd ate (Dataset,"Table ")

'use the ds.acceptchange s to

Dim returnit As New Returnit

returnit.DA = DAdapter

returnit.DS = DataSets

Return returnit

End Function

[Cor Ligthert [MVP]]

Warex,

Are you using your recordset as well on a mobile device or as a disconnected
set on the Network.

However, you can still use your recordset, with all problems that are with
it.
If you did not have those, nobody is telling you that you may not use
recordset the pain now or in future is still for you.

Cor

"Warex" <Ig************ @juno.comschree f in bericht
news:Ow******** ******@TK2MSFTN GP04.phx.gbl...

Yes, my table name is "Numbers" and the field name of the first column is
"Number"

but I will look at it again......

out of curiosity why did microscam change data? recordsets worked fine for
me.....
"Ken Tucker [MVP]" <vb***@bellsout h.netwrote in message
news:uI******** *******@TK2MSFT NGP04.phx.gbl.. .

>Hi,

Are you sure there is a column named Number?

Ken
------------------------
"Warex" <Ig************ @juno.comwrote in message
news:u7******* *******@TK2MSFT NGP03.phx.gbl.. .

>>>I am using the example from the microscuzz site on making a key but It
keeps giving me an error:

With DataSets.Tables ("Numbers")
.PrimaryKey = New DataColumn() {.Columns("Numb er")}
End With

Error:
Object reference not set to an instance of an object.

New is there, what is it talking about? Below is my code.

My wall has a hole now........

Thanks
Public Function GetAdapterandDa taset(ByRef con As OleDb.OleDbConn ection,
ByRef Msql As String, ByRef InsertDeleteUpd ate As String)

Dim DAdapter As OleDb.OleDbData Adapter = New
OleDb.OleDbDa taAdapter(Msql, con)

Dim CBuild As New OleDb.OleDbComm andBuilder

Dim DataSets As New DataSet

DAdapter.Fill (DataSets, "Tables")

'create pkey

With DataSets.Tables ("Numbers")

.PrimaryKey = New DataColumn() {.Columns("Numb er")}

End With

'set command

Select Case InsertDeleteUpd ate

Case "Insert"

DAdapter.Inse rtCommand = CBuild.GetInser tCommand()

Case "Update"

DAdapter.Inse rtCommand = CBuild.GetUpdat eCommand()

Case "Delete"

DAdapter.Inse rtCommand = CBuild.GetDelet eCommand()

End Select

'use the Dataadapter.upd ate (Dataset,"Table ")

'use the ds.acceptchange s to

Dim returnit As New Returnit

returnit.DA = DAdapter

returnit.DS = DataSets

Return returnit

End Function

[Phill W.]

Warex wrote:

I am using the example from the microscuzz site on making a key but It keeps
giving me an error:

With DataSets.Tables ("Numbers")
.PrimaryKey = New DataColumn() {.Columns("Numb er")}
End With

Error:
Object reference not set to an instance of an object.

The Immediate Window is your friend.

Stick a break point on the above line and use the Immediate Window to
find out which of the objects is set to Nothing.

OK, you have to fully qualify each variable (you can't use access
..PrimaryKey directly any more) but you can still get there, with a bit
of digging.

Regards,
Phill W.

[Warex]

Thanks, I found the problem to your help,
Simply was a table declaration that was wrong while passing through
functions.
"Phill W." <p-.-a-.-w-a-r-d@o-p-e-n-.-a-c-.-u-kwrote in message
news:ej******** **@south.jnrs.j a.net...

Warex wrote:

>I am using the example from the microscuzz site on making a key but It
keeps giving me an error:

With DataSets.Tables ("Numbers")
.PrimaryKey = New DataColumn() {.Columns("Numb er")}
End With

Error:
Object reference not set to an instance of an object.

The Immediate Window is your friend.

Stick a break point on the above line and use the Immediate Window to find
out which of the objects is set to Nothing.

OK, you have to fully qualify each variable (you can't use access
.PrimaryKey directly any more) but you can still get there, with a bit of
digging.

Regards,
Phill W.