ACC2000: Recordset'i yeniden kadar yeni SQL kayýtlar silinmiþ görünüyor

Tablonun benzersiz dizini alanýnda varsayýlan bir deðer varsa ve bu alana bir deðer atayýn, Visual Basic for Applications, kullanarak bir SQL tablosuna bir kayýt eklediðinizde, SQL tablosu açýlýncaya kadar yeni bir kayýt silinmiþ olarak görünür. Yeni bir kayýt bir deðer edinmeye, aþaðýdaki hata iletisini alýrsýnýz:

SQL tablosu Visual Basic kodu kullanarak açtýðýnýzda, bu davranýþý gidermek için <a0></a0>, aþaðýdaki örnekte olduðu gibi dbSeeChanges seçeneðini içerir: herhangi yeni benzersiz dizin</a0> alanýnda varsayýlan bir deðer içeren kayýtlarýn geçerli bir kayýt kümesindeki kullanýlabilir eklediðinizi dbSeeChanges seçeneðini saðlar.

Microsoft, programlama örneklerini yalnýzca gösterim amacýyla saðlar; örtülü veya açýk garanti vermez. Buna satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri de dahildir, ancak bunlarla sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve yordamlarý oluþturmak ve hata ayýklamak amacýyla kullanýlan araçlarý kullanmayý bildiðinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir, ancak gereksinimlerinizi karþýlamaya yönelik olarak ek iþlevsellik saðlamak veya yordamlar geliþtirmek amacýyla bu örnekleri deðiþtirmezler.

Davranýþý yeniden oluþturma adýmlarý

Not: Bu makaledeki örnek kod Microsoft Data Access Objects kullanýr. Bu kodun düzgün çalýþmasý için Microsoft DAO 3.6 Nesne Kitaplýðý'na baþvurmalýsýnýz. Bunu yapmak için <a0></a0>, Visual Basic Düzenleyicisi'nde Araçlar menüsünden Baþvurular ' ý týklatýn ve sonra Microsoft DAO 3.6 Nesne Kitaplýðý</a0> onay kutusunun seçili olduðundan emin olun.

1. Bir modül oluþturun ve zaten orada deðilse, tanýmlamalar bölümüne aþaðýdaki satýrý yazýn:
   Seçenek Belirtik
2. Aþaðýdaki yordam yazýn:

   Function TestSQLData()
   
      Dim db As DAO.Database, rs As DAO.Recordset
      Dim idx, td
      Dim cmd As String
   
      ' Delete TestTable if it exists on the SQL server.
      
      'Insert your database name, user ID, password (if any), and dsn
      'to point to an ODBC data source.
      Set db = OpenDatabase("<MyDatabase>", False, False, _
      "ODBC, Database = <MyDatabase>, UID = <userid>, PWD = <password>, dsn = <MyDSN>")
      cmd = "if exists (select * from sysobjects where" _
         & " id = object_id('dbo.TestTable'))"
      cmd = cmd & " drop table TestTable"
      db.Execute cmd, dbSQLPassThrough
   
      ' Create TestTable with one field on SQL server.
      Set td = db.CreateTableDef("TestTable")
      td.Fields.Append td.CreateField("Int", dbInteger)
      td.Fields.Append td.CreateField("String", dbText, 50)
      db.TableDefs.Append td
   
      Set idx = td.CreateIndex("MyIdx")
      idx.Unique = True
      idx.Fields.Append idx.CreateField("Int")
      td.Indexes.Append idx
   
      cmd = "create Default TestDef3 as 100"
      db.Execute cmd, dbSQLPassThrough
   
      cmd = "sp_bindefault TestDef3, 'TestTable.Int'"
      db.Execute cmd, dbSQLPassThrough
   
      ' Open table, add a record, and then obtain values.
      Set rs = db.OpenRecordset("TestTable")
      rs.AddNew
      rs!String = "Trial"
      rs.Update
   
      Debug.Print "RecordCount = " & rs.RecordCount
      rs.MoveFirst
      Debug.Print "String is " & rs("String")
      Debug.Print "Int is " & rs("Int")
      rs.Close
   
   End Function
   					

3. Bu iþlevi sýnamak için, Hemen Penceresi'ne aþaðýdaki satýrý yazýn ve ENTER tuþuna basýn:
   ? TestSQLData()
   Çalýþma zamaný hatasý 3167 oluþtuðunu unutmayýn.