مشکل با دیتابیس

سوال

سلام دوستان من جدید هرچی دیتابیس درست میکنم بیسیک نمیتونه جدولای موجود در دیتابیس رو بخونه اررور میده که این جدول وجود نداره دیتابیسای قبلی رو پیدا میکنه ولی جدیدا رو نه

حل شد 0
, 2017-10-08T05:26:01+03:30 8 پاسخ کاربر تازه 0

پاسخ ها ( 8 )

  1. SOLTANE GHALBHA
    0
    2017-10-08T12:11:03+03:30
    پاسخ

    سلام

    نمونه کدی که استفاده کردید رو قرار بدید

    برای قرار دادن کد، در ویرایشگر؛ آیکون https://beporsam.ir/wp-content/uploads/2017/04/code.png را انتخاب و سپس کد خودتون رو قرار بدید

    • amir
      0
      2017-10-09T02:08:57+03:30
      پاسخ 
      	If File.Exists(File.DirInternal,"option.db") = False Then
	File.Copy(File.DirAssets,"option.db",File.DirInternal,"option.db")
	End If
	If sql1.IsInitialized=False Then 
		sql1.Initialize(File.DirInternal,"option.db",True)
	End If
	
	
	Dim cur As Cursor
	cur = sql1.ExecQuery("SELECT   *  FROM  table1")

       

  2. SOLTANE GHALBHA
    0
    2017-10-10T14:34:17+03:30
    پاسخ

    میشه بگید این if دومی رو برای چی گذاشتید؟

    If sql1.IsInitialized=False Then 
	sql1.Initialize(File.DirInternal,"option.db",True)
End If

    کدها که درست هستند ظاهرا، نام جدول(table1) درست است؟

    • amir
      0
      2017-10-10T23:22:07+03:30
      پاسخ

      if دومی برا فعال سازی sql

      اسم جدول همینه یه دیتابیس دیگه هم ساختم اونم همین جوری شد ولی دیتابیس های که قبلاساختم  رو شناسایی میکنه

  3. SOLTANE GHALBHA
    0
    2017-10-11T14:30:24+03:30
    پاسخ

    کدها که درست هستند …

    سورس رو پیوست کنید تا بنده هم چک کنم …

  4. amir
    0
    2017-10-12T02:20:09+03:30
    پاسخ

    ممکن مشکل از نرم افزار navicat باشه؟


    فایل پیوست
  5. SOLTANE GHALBHA
    0
    2017-10-12T20:11:19+03:30
    پاسخ

    دوست عزیز شما در برنامه گفتید که از دیتابیس ok.db جدول sual رو بخونه

    cur = sql1.ExecQuery("SELECT * FROM  sual")

    ولی شما در دیتابیس ok.db جدولی به نام sual ندارید!

    نام جدول شما Tab1 هست

  6. amir
    0
    2017-10-13T00:09:22+03:30
    پاسخ

    عوضش کردم بازم همون ارور رو میده :/


    فایل پیوست
  7. SOLTANE GHALBHA
    0
    2017-10-13T05:53:09+03:30
    پاسخ

    شما خطاهای نوشتاری(غلط املایی، استفاده از . بجای , و  …) دارید، در کد نویسی دقت کنید و با صبر و حوصله به کد نویسی بپردازید.

    شما در این قطعه کدی که برای انتقال فایل دیتابیس به حافظه ی گوشی هست، دقت کنید:

    If File.Exists(File.DirInternal,"option.db") =False Then
		File.Copy(File.DirAssets,"option.db",File.DirInternal,"option,db")	
	End If

    شما بجای استفاده از . از , استفاده کنید و اسم دیتابیس رو اینجوری نوشتید option,db !

    اصلاح کنید و پروژه رو اجرا کنید.

    موفق باشید.

    بهترین پاسخ
  8. amir
    0
    2017-10-14T00:43:36+03:30
    پاسخ

    میشه برام سورس اصلاحی رو پیوست کنید

ارسال یک پاسخ