• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 10 رای - 2.5 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: مشکل vb6 با اکسس
حالت خطی
#6
کد:
از کامپونت ado استفاده کن

اینم یه نمونه:

[code]
Private Sub Command1_Click()

  'Define the three objects that we need,
  '   A Connection Object - connects to our data source
  '   A Command Object - defines what data to get from the data source
  '   A RecordSet Object - stores the data we get from our data source

  Dim conConnection As New ADODB.Connection
  Dim cmdCommand As New ADODB.Command
  Dim rstRecordSet As New ADODB.Recordset


  'Defines the connection string for the Connection.  Here we have used fields
  'Provider, Data Source and Mode to assign values to the properties
  ' conConnection.Provider and conConnection.Mode

  conConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
      App.Path & "\" & "database.mdb;Mode=Read|Write"


  'Define the location of the cursor engine, in this case we are opening an Access database
  'and adUseClient is our only choice.

  conConnection.CursorLocation = adUseClient


  'Opens our connection using the password "Admin" to access the database.  If there was no password
  'protection on the database this field could be left out.

  conConnection.Open


  'Defines our command object

  ' .ActiveConnection tells the command to use our newly created command object.
  ' .CommandText tells the command how to get the data, in this case the command
  '              will evaluate the text as an SQL string and we will return all
  '              records from a table called tabTestTable
  ' .CommandType tells the command to evaluate the .CommandText property as an SQL string.

  With cmdCommand
    .ActiveConnection = conConnection
    .CommandText = "SELECT * FROM tabTestTable;"
    .CommandType = adCmdText
  End With

  'Defines our RecordSet object.

  '  .CursorType sets a static cursor, the only choice for a client side cursor
  '  .CursorLocation sets a client side cursor, the only choice for an Access database
  '  .LockType sets an optimistic lock type
  '  .Open executes the cmdCommand object against the data source and stores the
  '        returned records in our RecordSet object.

  With rstRecordSet
    .CursorType = adOpenStatic
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open cmdCommand
  End With

  'Firstly test to see if any records have been returned, if some have been returned then
  'the .EOF property of the RecordSet will be false, if none have been returned then the
  'property will be true.

  If rstRecordSet.EOF = False Then

    'Move to the first record

    rstRecordSet.MoveFirst

    'Lets move through the records one at a time until we reach the last record
    'and print out the values of each field

    Do

      'Access the field values using the fields collection and print them to a message box.
      'In this case I do not know what you might call the columns in your database so this
      'is the safest way to do it.  If I did know the names of the columns in your table
      'and they were called "Column1" and "Column2" I could reference their values using:

      '  rstRecordSet!Column1
      '  rstRecordSet!Column2


      MsgBox "Record " & rstRecordSet.AbsolutePosition & " " & _
          rstRecordSet.Fields(0).Name & "=" & rstRecordSet.Fields(0) & " " & _
          rstRecordSet.Fields(1).Name & "=" & rstRecordSet.Fields(1)

      'Move to the next record

      rstRecordSet.MoveNext
    Loop Until rstRecordSet.EOF = True

    'Add a new record

    With rstRecordSet
      .AddNew
      .Fields(0) = "New"
      .Fields(1) = "Record"
      .Update
    End With

    'Move back to the first record and delete it

    rstRecordSet.MoveFirst
    rstRecordSet.Delete
    rstRecordSet.Update


    'Close the recordset

    rstRecordSet.Close
  Else
    MsgBox "No records were returned using the query " & cmdCommand.CommandText
  End If

  'Close the connection

  conConnection.Close

  'Release your variable references

  Set conConnection = Nothing
  Set cmdCommand = Nothing
  Set rstRecordSet = Nothing
End Sub
[/code]
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


پیام‌های این موضوع
مشکل vb6 با اکسس - توسط parvin - 04-07-2012، 11:13 PM
RE: مشکل vb6 با اکسس - توسط Amin_Mansouri - 04-08-2012، 09:52 AM
RE: مشکل vb6 با اکسس - توسط parvin - 04-08-2012، 10:27 AM
RE: مشکل vb6 با اکسس - توسط Amin_Mansouri - 04-08-2012، 10:35 AM
RE: مشکل vb6 با اکسس - توسط parvin - 04-08-2012، 10:39 AM
RE: مشکل vb6 با اکسس - توسط Amin_Mansouri - 04-08-2012، 11:26 AM
RE: مشکل vb6 با اکسس - توسط parvin - 04-08-2012، 11:55 AM
RE: مشکل vb6 با اکسس - توسط Amin_Mansouri - 04-08-2012، 12:26 PM
RE: مشکل vb6 با اکسس - توسط parvin - 04-09-2012، 04:30 AM
RE: مشکل vb6 با اکسس - توسط Amin_Mansouri - 04-09-2012، 06:43 PM
RE: مشکل vb6 با اکسس - توسط parvin - 04-10-2012، 04:30 AM

موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  جستجو در دیتا بیس اکسس aghamali 5 9,416 11-18-2015، 11:26 PM
آخرین ارسال: Amin_Mansouri
  مشکل با ارور ویژوال بیسیک aghamali 4 7,997 07-03-2015، 11:14 AM
آخرین ارسال: aaaaaaaaa
  مشکل با paste بیسیک 6 aghamali 1 3,963 01-18-2015، 08:53 PM
آخرین ارسال: aghamali
  2 مشکل بیسیک 6 در ویندوز سون aghamali 3 7,856 11-07-2014، 04:25 PM
آخرین ارسال: aghamali
  مشکل با Thread در vb6 aleas 0 3,224 05-27-2014، 01:16 AM
آخرین ارسال: aleas
  مشکل در سورس ثبت نام tiktak990 3 6,826 05-13-2014، 10:43 AM
آخرین ارسال: tiktak990
  مشکل با دیتا گرید aghamali 14 16,036 04-16-2014، 06:53 PM
آخرین ارسال: Amin_Mansouri
  دانلود فایل اکسس برای ساخت دیکشنری sajad-kh 0 5,168 01-28-2014، 01:24 PM
آخرین ارسال: sajad-kh
  حل مشکل ارور Reached limit: cannot create any more controls for this form Amin_Mansouri 0 3,317 10-10-2013، 07:06 PM
آخرین ارسال: Amin_Mansouri
  مشکل با سیمبول gachboy 6 8,941 03-24-2013، 04:26 PM
آخرین ارسال: gachboy

پرش به انجمن:


Browsing: 2 مهمان