数据库检索问题，立即给分。。

2002-12-26 03:48:42 151 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

使用 SQLite 数据库实现简单的数据管理系统本项目的目的是利用 SQLite 数据库构建一个简单的数据管理系统。SQLite 是一种轻量级的嵌入式数据库，无需单独的服务器进程，非常适合小型应用程序。本数据管理系统将涵盖基本的数据操作，如数据的插入、查询、更新和删除，适用于需要对少量数据进行简单管理的场景，例如个人信息管理、小型业务数据记录等。本文将首先介绍 SQLite 的核心概念和相关联系，包括其架构和工作原理。接着详细讲解使用 Python 操作 SQLite 数据库的核心算法原理和具体步骤。阅读详情

如何对二进制字段进行检索？
如：某长篇小说被存为二进制字段，现在检索其中是否有关键字“1999年他到延安”。如何实现？
谢谢。

...全文

Cadence 16.6与17.4双版本共存避坑指南：从安装顺序到环境变量配置本文是一份详细的Cadence 16.6与17.4双版本共存实战指南。针对硬件工程师和PCB设计者同时处理新旧项目的需求，文章深入剖析了版本冲突根源，并提供了从安装顺序、环境隔离到故障排查的完整解决方案。核心在于通过环境变量精细化管理与脚本控制，实现两个版本的稳定共存与无缝切换，有效解决了文件关联混乱、交互布局失效等常见问题。阅读详情

龙华

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

龙华 2003-01-02

打赏
举报

龙华 2002-12-30

打赏
举报

youxia001 2002-12-27

打赏
举报

龙华 2002-12-27

打赏
举报

SYMXXY 2002-12-27

打赏
举报

龙华 2002-12-26

打赏
举报

龙华 2002-12-26

打赏
举报

很对不起，你提的方法太复杂了。
应该有简单的多的方法。

zqfleaf 2002-12-26

打赏
举报

Public Sub ConvertToText(BinText As String)
Dim BinChar As String
Dim CharX As String
Dim ConvertedMessage As String
Dim Z As Integer
Dim NewChar As Integer
Dim Bx As Integer
Dim BBx As Integer

For Bx = 1 To Len(BinText)
BinChar = Mid(BinText, Bx, 8)
Z = 128
NewChar = 0

For BBx = 1 To 8
CharX = Mid(BinChar, BBx, 1)
If CharX = "1" Then
NewChar = NewChar + Z
Z = Z / 2
Else
Z = Z / 2
End If
Next BBx

ConvertedMessage = ConvertedMessage & Chr(NewChar)
Bx = Bx + 7

Next Bx

BinText = ConvertedMessage

End Sub
Public Sub ConvertBin(TheString As String)
Dim C As Integer
Dim DD As Integer
Dim EE As Integer
Dim BinArray(7) As String
Dim TempString As String
Dim NewTheString As String

For C = 1 To Len(TheString)
DD = Asc(Mid(TheString, C, 1))

BinArray(7) = DD Mod 2
DD = DD \ 2
BinArray(6) = DD Mod 2
DD = DD \ 2
BinArray(5) = DD Mod 2
DD = DD \ 2
BinArray(4) = DD Mod 2
DD = DD \ 2
BinArray(3) = DD Mod 2
DD = DD \ 2
BinArray(2) = DD Mod 2
DD = DD \ 2
BinArray(1) = DD Mod 2
DD = DD \ 2
BinArray(0) = DD Mod 2

For EE = 0 To UBound(BinArray)
TempString = TempString + BinArray(EE)
Next EE

NewTheString = NewTheString + TempString

TempString = ""

Next C

TheString = NewTheString
NewTheString = ""
End Sub

龙华 2002-12-26

打赏
举报

或提出相关解决方案也可。谢谢。
代码12行以内。

数据库检索问题，立即给分。。

相关推荐